-Цитата от Тедди окей, я уж разобрался. Надо было прописать 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;
бля, чувак, надо как бы условие задачи. это кстати не метод гаусса часом? я чё-то похожее на 1м курсе писал...
и бля, делай отступы
нихуя же непонятно
а в первом случае - ошибка скорее всего в том, что в стринггриде ячейки идут cells[i,j], где i - номер столбца, а j - номер строки. а у тебя наоборот. т.е. если у тебя матрица не квадратная - то вылазишь за пределы. скорее всего так
во втором случае я чо-та хуй знает без описания ошибки и условия задачи
-Цитата от Штукатур парни выручайте нужен совет. не могу установить Виндовс ХП на новый жёсткий диск, диск с виндоком не запускается. што делать? через ф 8 тоже не нехуя, выбираю CDROM нажемаю Интер и реакции ноль , сука