Для задания одного из текстовых режимов используется процедура textmode(mode:word);

Модуль CRT – библиотека функций и процедур, предназначенных для увеличения возможностей текстового ввода-вывода данных. Подключается командой Uses CRT;

Для задания одного изтекстовых режимовиспользуется процедура textmode(mode:word); где mode – код текстового режима

Текстовые режимы экрана: • 0 - 40 х 25, черно-белый • 1 - 40 х 25, цветной • 2 - 80 х 25, черно-белый • 3 - 80 х 25, цветной • 256 – 80/40 x 50, цветной

Координаты левого верхнего угла экрана всегда X1=1 и Y1=1. Приращение значения по оси X идет слева на право, а по оси Y сверху вниз X=1,Y=1 X=40,Y=1 X=1, Y=25

0- черный 1- темно-синий 2- темно-зеленый 3- бирюзовый 4- красный 5- фиолетовый 6- коричневый 7- светло-серый 8- темно-серый 9- голубой 10- салатовый 11- светло-бирюзовый 12- розовый 13- малиновый 14- желтый 15- белый 128- мерцание символа Цвета фона и символов

Фрагменты программ: Закрашивание фонаэкрана: TextBackground(1); ClrScr; Закрашивание фона текстового окна: Window(10,5,40,20); TextBackground(1); ClrScr;

Пример1. uses crt; begin textmode(3); textbackground(2); clrscr; textcolor(4); gotoxy(10,10); writeln(‘Привет!’); readln; end.

Пример 2. uses crt; begin textmode(1); textbackground(2); clrscr; window(10,10,20,15); textbackground(1); clrscr; textcolor(15); writeln(‘Привет!’); readln; end.

Пример 3. uses crt; var i:integer; begin textbackground(2); clrscr; for i:=1 to 11 do begin textcolor(i+4); writeln(‘ ’:2*i,’Привет!’); delay(15000); end; readln; end.

Пример 4. uses crt; var hg,nota:integer; begin randomize; repeat nota:=random(8); write(nota,’ ‘); case nota of 0: hg:=262; {до} 1: hg:=294;{ре} 2: hg:=330; {ми} 3: hg:=349;{фа} 4: hg:=392; {соль} 5: hg:=440;{ля} 6: hg:=494; {си} 7: hg:=524;{до} end; sound(hg); delay(1500); nosound; until keypressed; end.

Для задания одного из текстовых режимов используется процедура textmode(mode:word);