Лабораторная работа 3. Как организовать диалог

Задание 1

Скопируйте в Ваш каталог файлы: lab3_1.pas, lab3_2.pas, lab3_3.pas, lab3_4.pas, lab3_5.pas, lab3_6.pas и demo1crt.pas из каталога PAS_TXT. После этого запустите среду Turbo Pascal.

1. Команда ввода данных

Команда присваивания обеспечивает запись данных в память непосредственно в программе. Довольно часто требуется данные получить не во время НАПИСАНИЯ программы, а во время ее РАБОТЫ. Для этого используется команда ввода READLN. Общий вид команды:

READLN(<Список ввода>)

Например:

var fantom : integer;

story :string;

begin

...

Write(‘Сколько у Вас увлечений:’);

ReadLn(fantom);

...

WriteLn(‘Введите название любимого блюда:’);

ReadLn(story);

...

end.

Задание 2

Считайте с диска файл lab3_1.pas. Разберитесь в тексте программы. Запустите программу на выполнение. Постарайтесь понять, КАК работает команда (процедура) ВВОДА. Выпишите в тетрадь алгоритм работы процедуры READLN.

Задание 3

Считайте с диска файл lab3_2.pas. Разберитесь в тексте программы. Выполните предложенные там задания.

Задание 4

Считайте с диска файл lab3_3.pas. Выполните предложенные там задания. Пригласите преподавателя и продемонстрируйте подготовленную программу.

• ВНИМАНИЕ! Не следует стирать в программе имеющиеся там комментарии.

2. Библиотека Crt

В среду Turbo Pascal включена стандартная⁵ библиотека подпрограмм Crt. Познакомимся подробнее с некоторыми возможностями, предоставляемыми данной библиотекой.

2.1. Определение цвета символов

Процедура TextColor (Color : byte) позволяет задать цвет выводимых символов. При этом параметр Color может принимать одно из следующих значений:

Black	=	0	черный	DarkGray	= 8	темно-серый
Blue	=	1	синий	LightBlue	= 9	ярко-синий
Green	=	2	зеленый	LightGreen	=10	ярко-зеленый
Cyan	=	3	голубой	LightCyan	=11	ярко-голубой
Red	=	4	красный	LightRed	=12	розовый
Magenta	=	5	фиоле­то­вый	LightMagenta	=13	малиновый
Brown	=	6	корич­не­вый	Yellow	=14	желтый
LightGray	=	7	светло-серый	White	=15	белый

Данная запись означает, что в качестве параметра может выступать целое положительное число от 0 до 15 (всего 16 цветов). Компьютер “понимает” также и соответствующие названия этих цветов на английском языке.

2.2. Определение цвета фона

Процедура TextBackGround (Color : byte) обеспечивает задание цвета фона, на котором выводится текст. В качестве параметра процедуры могут выступать цвета от Black до LightGray (числа от 0 до 7).

2.3. Очистка экрана

Процедура ClrScr позволяет очистить экран и установить курсор в его левый верхний угол. При этом экран окрашивается цветом фона (т.е. либо черным по умолчанию, либо цветом, заданным процедурой TextBackGround).

Задание 5

Считайте с диска файл demo1crt.pas. Обратите внимание на то, как:

а) подключается библиотека Crt;

б) задается цвет символов;

в) задается цвет фона;

г) осуществляется задержка выполнения программы.

Задание 6

Выпишите себе в тетрадь название и назначение процедур TextColor, TextBackGround, ClrScr, Delay, GotoXY.

Задание 7

Считайте с диска файл lab3_4.pas. Разберитесь в тексте программы. Выполните предложенные там задания.

Задание 8

Считайте с диска файл lab3_5.pas. В этом файле содержится заголовок программы, оператор начала и конца программы. Вам следует из этой “бол­ван­ки” составить программу, позволяющую определять количество денег, которое Вы сможете получить через N месяцев, положив в банк К рублей под P процентов годовых.

Задание 9

Считайте с диска файл lab3_6.pas. В этом файле содержатся итоговые задания. Составьте предложенные программы в различных окнах среды Turbo Pascal.

• Продемонстрируйте готовые программы преподавателю.

Задание 10

После демонстрации программ преподавателю выйдите из среды Turbo Pascal. Удалите из Вашего каталога файлы lab3_1.pas – lab3_6.pas и demo1crt.pas из каталога PAS_TXT.