Модуль CRT

Какое назначение у модуля CRT?
22.11.2014

Подключение модуля CRT происходит по команде:
Uses Crt;
22.11.2014

Минимальной единицей управления экраном в текстовом режиме работы является один символ.
22.11.2014

ClrScr – очистка текущего окна, курсор помещается в верхний левый угол экрана. Экран закрашивается в чёрный цвет.
22.11.2014

(1,1)
(80,80)
22.11.2014

Program Primer2;
Begin
Writeln(‘Мне нравится работать на компьютере’); Readln;
End.
22.11.2014

Program Primer2;
Uses Crt;
Begin
ClrScr;
Writeln(‘Мне нравится работать на компьютере’);
Readln;
End.
22.11.2014

GotoXY(x,y) – перемещает курсор в позицию Х строки,
Y экрана.
1,1 X y GotoXY(x,y);
22.11.2014

Program Primer2;
Uses Crt;
Begin
ClrScr;
GotoXY(20,20);
Writeln(‘Мне нравится работать на компьютере’); Readln;
End.
22.11.2014

Установка цвета фона экрана:
TextBackGround(N) – задать цвета фона, N – код цвета от 0 до 7.
ClrScr – очистка экрана цветом N.
22.11.2014

Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr; GotoXY(20,20);
Writeln(‘Мне нравится работать на компьютере’); Readln; End.
22.11.2014

TextColor(N) – задание цвета выводимых на экран символов, N принимает значения от 0 до 15.
N = 128 – код для получения мерцающего символа.
22.11.2014

Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr; GotoXY(20,20);
TextColor(5);
Writeln(‘Мне нравится работать на компьютере’); Readln;
End.
22.11.2014

Window(x1, y1, x2,y2)
Вывод на экран окна.
Где x1, y1 – координаты левого верхнего угла окна,
x2, y2 – координаты правого нижнего угла.
22.11.2014

X1 Х2 Y1 xxxfgfg
fffgghkgjhkglnbt
Y2 X1 X2
22.11.2014

Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr;
Window(13, 25, 66, 45);
TextBackGround(3);
ClrScr; GotoXY(10,10); TextColor(5);
Writeln(‘Мне нравится работать на компьютере’); Readln;
End.
22.11.2014

Управление звуком
Sound(i) - активизирует звуковые средства ПК. I – частота звучания в Герцах.
NoSound – отменяет звуковой режим.
Delay(r) – приостанавливает работу программы на указанное число r миллисекунд.
22.11.2014

Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr;
Window(13, 25, 66, 45);
TextBackGround(3);
ClrScr; GotoXY(10,10); TextColor(5);
Writeln(‘Мне нравится работать на компьютере’);
Sound(500);
Delay(1000);
NoSound; Readln;
End.
22.11.2014

Электронная физминутка
для глаз

Практическая работа
Составить программу для вывода сообщения о себе (фамилия, имя) в окне.
Окно расположено в верхнем левом углу экрана. Цвета фона и текста, расположение слов в окне выбрать самостоятельно.