• Помогите написать программы в Delphi для возведения числа в степень.

Ответы 1

  • function Pow(x, y: real): real;var  PowTmp: real;begin  if (x < 0) then     PowTmp := (-1) * Exp(y * Ln(Abs(x)))   else if (x > 0) then     PowTmp := Exp(y * Ln(Abs(x)))   else PowTmp := 0;   if not (odd(round(y))) then PowTmp := Abs(PowTmp);   if (y = 0) then PowTmp := 1;   Pow := PowTmp; end;Вот функция, приклейте, куда нужно:)
    • Автор:

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

Войти через Google

или

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

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

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