Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Оператор перехода к метке

Оператор перехода служит для передачи управления помеченному оператору и имеет вид:

Goto "метка";

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

M1: Write('Введите x>=0'); Readln(x); If x<0 Then Goto M1;

Метки описываются в разделе описания, например: Label M1;

Метка не может стоять перед оператором Begin... end;

Следует избегать переходов внутрь операторов цикла.

Оператор перехода часто применяется для "досрочного" выхода из операторов цикла. Приведем пример операторов для расчета конечной суммы вклада через 10 месяцев (pr - процентная ставка), при условии досрочного снятия вклада, если начальная сумма "S1" возрасла более чем в два раза:

S:= S1; For i:= 1 to 10 do begin

S:= S*(1 + pr/100); If S > 2*S1 Then Goto M1 end;

M1: Writeln(S);

Приведем пример программы расчета наибольшего общего делителя двух натуральных чисел по алгоритму Евклида: наибольший обший делитель натуральных чисел "а" и "в" равен наибольшему общему делителю меньшего из чисел ("a" или "b") и остатка от деления большего числа на меньшее.

PROGRAM del;

Label M1, M2, M3;

var b, a: longint;

Begin

M3: Writeln('Введите два натуральных числа'); readln(a, b);

Writeln; if (a <= 0) or (b <= 0) then goto M3;

{------------------------------------------------ алгоритм -1 -------------------------------------------------}

M1: if a = b then Writeln('наибольший делитель =', a) else

begin if a > b then a:= a-b else b:= b-a;

Goto M1 end; Writeln;

{ ---------------------------------------------- алгоритм -2 ------------------------------------------------}

M2: if a > b then a:= a mod b else b:= b mod a;

if (a= 0) or (b= 0) then Writeln('наибольший делитель =',a+b)

Else goto M2;

Writeln('Нажмите Enter'); readln;

End.

Блок - схемы алгоритмов

При обучении программированию используется графическое описание алгоритма решения задачи в виде блок - схемы. Такое представление алгоритма достаточно удобно и наглядно показывает последовательность выполнения операторов прогаммы. Приведем основные обозначения, применяемые в блок - схемах.

Ввод, Вывод Выполнить Проверить Начало, конец

данных оператор условие программы

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

N Î i1, i2,..., ik N: оператор

Да с меткой N

Оператор выбора: нет

Оператор

Проверка оператор 1

Условия да

Условный оператор: нет

Оператор 2

Да

i:= N1 i > N2

Оператор цикла с параметром: нет

(значение параметра возрастает)

i:=i+1 оператор

Оператор цикла с постусловием:

Операторы Проверка да

Условия

Нет

Оператор цикла с предусловием:

Проверка нет

Условия

Да