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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

fin, fout: Text;
FUNCTION f(x:real): Real; { Исследуемая функция }
BEGIN
f:=exp(x)-(10*x);
END;
BEGIN
ClrScr; { Очистка текстового экрана }
assign(fin,'otrezok.in'); { Файл данных }
assign(fout,'otrezok.out'); { Файл вывода }
reset(fin);
read(fin,a,b,eps);
close(fin);
(* Р А С Ч Е Т *)
k:=0; 1:k:=k+1;
x0:=(a+b)/2;
IF f(x0)=0 THEN GOTO 2;
IF abs(b-a)<eps THEN GOTO 2;
r1:=f(x0);
r2:=f(a);
IF (r1*r2)<0 THEN b:=x0
ELSE a:=x0;
GOTO 1;
2: writeln('Число делений пополам: ',k);
writeln('Корень уравнения: ',x0:7:4);
writeln('Точность расчета: ',eps:7:6);
(* Запись в файл *)
rewrite(fout);
writeln(fout,'Число делений пополам: ',k);
writeln(fout,'Корень уравнения: ',x0:7:4);
writeln(fout,'Точность расчета: ',eps:7:6);
close(fout);
readln;
END.
ФАЙЛ исходных данных:
0.0 1.0 1.0E-08 a, b - Начало и конец интервала eps - Точность расчета
ФАЙЛ с результатами
Число делений пополам: 28
Корень уравнения: 0.1118
Точность расчета: 0.000000001
49

Страницы