окей, я уж разобрался. Надо было прописать array of array oa real как новый тип и с ним работать
Добавлено через 11 часов 2 минуты 30 секунд
Мужики, выручайте. Все прописал в проге, компилятор не ругается, а по выполнению возникают ошибки
Вот фрагменты, выделил строку , где ошибка. Никак не пойму, в чём только
-
if checkbox6.Checked = true then
begin
strok:= stringgrid1.rowcount;
stolb:= stringgrid1.colcount;
for i:=0 to strok - 1 do
for j:=0 to (stolb - 1) do arr[i+1,j+1]:= strtofloat(stringgrid1.cells[i,j]);
Memo1.Lines.add(inttostr(rang(arr)));
end;
- Function rang(a:Tarray): integer;
var i,j,k,kol,nul:integer;
begin
for j:=1 to stolb do
for i:=1 to strok do
for k:=1 to stolb do a[i,k]:= a[i,k] - ((a[i,j]/a[1,j]) * a[1,k]);
nul:=0;
for i:=1 to strok do
begin
kol:=0;
for j:=1 to stolb do if a[i,j] = 0 then kol:= kol+1 ;
if kol = strok then nul:= nul +1;
end;