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

Ответы 5

  • спасибо конечно,но мне именно с циклов надо,задали дз
  • можешь помочь?
    • Автор:

      serrano
    • 5 лет назад
    • 0
  • 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. Вроде так...
  • спасибо большое
  • Циклом долго.  

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

    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;

    • Автор:

      conrad
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years