Приклади текстового виведення інформації на екран

1. Програма демонструє різні режими висновку на екран.

Uses CRT;

Procedure Print (S: String);

{ ця процедура виводить повідомлення (S) і чекає ENTER }

Begin

Writeln (S);

Writeln ('Натисніть клавішу');

Readkey

End;

Var

Lm: Word;

BEGIN

Lm:= Last Mode; { Запам'ятовує початковий режим роботи дисплея}

Text Mode (Co 40);

Print ('режим 40*25');

Text Mode (Co 80);

Print ('режим 80*25');

Text Mode (Co 40+ Font 8*8);

Print ('режим Co 40+ Font 8*8);

Text Mode (Co 80+ Font 8*8);

Print (' режим Co 80+ Font 8*8);

Text Mode (Lm){ відновлює початковий екранний режим}

END.

Колір символів, що виводяться, визначає процедура

Text Color (Color: Byte)

Код кольору символу

Колір фону визначає процедура

Text Background (Color: byte)

Код кольору фону