квадратная матрица паскаль.

[Барби]

Задание:Создайте класс КВАДРАТНАЯ ЦЕЛОЧИСЛЕННАЯ МАТРИЦА. Обязательны функции-члены класса для ввода/вывода матрицы, вычисления следа матрицы и ее определителя.
Моя попытка

program matrica;
uses crt;
type

matr = object
opr,sl,nn : integer;

procedure vvod(var n : integer);
procedure vivod(var n : integer);
{procedure opred(var o : integer);}
procedure sled(var s : integer);
end;

procedure matr.vvod(var n : integer);
var a: array [1..n, 1..n] of integer;
i,j : integer;

For I:=1 to n do
	For J:=1 to n do
	Begin
write ('vvedite razmer matrici', n); readln(n);
Write('Vvedite ',j,'element',i,'stroki matrici: ');
		ReadLn(A[I,J]);
	End;

end;

procedure matr.vivod(var n : integer);
begin
write(a[i,j]:6:2);
 writeln;
end;

prosedure Sled(a:array...):integer;

var i:integer;
s:real;
Begin
s:=0;
for i:=1 to n do 
s:=s+a[i,i];
writeln (s);
End;
var m: matr;
begin
matr.vvod;
readkey;
matr.vivod;
readkey;
matr.sled;
readkey;
end.

ругается на конструкцию var a: array [1..n, 1..n] of integer;
и совершенно не знаю как искать определитель если у меня размеры матрицы меняются.подскажите пожалуйста.

[SNUPY]

К сожалению в придложенной Вами конструкции n должна быть константой =\. В паскале не уверен, но в Delphi матрицу произвольного размера объявляют так:

a:array of array of integer;

[alex_fcsm]

И в процедуре массив передается от 0 до n-1

[Zeraim]

Это называется динамический массив, в паскале в объявлении переменных в начале программы объявите n константой, далее по ходу решения сможете поменять на нужное, насколько я помню это делалось так 8)

[Барби]

а как вычислить определить матрицы если я точно не заю какую цифру введет пользоваель?

[Serge_Bliznykov]

Барби, в общем, существуют два подхода.
Один простой (и соответственно, наиболее распространнёный), второй - эффективный, но сложный.

Первый - объявить массив заведомо Большего размера, чем это может потребоваться (часто в условиях задачи указывают - дано N чисел ( 0<N<1000)
тогда делаем так:

Const n = 1000;
Type MyMas : array[1..N] of Integer;
...
Mas : MyMas;
K    : Integer;
begin
  WriteLn;
  repeat
    Write('ввведите размер массива:');
    Readln(K);
    if Not ((K>=1) and (K<=N)) then WriteLn('Неверный диапазон (число должно быть от 1 до ',N:1);
  until (K>=1) and (K<=N);

а второй способ - динамическое создание массива. В Delphi можно использовать динамический массив.
В Pascal - работать через указатели и выделение памяти...

выбирайте...

[Барби]

ну я по простому пути пойду. только я даже не помню как определитель считать. в яндексе посмотрела какие то ряды вычеркиваются столбцы, дуть, но придется вспоминать первый курс.

[bullvinkle]

Определитель матрицы можно подчитать при помощи рекурсивной формулы.

[Барби]

не могу сказать что мне эта формула помогла ибо по матрицам не помню практически ничего в том числе и для чего нужен определитель, но все равно спасибо.

[bullvinkle]

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