Версия для печати темы

Автор: V1P 5.06.2007 21:13

Здравствуйте.Проблема вот в чем:
есть часть кода программы:

minz:=z[1];
iter:=1;
For i:=1 to m+n do begin
If (minz>z[i]) and (z[i]<>0) then   begin minz:=z[i];
                                    iter:=i;
                                    end;
end;

For i:=1 to m do begin
If (a[i,iter]<>0) then x[i]:=a[i,m+n+1]/a[i,iter];
end;
For i:=1 to m do begin
If (x[i]>0) then begin min:=x[i];break;
                       end;
end;
k:=1;
For i:=1 to m do begin
If (min>x[i]) and (x[i]>0) then   begin min:=x[i];
                                        k:=i;
                                        end;
end;
index[ind]:=k;
index1[ind]:=iter;
 ix:=a[k,iter];
For j:=1 to m+n+1 do begin
a2[k,j]:=a[k,j]/ix;
end;
For i:=1 to m do begin
For j:=1 to m+n+1 do begin
If i<>k then a2[i,j]:=a[i,j]-a[i,iter]*a2[k,j];
end;
end;
For i:=1 to m do begin
For j:=1 to m+n+1 do begin
a[i,j]:=a2[i,j];
end;
end;
For i:=1 to m+n+1 do begin
z1[i]:=z[i]-z[iter]*a[k,i];
end;
For i:=1 to m+n+1 do begin
z[i]:=z1[i];
end;

Его нужно перегнать в procedure.Если нужно,то могу выложить полностью программу.Очень нужна помощь,так как у самого перегнать не получилось...

Автор: klem4 5.06.2007 22:02

А что у тебя не получается ? Описываешь шапку процедуры, параметры которые будет в ней изменяться передаешь с приставкой VAR.

Например нам нужно обнулить i-й элементы массива X размерностью n

type
  TArray = array [1..100] of Integer;

procedure Zero(VAR x: TArray; const n: Integer; const i: Integer);
begin
  if i <= n then x[i] := 0;
end;

var
  x: TArray;
  n, i: Integer;

begin
  n := 10;

  for i := 1 to n do x[i] := i;
  Zero(x, n, 1);
  // теперь первый элемент массива = 0
  for i := 1 to n do writeln(x[i]);
end.

Автор: V1P 5.06.2007 23:36

Procedure gaus(var amas;var ind,n,m:integer;var zkr:array of real;
               var amas2;var zkr1:array of real;var indexk,indexi:array of integer);
var
x:array[1..20] of real;
ix,min,minz:real;
type b=array [1..100,1..100] of real;
type f=array [1..100] of integer;
begin
minz:=zkr[1];
iter:=1;
For i:=1 to m+n do begin
If (minz>zkr[i]) and (zkr[i]<>0) then   begin minz:=zkr[i];
                                      iter:=i+1;
                                      end;
end;

For i:=1 to m do begin
If (b(amas)[i,iter]<>0) then x[i]:=b(amas)[i,m+n+1]/a[i,iter];
end;
For i:=1 to m do begin
If (x[i]>0) then begin min:=x[i];break;
                       end;
end;
k:=1;
For i:=1 to m do begin
If (min>x[i]) and (x[i]>0) then   begin min:=x[i];
                                        k:=i;
                                        end;
end;
indexk[ind]:=k;
indexi[ind]:=iter;
 ix:=b(amas)[k,iter];
For j:=1 to m+n+1 do begin
b(amas2)[k,j]:=b(amas)[k,j]/ix;
end;
For i:=1 to m do begin
For j:=1 to m+n+1 do begin
If i<>k then b(amas2)[i,j]:=b(amas)[i,j]-b(amas)[i,iter]*b(amas2)[k,j];
end;
end;
For i:=1 to m do begin
For j:=1 to m+n+1do begin
b(amas)[i,j]:=b(amas2)[i,j];
end;
end;
For i:=1 to m+n do begin
zkr1[i]:=zkr[i]-zkr[iter]*a[k,i];
end;
For i:=1 to m+n do begin
zkr[i]:=zkr1[i];
end;
end; 

В процедуру я должен передавать данные из массивов - А,Z, и переменных ind,n,m
Полученные результаты после процедуры я должен записывать в массивы:A,Z,Index,Index1

Автор: V1P 6.06.2007 2:21

Проблему решил.Тему можно закрывать.