3. Блок-схема методу

Размещено на http://www.allbest.ru/

4. Код програми

uses crt;

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

x:array[1..4,1..2] of real;

s,e:real;

i,j,n:integer;

t:boolean;

Begin

writeln(Vvedit? kilkist? rivnjan?);

readln(n);

writeln(Vvedit? povnу matricy sustemu);

for i:=1 to n do

for j:=1 to n+1 do

read(a[i,j]);

t:=true;

for i:=1 to n do

begin

s:=0;

for j:=1 to n+1 do

if i<>j then s:=s+a[i,j];

t:=t and (s<a[i,i]);

end;

if not t then

begin

writeln(Umova danoi sustemu ne vukonyetsja);

readkey;

halt(1);

end;

for i:=1 to n do

for j:=1 to n+1 do

if i<>j then a[i,j]:=a[i,j]/a[i,i];

writeln(Vvedit? to4nist? rozraxynky);

readln(e);

for i:=1 to n do

x[i,1]:=a[i,n+1];

repeat

for i:=1 to n do

x[i,2]:=x[i,1];

for i:=1 to n do

begin

x[i,1]:=a[i,n+1];

for j:=1 to n do

if i<>j then x[i,1]:=x[i,1]-a[i,j]*x[j,1];

end;

t:=(abs(x[1,1]-x[1,2])<e);

for i:=2 to n do

t:=t and (abs(x[i,1]-x[i,2])<e);

until t;

for i:=1 to n do

writeln(x,i,=,x[i,1]:2:3);

readln;

end.

5. Інструкція програми

Програма починається з уведення необхідної користувачеві кількості рівнянь системи. Наступний крок - завдання матриці системи. Програма автоматично перевіряє умову побудови введеної системи і, якщо це можливо, перетворює відповідним образом задану систему. Далі вводиться точність і виконуються необхідні обчислення, після чого виводиться на екран шукані корні заданої системи.

Код програми починається з опису змінних і двох масивів. За допомогою команд writeln, readln відбувається виведення/введення інформації відповідно.

Для реалізації методу ітерації в даній роботі ми користуємося циклами

For та If.