WINCTRL
Я как понял нужен любой алгоритм?? Если да,то вот пример на PASCAL,если нет,то извеняюс! Видимо вопрос не понял. Число в степени
Program Stepen_chisla; Var Z, А : Real; M : integer; Function Step (N: integer; X:real): real; Var I: integer; Y: Real; Begin I:=1; Y:=1; While I<=N do Begin Y:=Y*X; I:=I+1; End; Step:=Y; End; {Конец функции} Begin Write(‘Введи степень и возводимое число’); Readln(Z,M); F:=Step(M,Z); Writeln(Z, ‘ в степени’, M, ‘=’,F); End.
Answers & Comments
Если да,то вот пример на PASCAL,если нет,то извеняюс! Видимо вопрос не понял.
Число в степени
Program Stepen_chisla;
Var
Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var
I: integer; Y: Real;
Begin
I:=1; Y:=1;
While I<=N do
Begin
Y:=Y*X; I:=I+1;
End;
Step:=Y;
End; {Конец функции}
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(M,Z);
Writeln(Z, ‘ в степени’, M, ‘=’,F);
End.