[nav]

надо прочитать матрицу NxN целых чисел. Идея есть, но она не работает

Код:

procedure TForm1.Button1Click(Sender: TObject);
var nproc,i,j:0..n;
    a:matr;
begin
 nproc:=upDown1.Position;
 while nproc>=n do button1.Caption:='N должно быть меньше 100';
 nproc:=nproc-1;
 with stringgrid1 do
  begin stringgrid1.ColCount:=updown1.Position-1;
        stringgrid1.RowCount:=stringgrid1.ColCount-1;
    for i:=0 to nproc do
      for j:=0 to nproc do a[i,j]:=strToInt(cells[j,i]);
  end

Moderatorial: Пользуемся тегами!!!

[lmikle]

А где описание типа matr? Это раз.
Два. А что конкретно надо делать-то?
Здесь только заполнение матрицы.

[nav]

Сообщение от lmikle

А где описание типа matr? Это раз.
Два. А что конкретно надо делать-то?
Здесь только заполнение матрицы.

необходимо вычислить определитель.

Код:

const n=100;
type matr=array[1..n,1..n] of integer;

[xchrom]

хехехе, был у меня в дипломе подсчет определителя матрицы 14*14 методом квадратов если не ошибаюсь ) рекурсия и все радости жизни...
для таких размерностей конечно это несерьезно

советую поискать реализацию в инете

[nav]

Сообщение от xchrom

хехехе, был у меня в дипломе подсчет определителя матрицы 14*14 методом квадратов если не ошибаюсь ) рекурсия и все радости жизни...
для таких размерностей конечно это несерьезно

советую поискать реализацию в инете

у меня алгоритм есть. Вся проблема в том, что матрица a[i,j] не заполняется

[lmikle]

А данные то в StringGrid есть?

[lmikle]

Ты думаешь все помнят что такое опреелитель матрицы и как он считается??? Формулу в студию.

[Grunch]

Есть подозрение что на строке

Код:

while nproc>=n do button1.Caption:='N должно быть меньше 100';

при выполнении условия прога зависнет.

[nav]

Сообщение от Grunch

Есть подозрение что на строке

Код:

while nproc>=n do button1.Caption:='N должно быть меньше 100';

при выполнении условия прога зависнет.

не виснет. Всё ок