Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите создать процедуру
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
V1P
Здравствуйте.Проблема вот в чем:
есть часть кода программы:
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
Цитата
Его нужно перегнать в procedure


А что у тебя не получается ? Описываешь шапку процедуры, параметры которые будет в ней изменяться передаешь с приставкой 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
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
Проблему решил.Тему можно закрывать.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.