Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] Pascal | Посчитать корень n степени (http://forum.oszone.net/showthread.php?t=165611)

morgan1991 29-01-2010 23:55 1333943

Pascal | Посчитать корень n степени
 
Вложений: 1
Здравствуйте!
Подскажите пожалуйста, как посчитать такой корень:

rus-4-ever 30-01-2010 00:06 1333952

If (x > 0) then y:=exp(ln(x)/n))
else writeln('Error: x**n -> x <= 0 !!!');

вроде так... надо по математике проверить...

Virtyaluk 30-01-2010 12:43 1334135

morgan1991,
Q:> А как посчитать x**3 или корень четвертой степени из x?
A: Hе мешало бы вспомнить школьный курс математики.

x**n=exp(ln(x)*n))
Ограничение: x>0
т.о. надо написать:
Код:

    If (x > 0) then y:=exp(ln(x)*n))
                else writeln('Error: x**n -> x <= 0 !!!');

основной код напишешь сам т.е. ввод чисел и т.д.

pva 30-01-2010 14:45 1334261


Дайте ссылок на алгоритмы антиплагиата? (я на больничном, мне заняться нечем)

Admiral 31-01-2010 15:49 1335016

morgan1991 Функция возведения в степень
Применительно к теме использовать так
Код:

Var y:Real;
{...}
y := Pow(5, 1/7);



Время: 20:07.

Время: 20:07.
© OSzone.net 2001-