slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
Для задания одного из текстовых режимов используется процедура textmode(mode:word); PowerPoint Presentation
Download Presentation
Для задания одного из текстовых режимов используется процедура textmode(mode:word);

Loading in 2 Seconds...

  share
play fullscreen
1 / 14
claudia-dale

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

70 Views
Download Presentation
Для задания одного из текстовых режимов используется процедура textmode(mode:word);
An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

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

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

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

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

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

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

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

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

  9. Пример 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.

  10. Пример 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.