2.1. Работа с текстовым редактором тр

Для набора текста какой-либо программы интегрированная среда Turbo Pascal предлагает пустое окно с именем NONAME00.PAS, которое присваивается файлу по умолчанию. Курсор первоначально устанавливается в верхнюю левую позицию окна. Текст программы вводится с клавиатуры посимвольно в точки, помеченные курсором. Каждая строка заканчивается нажатием клавишиEnter.

Примечание. Если при запуске среды не произошло автоматической загрузки окна редактирования, его следует открыть подачей команды File/New.

!! Убедитесь в наличии окна редактирования с именем NONAME00.PAS или откройте его соответствующей командой.

Окно редактирования имеет ширину 78 символов, поэтому при наборе символов после 78 колонки будет осуществляться перемещение окна по тексту вправо.

Команды перемещения курсора приведены в табл. 2.1. Большинство команд этой таблицы не нуждается в пояснениях. Следует только отметить, что признаком конца слова в ТР является не только пробел, но и любой из следующих знаков: , . ; + - * / > < ( ) [ ] ^ ' $.

Курсор также устанавливается с помощью мыши путем щелчка ее левой клавишей в требуемом месте экрана.

Редактор может работать либо в режиме с автоотступом, либо в режиме без автоотступа. Работа в режиме автоотступа характеризуется тем, что каждая новая строка начинается в той же позиции на экране, что и предыдущая. Этот режим позволяет сделать программу более наглядной. Переключение данных режимов осуществляется подачей команды Ctrl+О I.

Здесь необходимо отметить, что для подачи двухсимвольных команд (типа Ctrl+ОI) следует нажать комбинацию первых двух клавиш. При этом нажатие клавишCtrl+Oосуществляется последовательно, в указанном порядке, не отпуская ранее нажатой клавиши. Второй символ (I) вводится как с нажатой, так и с отпущенной клавишейCtrl. Пользователь может отказаться от дальнейшего набора команды, нажав вместо второго символа клавишуEsc.

Таблица 2.1

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

Действие	Комбинации клавиш
Перемещение на символ влево, вправо	 , 
Перемещение на строку вверх, вниз	 , 
Начало строки	Home
Конец строки	End
Перемещение на слово влево	Ctrl + 
Перемещение на слово вправо	Ctrl + 
Сдвиг строк вверх	Ctrl + Z
Сдвиг строк вниз	Ctrl + W
Перемещение на страницу вверх	PgUp
Перемещение на страницу вниз	PgDn
Перемещение в начало текста	Ctrl + PgUp
Перемещение в конец текста	Ctrl + PgDn
Перемещение в начало блока	Ctrl + Q B
Перемещение в конец блока	Ctrl + Q K
Включение/отключение автоотступа	Ctrl + О I
Включение/отключение табуляции	Ctrl + О T
Перемещение в верхнюю строку экрана	Ctrl + Home
Перемещение в нижнюю строку экрана	Ctrl + End

В некоторых случаях курсор удобно перемещать сразу на несколько позиций. Для этого используется режим табуляции. Его включение/выключение осуществляется подачей команды 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