Язык программирования Pascal. Линейные программы. Васильев В.В - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

11
жатия клавиши Enter
11. Отправьте программу на
исполнение
Run│Run (Исполнение│Исполнить ) или Ctrl+F9
Успешным выполнением программы будет фрагмент черного экрана MS-
DOS, на котором белыми символами (после реквизитов Паскаля) напечатаны
выводимые программой символы.
Обратите внимание на то, что расстояние между двумя точками выводит-
ся в форме записи вещественного числа с плавающей точкой . Выведем это
значение в форме с фиксированной точкой и одним знаком после запятой .
12. Выведите результат в виде числа с одним
знаком после запятой
Исправьте R:6:1
13. Отправьте программу на
исполнение
Run│Run (Исполнение│Исполнить ) или Ctrl+F9
Проверьте правильность работы программы, подставляя разные значе-
ния, в том числе и отрицательные вещественные числа!
Научимся делать принудительную очистку экрана, управлять цветом фона
и символов. Познакомимся с тремя процедурами, входящими в библиотеку Crt,
поставляемую вместе с Паскалем.
ClrScr – очистка экрана.
TextBackGround(Цвет фона ) - установка цвета фона.
TextColor(Цвет символов) – установка цвета символов.
В таблице даны константы цветов, определенные в библиотеке Crt.
Black
Черный
Magenta
Фиолетовый
LigtGreen
Светло-зеленый
Blue
Синий
Brown
Коричневый
LigtCyan
Светло-бирюзовый
Green
Зеле-
ный
LigtGray
Светло-серый
LigtRed
Розовый
Cyan
Бирю -
зовый
DarkGray
Темно-серый
LigtMagenta
Малиновый
Red
Крас-
ный
LigtBlue
Светло-синий
Yellow
Желтый
Значением цвета фона и символов может быть целое число от 0 (Black) –
черный цвет до 15 (White) – белый цвет .
Получим белые символы на синем фоне.
14. Подключите к програм-
ме библиотеку Crt
Напишите после заголовка программы строку
Uses Crt;
15. Установите синий цвет
фона
Напишите после слова Begin
команду TextBackGround(Blue);
16. Очистите экран . Экран
заполняется установлен -
ным цветом фона
Напишите после TextBackGround(Blue);
команду ClrScr;
17. Установите белый цвет
символов
Напишите после ClrScr; команду
TextColor(White);
18. Отправьте программу на Run│Run (Исполнение│Исполнить ) или Ctrl+F9

Страницы