Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Program Metod_Nutona;
uses crt;
var x,y1,y2,x1,y,l,k:real;
begin clrscr;
writeln('‚ўҐ¤iвм в®зiбвм:');
readln(l);
x:=0.003;
y1:=(3*(sqr(x1)))-(2*x1)-10;
y2:=(6*x1)-2;
repeat
if y1=0 then break;
if y1<>0 then
begin x:=x1; x1:=x-y1/y2;
y1:=(3*(sqr(x2)))-(2*x2)-10;
y2:=(6*x2)-2;
end;
k:=k+1;
until abs(x1-x) < l;
y:=(sqr(x)* x)- (sqr(x))-(10*x);
writeln('Mii¬ «мҐ § зҐп ҐЄбв६г¬г: ',x1:7:5,' y=',y:7:5,' k= ',k:2:1);
readln;
end.
uses crt;
var x,y1,y2,x1,y,l,k:real;
begin clrscr;
writeln('‚ўҐ¤iвм в®зiбвм:');
readln(l);
x:=0.003;
y1:=(3*(sqr(x1)))-(2*x1)-10;
y2:=(6*x1)-2;
repeat
if y1=0 then break;
if y1<>0 then
begin x:=x1; x1:=x-y1/y2;
y1:=(3*(sqr(x2)))-(2*x2)-10;
y2:=(6*x2)-2;
end;
k:=k+1;
until abs(x1-x) < l;
y:=(sqr(x)* x)- (sqr(x))-(10*x);
writeln('Mii¬ «мҐ § зҐп ҐЄбв६г¬г: ',x1:7:5,' y=',y:7:5,' k= ',k:2:1);
readln;
end.
Соседние файлы в папке BIN