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.
, где а - действительное число с натуральным показателем.