Блок - схема циклического процесса с предусловием
Блок - схема циклического процесса с предусловием
Операторы повтора
1. В языке Pascal различают три вида операторов цикла:
2. Выражение, управляющее повторениями, должно иметь булевский тип.
3. В случае если число повторений оператора (составного оператора) заранее неизвестно, а задано лишь условие его повторения (или окончания) используются операторы while, repeat.
4. Оператор for используется, если число повторений заранее известно.
Оператор цикла с параметром ( For )
Число повторений заранее известно.
Предусматривает повторное выполнение <оператора> с одновременным изменением по правилу арифметической прогрессии значения, присваемого управляющей переменной.
<переменная> - параметр цикла; является переменной порядкового типа;
<выражение-1> - выражение определяет начальное значение параметра цикла;
<выражение-2> - выражение определяет конечное значение параметра цикла;
<оператор> - выполняемый оператор.
Порядок выполнения оператора For – to
Правила организации цикла:
1. Параметр цикла - <переменная>, начальное - <выражение-1>, конечное - <выражение-2> значения должны быть одинакового типа, их тип может быть любым скалярным типов, кроме вещественного.
2. Цикл не выполняется вообще, если:
начальное значение больше, чем конечное для For – to
начальное значение меньше, чем конечное для For - downto.
3. По окончании цикла значение переменной цикла не определено и не может использоваться в дальнейших вычислениях.
4. После ключевого слова Do может стоять только один оператор.
Запрещается
1. Изменять переменную цикла.
For I := 1 to N do
begin
Y := Y * A;
I := I + 2
end;
2. Входить в цикл с помощью оператора Goto, так как в этом случае начальное и конечное значения параметра цикла не будет определено.
goto METKA1;
For I := 1 to N do
begin
METKA1: Y := Y * A;
I := I + 2
end;
Пример 1
Вычислить
значение функции
,
где а - действительное число с натуральным
показателем.
Program MULTI_1; Var A,Y:Real; I,N: Integer;
Begin Write(’Введите число А-’); Readln (A); Write(’Введите степень числа А - ’); Readln ( N ); Y:= 1; For I:= 1 to N do Y:= Y * A; Write (’Результат -’ , Y ) End.
|
Program MULTI_2; Var A,Y:Real; I,N: Integer; Begin Write(’Введите число А-’); Readln (A); Write(’Введите степень числа А - ’); Readln ( N ); Y:= 1; For I:= N downto 1 do Y:= Y * A; Write (’Результат -’ , Y ) End.
|