Клавиши клавиатуры, в зависимости от их назначения и расположения, можно поделить на группы: -Алфавитно-цифровые; -Функциональные; -Блок дополнительных клавиш (цифровая панель); -Клавиши управления курсором; -Служебные (клавиши управления). -Алфавитно-цифровые клавиши. Назначение: ввод букв, цифр, знаков препинания и других специальных знаков. В эту категорию также относится клавиша SPACE (ПРОБЕЛ). -Функциональные клавиши Сюда относят клавиши F1-F12. За данными клавишами нет постоянных закрепленных функций (исключением является только клавиша F1, которая используется для получения справки). Эти клавиши, как правило, программируются уже пользователем для каждой программы отдельно. -Блок дополнительных клавиш (цифровая панель) Повторяют действие цифровых и некоторых знаковых клавиш основной панели Даная панель может использоваться в двух режимах: * Ввода цифр; * Управления курсором. Переключения режимов осуществляется клавишей NUM LOCK -Клавиши управления курсором Курсор — экранный указатель, который показывает место ввода следующего символа (для текста) или текущую позицию (точку), к которой будет применяться действие мыши. Клавиши со стрелками служат для перемещения курсора на одну позицию по экрану монитора в соответствии с направлением. Клавиши PAGEUP и PAGEDOWN3 переводят курсор на одну страницу вверх и вниз соответственно, а клавиши HOME и END переводят курсор в начало и конец текущей строки. Клавиша INSERT переключает режима ввода данных: вставка и замена ( в режиме вставки новые знаки вводятся без замены существующих символов, а в режиме замены — заменяют). Клавиша DELETE удаляет знаки, которые находятся справа от текущего положения курсора, а клавиша BACKSPACE удаляет знаки, которые находятся слева от текущего положения курсора.
Во-первых, программа содержит ошибки, должно быть так: var k, m, day: integer; A: array[1..6] of integer;
begin A[1] := 3; A[2] := 1; A[3] := 4; A[4] := 2; A[5] := 4; A[6] := 2; day := 1; m := A[1]; for k := 2 to 6 do begin if A[k] >= m then begin m := A[k]; day := k; end; end; write(day); end.
Эта программа отыскивает последний из дней недели, в котором количество опоздавших превысит количество опоздавших в понедельник. Будет выдано значение 5, т.е. событие имело место в пятницу, когда опоздали четверо.
var
k, m, day: integer;
A: array[1..6] of integer;
begin
A[1] := 3;
A[2] := 1;
A[3] := 4;
A[4] := 2;
A[5] := 4;
A[6] := 2;
day := 1;
m := A[1];
for k := 2 to 6 do
begin
if A[k] >= m then
begin
m := A[k];
day := k;
end;
end;
write(day);
end.
Эта программа отыскивает последний из дней недели, в котором количество опоздавших превысит количество опоздавших в понедельник.
Будет выдано значение 5, т.е. событие имело место в пятницу, когда опоздали четверо.