Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 50 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Пример 4.2.2 Программа решения уравнения с использованием ме-
тода Ньютона.
Уравнение x3- 2x2 + 1.3x = 0.
PROGRAM newton;
LABEL m1, m2;
VAR x, x0, eps:real;
a1, a2:text;
k:integer;
FUNCTION f(x0:real):real;
BEGIN
f:=x*x*x-2*x*x+1.3*x-0.2;
END;
FUNCTION f1(x0:real):real;
BEGIN
f1:=3*x*x-4*x+1.3;
END;
BEGIN
assign (a1,'dat17-2');
reset(a1);
read(a1,x0,eps);
k:=0;
m2: x:=x0;
x0:=x-f(x)/f1(x);
k:=k+1;
IF abs(x-x0) <= eps THEN GOTO m1
ELSE GOTO m2;
m1: assign(a2,'res-17-2');
rewrite(a2);
writeln(a2,'корень уравнения',x,k);
close (a2);
END.
50

Страницы