Помощь - Поиск - Пользователи - Календарь
Полная версия: Метод простых итераций
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Eclipse_dp
Ребят нужна помощь, нужно написать программку для решения СЛАУ методом итераций.
Program zadacha1;
type
matriza= array[1..100,1..100] of real;
Var b,prob,x,x1: array[1..100] of real;
i,j:real;
e:real;
n:integer;
Procedure vvod(var n:integer;var E:real; i,j:integer;var b:array of real;var a:matriza);
begin
Write('vvedite razmer matritci n');
Readln(n);
For i:=1 to n do
For j:=1 to n do begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
For i:=1 to n do
If a[i,i]=0 then begin
Writeln('oshibka vvoda');
end;
For i:=1 to n do begin
Write('b[',i,']=');
Readln(b[i]);
end;
Write('vvedite tochnost E=');
Readln(E);
end;
Function otv(i,j:integer; var b,x,x1:array of real;a:matriza):real;
begin
For i:=1 to n do
begin
For i:=1 to n do
begin
If i=j then
a[i,j]:=-a[i,j]/a[i,i];
end;
b[i]:=b[i]/a[i,i];
a[i,i]:=0;
end;
For i:=1 to n do
begin
For j:=1 to n do
Write(a[i,j]4.gif2,'');
Write(b[i]4.gif2,'');
end;
For i:=1 to n do
x[i]:=0;
repeat
For i:=1 to n do
begin
For j:=1 to n do
x1[i]:=x1[i]+a[i,j]*x[j];
x1[i]:=x1[i]+b[i];
end;
For i:=1 to n do
begin
x[i]:=x1[i];
x1[i]:=0;
end;
until abs(x1[i]-x[i])<E;
otv:=x[i];
end;

Procedure vivod(i,n:integer;var otv:array of real);
begin
For i:=1 to n do
Writeln(otv[i]);
end;
begin
vvod(n,a,b);
otv(i,j,b);
vivod(otv[i]);
end.

Вот примерный код программы, но он щитает с ошибками, большая просьба помочь разобраться в этом методе sad.gif
volvo
Цитата
но он щитает с ошибками
А что ты хотел? У меня на FPC этот код даже не компилируется:
		For i:=1 to n do
begin
For i:=1 to n do
begin

Все, концерт окончен. Это уже неправильно... Нельзя два цикла делать по одной переменной. Исправляй... И это... Отформатируй код как положено, а не этим непонятно каким способом. Глаза сломать можно, пока разберешься что к чему относится...

Update: этот код вообще компилироваться не должен. Ни на каком компиляторе. Так что про "считает с ошибками" - это твои фантазии. Он вообще не считает. Параметров в вызове процедуры Otv не хватает, понимаешь? (Vvod я закомментировал сразу же, меня не интересует ввод матрицы, я задаю готовую константой; но там у тебя та же самая проблема - несоответствие числа параметров при описании и вызове процедуры... Vivod - аналогично)
Dark_san
Мне тоже нужна эта программа sad.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.