Помогите с матрицей PASCAL

[ANARHIST]

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

[ЕвгениуS]

а здесь имеется ввиду квадратная матрица? или любая?

[ANARHIST]

однако квадратнай

[ЕвгениуS]

Для трехмерной матрицы код выглядит так...

program GEO;
uses crt;
var B: array[1..40,1..40] of integer;
i,j,D:integer;
begin clrscr;

for i:=1 to 3 do begin
for j:=1 to 3 do begin
    Begin
      write ('B[',i,',',j,']=');
      readln (B[i,j]);
    End;

end;
end;
D:=B[1,1]*B[2,2]*B[3,3]+B[1,2]*B[2,3]*B[3,1]+B[3,1]*B[2,1]*B[3,2];
write('Îïðåäåëèòåëü D = ');
writeln(D);readln;
end.

[puporev]

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

program opred;
uses crt;
type
   Tmatr=array [1..20,1..20] of real;
var n:integer;
    a:Tmatr;
    det:real;
    i,j,k:integer;
procedure Per(k,n:integer;var a:Tmatr; var p:integer);//перестановка
var i,j:integer;z:real;
begin
   z:=a[k,k];i:=k;p:=0;
   for j:=k+1 to n do
     begin
       if abs(a[j,k])>z then
          begin
            z:=abs(a[j,k]);i:=j;
            p:=p+1;
          end;
     end;
   if i>k then
   for j:=k to n do
     begin
       z:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=z;
     end;
end;
function znak(p:integer):integer;//определение знака
begin
if p mod 2=0 then
znak:=1 else znak:=-1;
end;
procedure opr(n:integer;var a:Tmatr;var det:real);//расчет определителя
var k,i,j,p:integer;
    r:real;
begin
det:=1;
for k:=1 to n do
   begin
     if a[k,k]=0 then per(k,n,a,p);
     det:=znak(p)*det*a[k,k];
     for j:=k+1 to n do
       begin
         r:=a[j,k]/a[k,k];
         for i:=k to n do
           begin
             a[j,i]:=a[j,i]-r*a[k,i];
           end;
       end;
   end;
end;
begin
clrscr;
write('n=');readln(n);
writeln('Ischodnaia matritsha A:');
write('Stroka s noljami k=');readln(k);//задаем номер строки с нолями
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(10)+random;
        a[k,j]:=0;
        write(a[i,j]:6:2);
      end;
  writeln;
  end;
opr(n,a,det); //получаем ноль
write('opr=',det:4:2);
readln
end.

[ЕвгениуS]

А я только собрался думать над тем, чтобы работала не только с трехмерной, а когда размер задается пользователем ))

[ANARHIST]

спосибо большое