По вещественному числу 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.

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы