Решить уравнение методом деления отрезка пополам

@k1d · Регистрация: 18.11.2013

Решить уравнение методом деления отрезка пополам. Каждый этап решения выводить в файл:
sin(1-x)=x на отрезке

@Puporev · 17.05.2014, 10:56

Pascal

uses crt;
function F(x:real):real;
begin
F:=sin(1-x)-x
end;
 
var a,b,c,x,e:real;
    k:integer;
    t:text;
begin
a:=0;
b:=pi/2;
e:=0.0001;
writeln('Решение уравнения sin(1-x)-x=0');
writeln('на интервале [0;pi/2] с погрешностью 0.0001');
assign(t,'output.txt');
rewrite(t);
writeln(t,'Решение уравнения sin(1-x)-x=0');
writeln(t,'на интервале [0;pi/2] с погрешностью 0.0001');
k:=0;
repeat
 c:=(a+b)/2;
 k:=k+1;
 if F(a)*F(c)<=0 then b:=c
 else a:=c;
 writeln(t,'Приближение ',k:2,'  x=',c:7:5);
until abs(b-a)<e;
x:=(a+b)/2;
writeln(t,'С точностью 0.0001  x=',x:7:5);
close(t);
write('Результат записан в файл output.txt');
end.

@k1d 0 / 0 / 1 Регистрация: 18.11.2013 Сообщений: 95
		1
	Решить уравнение методом деления отрезка пополам 17.05.2014, 10:06. Просмотров 1607. Ответов 1 Метки нет (Все метки) Решить уравнение методом деления отрезка пополам. Каждый этап решения выводить в файл: sin(1-x)=x на отрезке 0 Изображения

Опции темы