Форум: "Потрепаться";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];

Вниз

В чем ошибка скажите пожалуйста   Найти похожие ветки 

← →
Lostersen   (2003-03-21 19:28) [0]

В чем ошибка скажите пожалуйста


Program zzzzzzz;

{$APPTYPE CONSOLE}

uses
SysUtils;

Const
n=9;
nxn=81;
Type
matr = array[1..n,1..n] of integer;
matrTWO = array[1..nxn] of integer;
Var
bn,mn:integer;
D:matr;
C,P : matrTWO;

{********************************************************************}
{begin GENER MATRIC 9*9}
Procedure rand_matr(var buu:matr);
Var
i,j:integer;

begin

Randomize;
For i:=1 to 9 do
For j:=1 to 9 do
begin
buu[i,j]:=Random(50);
end;
end;
{end GENER MATR 9*9}
{********************************************************************}
{begin FIND IN MATRIX ZNACH =0 AND bol 0 }
Procedure schet(aaa:matr; var rav_nul,men_nul : matrTWO; ri,mi :integer);
Var
i, j :integer;
begin
ri:=1; mi:=1;
For i:=1 to 9 do
For j:=1 to 9 do
If aaa[i,j]=0 then
begin
rav_nul[ri]:=aaa[i,j];
ri:=ri+1;
end;
If aaa[i,j]>0 then
begin
men_nul[mi]:=aaa[i,j];
mi:=mi+1;
end;


end;
{end FIND IN MATRIX ZNACH =0 AND bol 0 }
{********************************************************************}

Begin

rand_matr(D);
schet(D,C,P,bn,mn);
WriteLN("v massive D = 0 ",bn," znacheniy ");
WriteLN("v massive D < 0 ",mn," znacheniy ");
ReadLN;

End.

---

← →
Вася Пупкин   (2003-03-21 20:20) [1]

{********************************************************************}
{begin FIND IN MATRIX ZNACH =0 AND bol 0 }
Procedure schet(aaa:matr; var rav_nul,men_nul : matrTWO; var ri,mi :integer);
Var
i, j :integer;
begin
ri:=1; mi:=1;
For i:=1 to 9 do
For j:=1 to 9 do
If aaa[i,j]=0 then
begin
rav_nul[ri]:=aaa[i,j];
ri:=ri+1;
end
else If aaa[i,j]>0 then
begin
men_nul[mi]:=aaa[i,j];
mi:=mi+1;
end;

end;
{end FIND IN MATRIX ZNACH =0 AND bol 0 }
{********************************************************************}

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c