План:

1.Составление алгоритма решения задачи.

2.Решение практических задач по теме занятия.

---

Задания:

а) Выбрать  математическую модель исследуемого процесса.

б) Подобрать метод численного решения.

в) Составить алгоритм решения задачи.

г) Разработать  программу расчетов на ЭВМ (пример программы прилагается).

д) Провести отладку программы и получить результаты.

program SLAU2; {Решение системы методом Гаусса-Зейделя}

label 1,2,3;

const n=3;

var a:array [1..n,1..n] of real;

    b,x:array [1..n] of real;

    i,j,k,m:integer;

    e,s,d,d1,c:real;

begin

{Ввод исходных данных}

     for i:=1 to n do

     begin

         writeln (‘Введите коэффициенты уравнения’,i);

         for j:=1 to n do read (a[i,j]);

         writeln (‘Введите свободный член уравнения’,i);

         readln (b[i]);

end;

     writeln ('Введите точность');readln (e);

     writeln ('Введите допустимое кол-во итераций');readln (m);

     for i:=2 to n do x[i]:=0;

{Решение системы}

     k:=1;

     repeat

           d1:=0;

           for i:=1 to n do

           begin

                s:=0;

                for j:=1 to n do

                begin

                     if i=j then goto 1;

                     s:=s+a[i,j]*x[j];

1:              end;

                c:=(b[i]-s)/a[i,i];

                d:=abs(c-x[i]);

                if d1<d then d1:=d;

                x[i]:=c;

           end;

           k:=k+1;

           if k>m then goto 2;

     until d1<e;

{Вывод результатов}

     writeln (‘решение системы’);

     for i:=1 to n do write (x[i]:8:4);

     writeln; goto 3;

2:   writeln ('Количество итераций выше допустимого');

3:end.

Решение задач по карточкам, выдаваемым преподавателем

Литература [2], [3], [7], [8], [10].