Ф У Н К Ц И И (продолжение)
Составить программу вычисления степени числа X с целым показателем n, используя функцию без параметров.
Program Step;
uses crt;
var n:integer;
x,y:real;
function St:real;
var i: integer;
begin
y:=1;
for i:=1 to n do y:=y*x;
St:=y
end;
Begin
clrscr;
write('Введите число :');
readln(x);
write('Введите степень :');
readln(n);
if n<0 then
begin
n:=-n; x:=1/x
end;
write('Число ',x,' в степени ',n,' равно ',St)
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу, применив функцию с параметрами.
3. Вычислить , при Х=3 ,используя функцию с параметрами.