Вычисление выражения, используя функцию для возведения действительного числа в целую степень

@lion-6v · Регистрация: 19.12.2012

Студворк — интернет-сервис помощи студентам

Составить программу для вычисления выражения , a-действительное, m-целое, используя функцию для возведения действительного числа в целую степень.

Pascal

Function Step(n:integer; x:real):real;
Var i: integer;
 y: real; 
Begin
        y:=1; 
        for i:=1 to n do
        y:=y*x;
Step:=y;
End;

@CodeR · 11.03.2013, 13:46

Pascal

Function Step(n:integer; x:real):real;
Var i: integer;
 y: real; 
Begin
        y:=1; 
        for i:=1 to n do
        y:=y*x;
Step:=y;
End;
Var a:real;
    m:byte;
Begin
    write('a = ');readln(a);
    write('m = ');readln(m);
    writeln(a,'^',m,' = ',Step(m,a):0:2);
    readln;
End.

Опции темы