Практическое занятие №13

HАИМЕНОВАНИЕ: Стандартный модуль Crt

1.ЦЕЛЬ РАБОТЫ: Изучение модуля Crt

2.Подготовка к занятию:

2.1. Изучить предложенную литературу.

2.2. Подготовить бланк отчёта.

3.Литература:

3.1 Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное. Учебное пособие. – М.: Горячая линия – Телеком, 2009

3.2 Голицына О.Л., Попов И.И. Основы алгоритмизации и программирования. – Форум, 2010

3.3Семакин И.Г., Шестаков А.П. Основы алгоритмизации и программирования. – М.: Издательский центр «Академия», 2008

3.4Семакин И.Г., Шестаков А.П. Основы программирования. – М.: Издательский центр «Академия», 2008

4. ПЕРЕЧЕНЬ ОБОРУДОВАНИЯ И ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ: 4.1. Персональный IBM PC.

5.Задание:

5.1 Последовательно, всеми используемыми в Паскале цветами, измините цвет фона, с задержкой во времени.

5.2 Выведите на серидину экрана слово «ПРИВЕТ».

5.3 Выведите на экран слово «HELLO» 10 раз, в произвольных местах с произвольным цветом.

6. Порядок выполнения работы:

6.1 По предложенной литературе изучить необходимый материал;

6.2 Выполнить задания практического занятия и записать листинг программы;

6.3 Дать ответы на контрольные вопросы;

7. СОДЕРЖАНИЕ ОТЧЕТА:

7.1 Наименование и цель работы

7.2 Код программы

7.3 Записать результат (листинг) выполненых заданий.

7.4 Ответы на контрольные вопросы

7.5 Вывод о проделанной работе

8. Контрольные вопросы:

8.1 Что содержит в себе модуль CRT?

8.2 Количество доступных цветов?

8.3 Цвет текста определяется процедурой?

8.4 Процедура временной задержки ?

ПРИЛОЖЕНИЕ:

Используя возможности модуля crt, оформить выводимую на экран информацию.

uses crt;

var i,k,n,x: byte;

begin

clrscr;

randomize;

i := random(10);

window(20,5,60,7);

textbackground(blue);

clrscr;

textcolor(lightgray);

k := 0;

gotoxy(4,2);

write('Введите число: ');

x := 19;

repeat

gotoxy(x,2);

readln(n);

k := k + 1;

x := x + 2

until i = n;

window(20,9,60,11);

textattr := 4 shl 4 + 14;

clrscr;

gotoxy(4,2);

writeln('Угадано с ', k, '-ой попытки');

readln

end.

Модуль Crt позволяет выводить цветные символы на цветном экране. Хотя по-прежнему отображение будет происходить в текстовом режиме. Текстовый режим означает, что на экране могут выводиться только определенные символы в определенных местах (знакоместах). Можно представить экран, разделенным вертикальными и горизонтальными линиями на ячейки. В эти ячейки можно «вписывать» различные символы. У каждой ячейки есть адрес.

Модуль Crt содержит ряд процедур, позволяющих задавать цвет символов и экрана, очищать экран, менять позицию курсора и др.

Стандартный экран в Паскале чаще формируется из 25 сток и 80 столбцов. Строки нумеруются сверху вниз, а столбцы слева на право. Нумерация начинается с единицы (что может показаться непривычным).

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

Для того чтобы в программе можно было использовать содержимое модуля Crt, его надо импортировать (подключить) в программу. Делается это в секции, которая начинается со слова uses.

Чтобы очистить экран от всех надписей, требуется выполнить процедуру clrscr. Если перед этим был задан цвет экрана (с помощьюtextbackground), то экран будет залит соответствующим цветом.

Цвет текста определяется процедурой textcolor, позиция курсора –gotoxy.

Для вывода символов на экран используются стандартные процедурыwrite и writeln.

Также существует процедура временной задержки delay (аргумент задается в микросекундах), если требуется выводить символы не сразу, а постепенно.

uses

crt;

 begin

textbackground (7);

clrscr;

  textcolor (12);

gotoxy (10,5);

write ('Hi, world!');

  delay (1500);

  gotoxy (40,22);

textcolor (14);

write ('Yes');

 readln

end.