Команды управления курсором

В некоторых случаях курсор удобно перемещать сразу на несколько позиций. Для этого используется режим табуляции. Его включение/выключение осуществляется подачей команды Ctrl+O T. В режиме без табуляции при каждом нажатии клавиши Tab курсор перемещается вправо вдоль строки под первый символ очередного слова предыдущей строки. В режиме с табуляцией при каждом нажатии клавиши Tab курсор перемещается вправо на фиксированное число позиций (по умолчанию на 8 позиций).

Если требуется исправить возникающие ошибки, то необходимо воспользоваться командами вставки и удаления (табл.2.2). В частности, в режиме "вставки" буква или символ вводятся в строку перед курсором, а текст вместе с курсором сдвигается вправо на одну позицию; в режиме "замена" (курсор при этом превращается в мигающий прямоугольник) вновь вводимые литеры записываются поверх уже имеющегося текста. Другие команды вставки и удаления, приведенные в табл.2.2., очевидны и дополнительных комментариев не требуют.

!! Наберите в окне редактирования текст нижеприведенной программы Sort.

Program Sort;

Const n=10;

Var Аmax:real;

k, i, Kmax:integer;

A:array [1..n] of real;

Begin

writeln ('Введите элементы упорядочиваемого массива');

For i:=1 to n do

readln(A[i]);

For k:=1 to n-1 do

{Поиск максимального числа и его порядкового номера}

begin

Amax:=A[k]; Kmax:=k;

For i:=k+1 to n do

If A[i]>Amax then

begin

Amax:=A[i]; Kmax:=i;

end;

{Перестановка максимального элемента с текущим}

A[Kmax]:=A[k]; A[k]:=Amax;

end;

For i:=1 to n do writeln (A[i]);

End.

Таблица 2.2