37)Метки паскаль, оператор безусловного перехода, примеры

Иногда возникает необходимость безусловного перехода, чтобы программа перескакивала из одного места программы в другое.

Для этих целей используют оператор безусловного перехода.

goto <метка>;

Метка — либо число, либо произвольный идентификатор. Меткой можно пометить любой оператор программы. <метка>:<оператор>;

Оператор безусловного перехода.

Оператор безусловного (быстрого) перехода GOTO позволяет изменить стандартный последовательный порядок выполнения операторов и перейти к выполнению программы, начиная с заданного оператора.

Форма записи оператора.

GOTO <метка>

Он указывает, что дальнейшая работа программы должна продолжатся с оператора, на котором стоит <метка>. Оператор, на который происходит переход, должен быть помечен меткой. Эта же метка должна быть указана в операторе GOTO, и описана в разделе описания меток.

Описание меток.

Метки используемые в TP, могут быть двух типов: - целым числом в диапазоне от 0 до 9999; - обычным идентификатором.

Все перечисленные метки должны быть перечислены в разделе объявления меток, начинающимся зарезервированным словом label, например: label 1, 2, Metka;

Одной меткой можно пометить только один оператор. Метка от помеченного оператора отделяется двоеточием. Метка может устанавливаться перед любым оператором, в том числе и перед пустым оператором. Например:

1: Write('Привет ');

П р и м е р 1.

Найти частное от деления целых чисел.

PROGRAM Ex_1;

Label

Out; {описание метки}

Var {описание переменных}

X,Y,Res: Integer;

Begin

Write('Введите делимое: '); {вывод сообщения на экран}

Readln(X); {ввод числа}

Write('Введите делитель: ');

Redln(Y);

if Y = 0 then {ветвление}

begin {составной оператор}

Writeln('деление на ноль');

GOTO Out; {использование GOTO}

end;

Res := X div Y;

Write('Частное = ',Res);

Out: {метка на "пустой" оператор}

End.

38)(Паскаль) Счетные операторы цикла. Примеры использования

Счетный оператор цикла FOR(цикл с параметром) используется в программе в случае когда заранее известно число повторений в цикле. Этот оператор имеет следующую структуру:

FOR<Параметр цикла>:=<Нач. значение>TO<Кон. значение>DO<Оператор>.

Параметр цикла – переменная целого типа, также нач. и кон.значения. Шаг наращивания параметра цикла строго постоянен и равен 1. Возможен шаг -1, тогда вместо TODOWNTO.

Пример 1.

Данапоследовательностьцелыхчисел, состоящаяиз 25 элементов. Вычислитьсуммуэлементовпоследовательности.

Program primer1;

Vari, a, s : integer;

Begin

x := 0;

For i := 1 to 25 do

begin

Read (a);

x := x + a;

end;

Write ('Суммаэлементовравна ', x);

End.

Пример 2.

Решим задание из примера 1 используя конструкцию оператора For, в которой шаг наращивания будет равен -1.

Program primer2;

Vari, a, s : integer;

Begin

x := 0;

For i := 25 downto 1 do

begin

Read (a);

x := x + a;

end;

Write ('Суммаэлементовравна ', x);

End.