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

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

Задать свой вопрос
1 ответ

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

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

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

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

Var T:Real;  

Begin  

T := Абс(A);  

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

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

End;

Njelin Gena
спасибо окончательно,но мне именно с циклов надобно,задали дз
Анжелика Валячева
можешь посодействовать?
Tatjana
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. Вроде так...
Semjon Dudik
спасибо большое
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт