Question

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

Answer 1

Циклом долго.  

Эта проблема уже давно решена. вот готовая отлаженная функция:  

Function Pow(A,B:Real):Real;  

{ Функция возведения в степень (A^B) }  

Var T:Real;  

Begin  

T := Abs(A);  

If A < 0 Then Pow := (-1)*Exp(B*Ln(T))  

Else Pow := Exp(B*Ln(T));  

End;

Answer 2

спасибо конечно,но мне именно с циклов надо,задали дз

Answer 3

можешь помочь?

Answer 4

Program stp;Uses Crt;
Var C,A,N,s:Integer;
Begin;CLRSCR;
Write('Vvedite chislo: ');Readln(A);
Write('VVedite stepen: ');Readln(N);
c:=1;s:=n;

While N<>0 Do
Begin
C:=C*A;
N:=N-1;
End;
Writeln('chislo ',A,' v stepeni ',s,' ravno ',C);Readln;
End. Вроде так...

Answer 5

спасибо большое