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

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='1' then a:=a +1 {если <условие> то ...}

else {Условие не выполнено}

begin {начало составного оператора}

Error { Процедура вывода ошибки }

end; {конец составного оператора}

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

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

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

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

Writeln('9. Какая из последовательностей команд приведет исполнителя Черепашку в первоначальное место и положение?');

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

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

Writeln('1) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед '); {вывод текста на экран}

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

Writeln(' (1 см), направо (90), вперед (1 см), направо (90);'); {вывод текста на экран}

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

Writeln('2) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед');

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

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

Writeln(' (1 см), направо (90), вперед (1 см);');

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