Программа в делфи с матрицей

[Sciv]

узри в нем изюминки Делфи

Ага, узрел!

[Jook23]

вот моя программа:

var
mas:array  of array of real;
i,j,k,n: integer;

procedure TForm2.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
SetLength(mas,n,n);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
for i := 1 to n do
for j := 1 to n do
begin
mas[i,j]:=strtofloat(stringgrid1.cells[i,j]);
end;
end;

procedure TForm2.Button3Click(Sender: TObject);
 begin

  for i:=1 to n do             //выше главной диагонали
  for j:=1 to n do
  begin
 if  (i < j)and ( mas[i,j]= 0)
  then
  k:=0;
  Edit2.Text:=inttostr (k);
  end;


 begin
 for i:=1 to n do                                     // ниже диагонали
for j:=1 to n do
  begin
 if  (i > j)and ( mas[i,j]= 0)
  then
   k:=0;
   edit3.text:=inttostr (k);   end;
 end;
 end;

но у меня не работает выше и ниже, а как по побочной написать я тоже незнаю



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Stilet]

Смотрел мой пример? Там есть и выше и ниже. Адаптируй под себя.