Слайд 2
Какое назначение у модуля CRT?
Слайд 3
Подключение модуля CRT происходит по команде:
Uses Crt;
Слайд 4
Минимальной единицей управления экраном в текстовом режиме работы
является один символ.
Слайд 5
ClrScr – очистка текущего окна, курсор помещается в
верхний левый угол экрана. Экран закрашивается в чёрный цвет.
Слайд 7
Program Primer2;
Begin
Writeln(‘Мне нравится работать на
компьютере’);
Readln;
End.
Слайд 8
Program Primer2;
Uses Crt;
Begin
ClrScr;
Writeln(‘Мне нравится
работать на компьютере’);
Readln;
End.
Слайд 9
GotoXY(x,y) – перемещает курсор в позицию Х строки,
Y экрана.
1,1
X
y GotoXY(x,y);
Слайд 10
Program Primer2;
Uses Crt;
Begin
ClrScr;
GotoXY(20,20);
Writeln(‘Мне нравится работать на компьютере’);
Readln;
End.
Слайд 11
Установка цвета фона экрана:
TextBackGround(N) – задать цвета фона,
N – код цвета от 0 до 7.
ClrScr
– очистка экрана цветом N.
Слайд 12
Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr;
GotoXY(20,20);
Writeln(‘Мне нравится работать на
компьютере’);
Readln;
End.
Слайд 13
TextColor(N) – задание цвета выводимых на экран
символов, N принимает значения от 0 до 15.
N =
128 – код для получения мерцающего символа.
Слайд 14
Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr;
GotoXY(20,20);
TextColor(5);
Writeln(‘Мне нравится работать
на компьютере’);
Readln;
End.
Слайд 15
Window(x1, y1, x2,y2)
Вывод на экран окна.
Где
x1, y1 – координаты левого верхнего угла окна,
x2,
y2 – координаты правого нижнего угла.
X1
Х2
Y1
xxxfgfg
fffgghkgjhkglnbt
Y2 X1 X2
Слайд 17
Program Primer2;
Uses Crt;
Begin
TextBackGround(2);
ClrScr;
Window(13, 25, 66, 45);
TextBackGround(3);
ClrScr;
GotoXY(10,10);
TextColor(5);
Writeln(‘Мне нравится работать на компьютере’);
Readln;
End.
Слайд 18
Управление звуком
Sound(i) - активизирует звуковые средства ПК. I
– частота звучания в Герцах.
NoSound – отменяет звуковой режим.
Delay(r)
– приостанавливает работу программы на указанное число r миллисекунд.
Слайд 19
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
Практическая работа
Составить программу для вывода сообщения о себе
(фамилия, имя) в окне.
Окно расположено в верхнем левом углу
экрана. Цвета фона и текста, расположение слов в окне выбрать самостоятельно.