Pascal

Моля Ви да ми кажете как да получа корен 3-ти или корен n-ти в програма на паскал - под ДОС

защо да ти казваме?

Келеш

ммм квадратен корен са вади трудноооооооооо, по-трудно от кръглия корен. а кръглия корен се вади кат на КРАСТАВИЦАТА, КРАСТАВИЦАТА ААА АААА ААААА А А90% ВОДА!

Машина за отделяне на кожа и сланина от парени свине

x^y = EXP(y*LOG(x))

Има една гняз, че

(1) ln(x^k) = k ln (x)

и друга, че
(2) e ^ ln(x) = x

и трета, че
(3) корен N-ти от X на М-та степен е X^(M/N)

В частност корен квадратен е X^(1/2), а кубичен X^(1/3)

Начи ако имаме функции
EXP(X) - намира e^x
и
ln(X) намира ln(x)

за корен N-ти от X на M-та имаме, че е EXP((M/N)*ln(X))

В частност squrt(x, n) = exp((1.0/Real(n))*ln(x))

Пробвай го де, може да греша. Късничко е. тия неща разбира се важат за съответните дефиниционни множества на функциите. Примерно нема да се разберем да вдигаш на отрицателна степен.

System Doctor Error:
Your girlfriend is pregnant.
(A)bort, (M)arry, (I)gnore?_

Някои по-умни от мен хора предлагат да се използва метод на Нютон (google: Newton method) за намиране на корен на уравнението f(x) = x^n - a = 0, където:
корен n-ти от a е равен на x. Т.е. a^(1/n) = x; a = x^n; x^n - a = 0.
В твоя случай n = 3.
А за метода на Нютон имаш:
x_0 = 1
x_{k+1} = (2/3)*x_k + a/(3*(x_k)^2)
//x_k е x с долен индекс k
Въртиш цикъл докато разликата между две последователни приближения стане "достатъчно" малка.

П.П. В общия случай x_{k+1} = ((n-1)/n)*x_k + a/(n*x_k^(n-1)). И още нещо, при n - четно имаш решения +x и -x.

Green Peas!

е неее,
ако не се бъзикаш, минавш в категорията на индийските морски свинчета

добрютру.
нищо не си видял.

(и тези са индийци. вярно, не паскалски. )

Green Peas!

Благодаря на всички - разбрах го как става