Задача по "Информатике"

Домашняя  работа по информатике. 
 
 
 

    Ⅰ. Описательная информационная модель.

Методом половинного  деления найти корень уравнения 0.4+arctan -x=0 с точностью E=10^-3 , на промежутке [1;2].

     
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Ⅱ. Формализованная модель. 
 
 
 
 
 
 
 
 
 
 
 
 
 

                                   
 
 
 
 
 
 

     
 
 

 Ⅲ. Компьютерная модель.  
 

 нет 

 да 
 
 

                           нет               да 

 

 
 
 
 
 
 
 

program dadada;

uses crt;

label 10,20,30;

var a,b,dx,fa,fb,fx,x,eps: real;

begin

clrscr;

writeln (' Введите отрезки и погрешность ');

read (a,b,eps);

fa:=0.4+arctan(sqrt(a))-a;

fb:=0.4+arctan(sqrt(b))-b;

if fa*fb>0 then

begin

writeln ('Ошибка интервала');

goto 10;

end;

30: x:=(a+b)/2;

fx:=0.4+arctan(sqrt(x))-x ;

if fx*fa>0 then

begin

a:=x;

goto 20;

end

else if fx*fa<0 then

begin

b:=x;

goto 20;

end;

20: x:=(a+b)/2;

dx:= abs(b-a);

if dx<= eps then

begin

writeln ('x= ' ,x);

goto 10

end

else goto 30;

10: repeat until keypressed;

end.  
 
 
 
 
 
 
 
 

              Ⅳ. Компьютерный эксперимент.

Отладка и запуск программы. 
 
 
 
 

    Ⅴ. Анализ полученных данных и корректировка исследуемой модели.

 Введите отрезки  и погрешность

1

2

0.001

Х=1.2387695125