Процедура CIrScr

Название процедуры CIrScr является сокращением от Clear Screen (англ.) – очистить экран. Результатом выполнения данной процедуры является удаление всех символов, присутствующих на экране, и перемещении каретки в верхний левый угол экрана. Процедуру CIrScr рекомендуется, вызывать в начале программы, чтобы информация, оставшаяся от других программ, не мешала пользователю, а также в конце программы, чтобы информация, выведенная нашей программой, не мешала работе с другими.

Program BlankScreen;

{заголовок программы, имя программы – BlankScreen}

Uses{начало раздела подключения модулей}

CRT; {подключение модуля CRT)

Begin {начало раздела описания логики программы}

CIrScr;{очистка экрана}

WriteLn('Baм нравится чистый экран?'); {вывод текстовой информации}

Write('Ничего не мешает работе'); {Вывод текстовой информации с новой строки,

обусловленной использованием WriteLn, а не Write,

в качестве предыдущей команды}

write(‘C нашей программой!');

{вывод текстовой информации. Выводимая строка начинается с пробела, чтобы не слиться со строкой 'Ничего не мешает работе'}

End.{конец раздела описания логики программы}

Результатом работы с программой будет очистка экрана, вывод на него двух текстовых строк: «Вам нравится чистый экран?» и «Ничего не мешает работе с нашей программой!». Далее, надписи не стираются с экрана, так как в этом случае пользователь их просто не увидит. Однако, когда мы научимся реагировать на информацию, вводимую пользователем, можно будет дожидаться нажатия им какой-либо клавиши, чтобы определить момент, когда информация прочитана, и после этого очистить экран.