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

WriteLn('Фамилия:'); {вывод текста на экран}

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

readln(m); {ввод значения m с клавиатуры}

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

writeln('Класс (с буквой):'); {вывод текста на экран}

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

readln(n); {ввод значения n с клавиатуры}

a:=0; {переменной а присваивается число 0}

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

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

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

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

Writeln('1. В информатике количество информации определяется как:'); {вывод текста на экран}

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

Writeln('1) достоверность информации;');

{вывод текста на экран}

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

Writeln('2) скорость передачи информации; ');

{вывод текста на экран}

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

Writeln('3) мера уменьшения неопределенности;');

{вывод текста на экран}

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

Writeln('4) объем оперативной памяти.');

{вывод текста на экран}

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

Readln(i); {ввод значения i с клавиатуры}

if i='10' then goto finish;

if i='3' then a:=a +1 {если <условие> то}