Лабораторна робота  №2, розв’язання нелінійних рівнянь, страница 8

Program Lab2;

uses crt,fun,u_mpd,u_hord,u_kasat,u_iter,u_hord1;

var a,b,eps:real;

    z:integer;

begin

  clrscr;

  writeln('Progarama reshaet uravnenie F(x)=exp(x)-exp(-x)-2 na otrezke [a,b]');

  writeln('BBeDuTe oTpe3oK oT a Do b');

  write('a='); readln(a);

  write('b='); readln(b);

  write('eps='); readln(eps);

  if (F(a)*F(b)>0) or (F1(a)*F1(b)<0) or (F2(a)*F2(b)<0) then

   begin

     writeln('Ha DaHoM oTpe3Ke kopHeu HeTy');

     writeln('Press ENTER to exit');

     readln;

     halt;

   end

  else

   begin

     writeln;

     writeln('BbI6ePuTe MeToD');

     writeln('1: polovinnoe delenie');

     writeln('2: metod hord');

     writeln('3: metod kasatelnuh');

     writeln('4: metod iteracii');

     writeln('5: metod hord-kasatelnuh');

     writeln('6: vihod');

     readln(z);

     case z of

       1:mpd(a,b,eps);

       2:hord(a,b,eps);

       3:kasat(a,b,eps);

       4:if abs(Fi1((a+b)/2))<1 then iter(a,b,eps)

            else begin

            writeln('Net resheniu');

            exit;

            end;

       5:hordkasa(a,b,eps);

       6:halt;

     end;

   end;

   readln;

end.

Результат:

Progarama reshaet uravnenie F(x)=exp(x)-exp(-x)-2 na otrezke [a,b]

BBeDuTe oTpe3oK oT a Do b

a=0

b=1

eps=0.0001

BbI6ePuTe MeToD

1: polovinnoe delenie

2: metod hord

3: metod kasatelnuh

4: metod iteracii

5: metod hord-kasatelnuh

6: vihod

1

-----Metod Polovinnogo Delenija-----

x=0.881

F(x)=-0.00007

n=11

-----Metod Hord-----

x=0.881

F(x)=-0.00001

n=4

-----Metod Kasatelnuh-----

x=0.886

F(x)=0.01441

n=1

-----Metod Iteracii-----

x=0.881

F(x)=-0.00003

n=6

-----Metod Hord-Kasatelnuh-----

x=0.881

F(x)=-0.00006

n=2