Program SecondErasesFirst2;
{заголовок программы, имя программы – SecondErasesFirst2}
Uses{начало раздела подключения модулей}
CRT; {подключение модуля CRT}
Begin{начало раздела описания логики программы}
TextColor(White);{установка белого цвета в качестве текущего для текста}
TextBackGround(Black);
{Установка черного цвета в качестве текущего для фона}
WriteLn; {установка каретки в новую строку}
Write('Первая строка'); {вывод первой строки}
GotoXY(WhereX - 2, WhereY);
{устанавливаем каретку в новое положение – на два символа левее предыдущего с помощью передачи процедуре GotoXY арифметических выражений, содержащих вызовы функций WhereX и WhereY}
Write('Вторая строка'); {вывод второй строки}
ReadKey; {программа приостанавливается до нажатия пользователем клавиши}
CIrScr; {очистка экрана}
End.{Конец раздела описания логики программы}
На этом изучение возможностей модуля crt не закончено, однако пока они нам не понадобятся. Остальные полезные процедуры и функции данного модуля будут рассмотрены ниже, по мере появления в них необходимости. Мы переходим к изучению графических возможностей языка Turbo Pascal.
Вывод информации на экран в графическом режиме
Основы работы с графическими режимами
