Составить программу вычисления, используя процедуру возведения вещественного числа в целую степень

@GaRiCk7 · Регистрация: 09.10.2013

Составить программу вычисления, используя процедуру возведения вещественного числа в целую степень.

Pascal

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

@CodeR · 20.11.2013, 07:59

Pascal

Var x,y:real;
     n:byte;
Procedure Step (n: integer; x: real; var y: real);
Var i: integer;
Begin
y:=1;
for i:=1 to n do
y:=y*x;
End;
Begin
     write('Число,которое возводить: ');readln(x);
     write('Степень: ');readln(n);
     Step(n,x,y);
     writeln('Число ',x,' в степени ',n,' = ',y);
End.

Опции темы