Модуль CRT Подготовила: учитель информатики Екимова М.Р.
Модуль Модуль-это библиотека процедур, функций, типов, констант, собранных в один программный модуль. Для использования этих компонент необходимый модуль нужно включить после имени программы: PROGRAM name; USES CRT;
Назначение модуля CRT Процедуры и функции модуля CRT предназначены: – для задержки экрана и его очистки, – для вывода текста в цвете, – для вывода его в заданном местоположении, – для считывания данных с нажатой клавиши, – для вывода звукового сигнала – и многое другое, предназначенное для вывода информации в текстовом режиме.
Пример 1. Очистка и задержка экрана Uses CRT; Var N:Integer; Begin CLRSCR; Write(Введите N=); Readln(N); WriteLn(N^2=, sqr(N) ); DELAY(1000); READKEY; End.
Вопросы 1. Что означает слово CLRSCR? 2. Какое значение стоит в процедуре DELAY? 3. Для чего используется READKEY?
Пример 2. Изменение цвета текста Uses CRT; Var R:Real; Begin CLRSCR; TEXTBACKGROUND(Black); TEXTCOLOR(White); Write(Введите радиус R=); TEXTCOLOR(2); ReadLn( R ); TEXTCOLOR(5); WriteLn(Площадь круга S=, Pi*sqr(R):5:2 ); READKEY; End.
Вопросы 1. Что означает процедура TEXTBACKGROUND? 2. Что нужно изменить в программе, чтобы изменился цвет фона на экране полностью? 3. Определите цветовую палитру по заданным числовым значениям в TEXTCOLOR.
Цветовые константы Black0 Blue1 Green2 Cyan3 Red4 Magenta5 Brown6 LightGrey7 DarkGrey8 LightBlue9 LightGreen10 LightCyan11 LightRed12 LightMagenta13 Yellow14 White15
Задание 1 По заданному году вывести ваш возраст. Оформить диалог ввода и вывода данных в цветовой палитре.
Пример 3. Изменение местоположения Uses CRT; Var S:String; Begin CLRSCR; Write(My name is); GOTOXY(2, 1); ReadLn (S); GOTOXY(1, 11); Write(S); READKEY; End.
Вопросы 1. Что означают цифры в процедуре GOTOXY? 2. Найдите ошибку в программе и исправьте ее, чтобы вводилось и выводилось сообщение так: My name is Masha Masha
Задание 2 Вывести свою Фамилию Имя посимвольно в разных местах экрана с разным цветовым изображением букв.
Пример 4. Чтение символа с клавиатуры и вывод звукового сигнала Uses CRT; Var C:Char; Begin CLRSCR; C:=READKEY; SOUND(220); Write(Вы нажали символ –, C, с кодом, ORD(C) ); DELAY(1000); NOSOUND; End.
Вопросы Определите код клавиши Enter, Esc, BackSpace, Пробел. Почему символы нажатых клавиш отображаются не так как на клавиатуре? Почему не определяются коды клавиш управления курсором: Вверх, Вниз, Влево, Вправо?
Задание 3 Запросить ввод пароля из 6-х символов. Вместо введенных символов выводить звездочку. Вывести пароль в центре экрана в обратном порядке. Каждый символ выводить другим цветом.