Метод Якоби для решения СЛУР, помогите решить задачу Опции

[Visnyshka]

Доброго времени суток!
Помогите пожалуйста решить задачу на Pascal. Мне дана система уравнений, необходимо написать программу решающую её методом Якоби. Не знаю с чего начать, подскажите пожалуйста! Прикрепляю файл с описанием метода. Заранее благодарю!

DOC-файл удален

Сообщение отредактировано: volvo - 18.02.2010 2:15

[Visnyshka]

А разве в паскале не предусмотрен юнит который работает с матрицами? Вот я задаю матрицу:

Код

program metodyakobi;
uses crt;

var A: array[1..5,1..5]of integer;
    i,j: integer;

begin
clrscr;
A[1,1]:=10;
A[1,2]:=1;
A[1,3]:=2;
A[1,4]:=-3;
A[1,5]:=1;

A[2,1]:=1;
A[2,2]:=9;
A[2,3]:=3;
A[2,4]:=2;
A[2,5]:=1;

A[3,1]:=1;
A[3,2]:=-5;
A[3,3]:=10;
A[3,4]:=-2;
A[3,5]:=-1;

A[4,1]:=4;
A[4,2]:=2;
A[4,3]:=5;
A[4,4]:=15;
A[4,5]:=1;

A[5,1]:=2;
A[5,2]:=2;
A[5,3]:=-1;
A[5,4]:=1;
A[5,5]:=-8;

writeln('пробую вывести один эл-т ',A[2,5]); end;
readkey;
end.

[Lapp]

И не лень тебе было это все писать?
Не проще ли так:

const
  m=5;
var
  A: array[1..m,1..m]of integer;
  i,j: integer;
  f: text;

begin
  Assign(f,'in.txt');
  ReSet(f);
  for i:=1 to m do begin
    for j:=1 to m do Read(A[i,j];
    ReadLn(f)
  end;
  Close(f);
  writeln('пробую вывести один эл-т ',A[2,5]);
end.

И сделать файл in.txt (например, в блокноте)

10 1 2 -3 1
1 9 3 2 1
1 -5 10 -2 -1
4 2 5 15 1
2 2 -1 1 -8

Юнит для алгебры нужно написать. В этом вся прелесть!