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