По вещественному числу a>0 вычислить величину - Pascal
Формулировка задачи:
По вещественному числу a>0 вычислить величину
Корни вычислить с точностью ε=0.0001 по итерационной формуле:
Вычисления производить до тех пор, пока |yn+1-yn| < ε
Решение задачи: «По вещественному числу a>0 вычислить величину»
textual
Листинг программы
const eps = 1e-4; function pow(x : Real; k : Integer) : Real; var r : Real; begin r := 1; while k > 1 do begin Dec(k); r := r * x; end; pow := r; end; function pRoot(x : Real; k : Integer) : Real; var y, y0 : Real; begin y := 1; repeat y0 := y; y := y + (x / pow(y, k-1) - y) / k; until abs(y - y0) < eps; pRoot := y; end; var a : Real; begin ReadLn(a); WriteLn((pRoot(a,3) - pRoot(a*a+1,6))/(1 + pRoot(3+a,7)) :0:5); end.