Практикум по решению задач на ЭВМ. Тарова И.Н - 79 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

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

Рубрика: 

Практикум по решению задач на ЭВМ
end.
8)
(Уточнить корни методом половинного деления). Задано уравнение
0)( =
x
f
и границы нахождения корней.
program root2;
uses CRT;
var A,B,C:real;
x,Dx,E:real;
function F(x:real):real;
begin
F:=sqr(x)+sin(5*x);
end;
begin
clrscr;
writeln('введите границы корня и точность E');
readln(A,B,E);
REPEAT
C:= (A+B)/2;
if F(A)*F(C)<=0 then B:=C
else A:=C;
UNTIL (B-A)<E;
x:=(A+B)/2; Dx:=(B-A)/2;
writeln('x=',x,' Dx=',Dx);
readln;
end.
Численное решение систем линейных
алгебраических уравнений
9) (Методом простой итерации). Решить систему линейных алгебраиче-
ских уравнений
F
A
x =
методом простой итерации.
program iter(input,output);
uses CRT;
const m=2;
var
79
                        Практикум по решению задач на ЭВМ


      end.

8)



(Уточнить корни методом половинного деления). Задано уравнение
 f ( x) = 0 и границы нахождения корней.

     program root2;
     uses CRT;
     var A,B,C:real;
     x,Dx,E:real;
     function F(x:real):real;
      begin
      F:=sqr(x)+sin(5*x);
      end;
     begin
      clrscr;
      writeln('введите границы корня и точность E');
      readln(A,B,E);
       REPEAT
        C:= (A+B)/2;
       if F(A)*F(C)<=0 then B:=C
        else A:=C;
       UNTIL (B-A)