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

WHILE S do Instruction ;

Оператор цикла WHILE

Until S ;

PN

. . .

P2 ;

P1 ;

Repeat

Оператор цикла REPEAT

Оператор цикла REPEAT организует выполнение цикла, состоящего из любого числа операторов, с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла осуществляется при истинности некоторого логического выражения. Структура этого оператора:

В этой структуре:

P1, P2, . . . , PN¾ выполняемые операторы, составляющие тело цикла;

S ¾ логическое выражение, истинность которого проверяется в конце каждой итерации.

Так как слова repeat и until являются своеобразными операторными скобками, точке с запятой перед словом until ставить необязательно.

Пример 5. Вычислить значения функции

при

Рис.15. Блок-схема примера 5.

Программа:

Program Example_5 ;

Var

x , y , a , b ,h : real ;

Begin

a := 0.9 ; b := 1.4 ; h := 0.1 ; x := a ;

repeat

y := x*x * exp(-x) * sin(x) ;

WriteLn(‘x=‘,x:7:1,’ y=‘,y:10:5) ;

x := x + h ;

until x > b ;

End.

Оператор цикла WHILE организует выполнение одного оператора неизвестное заранее число раз. Выход из цикла осуществляется, если некоторое логическое выражение окажется ложным. Так как истинность логического выражения проверяется в начале каждой итерации, тело цикла может не выполниться ни разу.

Структура оператора WHILE имеет вид:

В этой структуре:

S ¾ логическое выражение, истинность которого проверяется в начале каждой итерации;

Instruction ¾ выполняемый оператор цикла.

Пример 6. Элементы последовательности вычисляются рекуррентно по формуле . Составить программу для вычисления и печати числа элементов последовательности, удовлетворяющих неравенству a_i>0,7 , если a_o = 27, a значения i изменяются от 1 до 10.

Расчётные формулы:

Пусть n - число вычисляемых элементов последовательности,

k - число элементов, удовлетворяющих условию a_i > 0,7.

Тогда

k_o =0 - начальное значение k.

Рис.16. Блок-схема примера 6.

Программа:

Program Example_6 ;

Var

a0, a : real ;

i, n, k : integer ;

Begin

WriteLn ;

WriteLn(' Введите n,a0');

ReadLn(n,a0) ;

WriteLn ;

WriteLn('Введено число выполняемых элементов последовательности:' ,n:4);

WriteLn(' Начальное значение :',a0:6:1) ;

k :=0 ;

i :=1 ;

a :=a0 ;

while i <= n do

begin a := a / 3.0 ;

if a > 0.7 then k := k + 1 ;

i := i + 1

end ;

WriteLn ;

WriteLn(' k=',k:4) ;

End.

Инструкции IFи CASE изменяют ход программы в зависимости от некоторого условия. Поэтому эти инструкции иногда называют инструкциями условного перехода. Существует еще одна ¾ инструкция безусловного перехода GOTO.

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

Общий вид оператора GOTO:

GOTO < Метка >

Метка ¾ это идентификатор с двоеточием, стоящий перед оператором, который должен быть выполнен после оператора GOTO.

Использовать оператор GOTO следует крайне осторожно. Широкое его применение без особых на то оснований ухудшает понимание логики работы программы. Безусловный переход можно осуществлять далеко не из каждого места программы и не в любое место программы. Так, нельзя с помощью этого оператора перейти из основной программы в подпрограмму или выйти из подпрограммы, не рекомендуется осуществлять переход внутрь структурированного оператора, т. к. он может дать неправильный результат и т. д.

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

Program Example_7 ;

Label

Out ;

Var

x, y, Rez : Integer ;

Begin

WriteLn(‘Введите делимое’) ;

ReadLn( x ) ;

WriteLn(‘Введите делитель’) ;

ReadLn( y ) ;

If y = 0 Then

begin

WriteLn(‘Деление на ноль’) ;

Goto Out ;

end ;

Rez := x div y ;

WriteLn(‘Частное равно:’,Rez) ;

Out : { метка “пустого” оператора }

End.