[Anarsenok]

Вот фрагмент кода, при нажатии на кнопку "генерация", выскакивает вот эта ошибка

фрагмент кода

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
zn:integer;
dr:real;
i,j:byte;
begin
randomize;
for i:=0 to m-1 do
for j:=0 to r-1 do
begin
a[i,j]:=random(q);
if checkbox1.Checked then dr:=random(q) else dr:=0;
dr:=dr/q;
a[i,j]:=a[i,j]+dr;
zn:=random(2);
if zn=0 then a[i,j]:=-a[i,j];
stringgrid1.Cells[j,i]:=floattostr(a[i,j]);
end;

for i:=0 to m1-1 do
for j:=0 to r1-1 do
begin
b[i,j]:=random(q);
if checkbox1.Checked then dr:=random(q) else dr:=0;
dr:=dr/q;
b[i,j]:=b[i,j]+dr;
zn:=random(2);
if zn=0 then b[i,j]:=-b[i,j];
stringgrid2.Cells[j,i]:=floattostr(b[i,j]);
end;
end;

procedure opredelitel2(a1, b1, a2, b2:real; out delta2:real);
begin
delta2:=a1*b2-a2*b1;
end;

procedure opredelitel3(a1, b1,c1,c2, a2, b2,a3,b3,c3:real; out delta3:real);
begin
delta3:=a1*b2*c3+a3*b1*c2+a2*b3*c1-a3*b2*c1-a2*b1*c3-a1*b3*c2;
end;

Админ: Пользуемся тегами для оформления кода!