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