Численные методы вычисления корней

[BarT(48rus)]

спс)))я думал есть как в С++, из фигурных скобок)

[BarT(48rus)]

всё таки что то не так, вот не хочет она работать как положено(((

program laba2;
type
Massiv=array[1..4] of real;
var
p:massiv;
n, i:integer;
x0, e, xc, xn, dx, xmin, xmax:real;
begin
write ('e=');
readln (e);
for i:=1 to 4 do
 begin
  write('p[',i,']=');
  readln(p[i]);
  xmin:=-8/p[i];
  writeln('xmin=',xmin);
  xmax:=8/p[i];
  writeln('xmax=',xmax);
  write('x0=');
  readln(x0);
  xn:=x0;
  n:=0;
   repeat
    xc:=xn;
    xn:=8*sin(xc)/p[i];
    dx:=abs(xn-xc);
    n:=n+1;
   until dx<e;
  writeln ('xn=', xn:12:5);
  writeln('dx=', dx:12:7);
  writeln('N=', n);
  writeln('p[',i,']=', p[i]);
 end;
end.

[BarT(48rus)]

ну помогите-же кто-нибудь)))

[BarT(48rus)]

есть тут кто нибудь(((

[BarT(48rus)]

глянь те же кто нибудь мой бредовый код.....пжалста, скажите что не правильно

[XeN0N]

в чужом коде без комментариев разбираться трудно (только если хорошо знаешь тему)

[BarT(48rus)]

в том то и дело, что я её не знаю совсем((((вот поэтому и прошу помочь, а код, половину содрал с методички, а половину не знаю откуда, вообще, придумал(((так что уж будте добры кто-нибудь(((

[XeN0N]

что есть "численный метод №1"

[BarT(48rus)]

хм))))ну как бы так сказать......вобщем ничего, просто решение уравнения (просто последующие методы какие то навороченный), в том то и дело, что он никак не отмечен в методичке....так что....

[XeN0N]

я знаю метод ньютона и метод половинных делений.
могу скинуть конспект лекций по вычмату .djvu, там оба метода + гибридный по шагам
Свою программу пока найти не могу