Реферат: Паскаль (практическое использование)

TextBackground(0);

TextColor(4);

CLRSCR;

Gotoxy(10,13);

Writeln('ВЫ ОШИБЛИСЬ!!! БУДЬТЕ ВНИМАТЕЛЬНЫ В СЛЕДУЮЩИЙ РАЗ!!!');

Delay(5000);

end;

label { раздел описания меток }

finish;

var {Описания раздела переменных}

D:record

end;

f:text; { файл итогов опроса}

a,b:integer; {переменные a,b - целого типа}

m,n,o,i:string; {переменные m,n,o,i - строкового типа}

Begin {начало программы}

TextBackground(1); {Установка цвета экрана}

TextColor(9); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(30,7); {Установка курсора в заданные координаты: X,Y}

WriteLn('УЧЕБНАЯ ПРОГРАММА');

Gotoxy(30,8); {Установка курсора в заданные координаты: X,Y}

WriteLn('"ТЕСТ ПО ИНФОРМАТИКЕ"');

Gotoxy(30,9); {Установка курсора в заданные координаты: X,Y}

WriteLn('(практическое использование');

Gotoxy(30,10); {Установка курсора в заданные координаты: X,Y}

WriteLn('среды Turbo Pascal)');

TextColor(14); {Установка цвета текста}

Gotoxy(45,14); {Установка курсора в заданные координаты: X,Y}