Интеграционная формула Ньютона

[qwer379]

Здравствуйте! Помогите, пожалуйста, вот с такой задачей, может кто-то уже решал подобные задачки и знает алгорит, а то я совсем даже не представляю, как её решать.

[k0tone]

program Newton;
 var
  e,x,y,h:real;

 procedure integration(h,e:real; var y:real);
  var
   k:integer;
  begin
   y:=x/2;
   h:=(1/2)*((x/y)-y);
   while abs(h)>=e do
    begin
     y:=y+h;
     h:=(1/2)*((x/y)-y);
    end;
  end;

 begin
 x:=2;
 e:=0.001;
 integration(h,e,y);
 writeln(y:6:3);
 readln;
 end.

проверьте, это то что вам нужно?

[qwer379]

Немного переделал, вот так:

program Z1;
var e,x,y,h:real;
procedure integration(h,e:real; var y:real);
var k:integer;
begin
y:=x/2;
h:=(1/2)*((x/y)-y);
while abs(h)>=e do
begin
y:=y+h;
h:=(1/2)*((x/y)-y);
end;
end;
begin
writeln('Zadaite x');
readln(x);
e:=0.001;
integration(h,e,y);
writeln(y:6:3);
readln;
end.

Там по условию было задать Х, и вывести как я понимаю У. Затра преподавателю покажу посмотрим что скажет.

Большое спасибо за помощь!!! очень помогли)

[Grag]

Интересно, какой умник придумал интеграционную формулу Ньютона??? Итерационная наверное...

[qwer379]

Сообщение от Grag

Интересно, какой умник придумал интеграционную формулу Ньютона??? Итерационная наверное...

: Все возможно я если честно в матике не петрю, преподу скажу может действительно ошиблась