Pascal. Поиск линейно зависимых строк матрицы. Error 200: Division by zero, хотя нулей в матрице нет

[Paul-SFL]

Добрый вечер, форумчане .
Пршу помочь разобраться с проблемкой.. Паскаль учить начал только в универе, опыта очень мало, так что сам пока решения не нашел. Ну и над кодом не смейтесь сильно , пожалуйста..
Значит, есть задача:

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

Программу написал. Компилится (Turbo Pascal 7.1). В чем проблема: запускаю, отвечаю на запрос об использовании принтера. Мельком вижу исходную матрицу и сообщение об ошибке, после этого программа закрывается. При запуске из командной строки программа матрицу не выводит, а сразу после вопроса о принтере выдает Runtime error 002 at 0000:005D.

Прогоняю с помощью Step over/Trace into - компилятору, гаду, откуда-то деление на ноль чудится, хотя я спецом все нули из матрицы убрал.

В манах ничего не нашел. Догадок нету (кроме незнания каки-то мелких нюансов и заковырок)..

[Paul-SFL]

Вот код:

Program Lab_Four;
Uses Crt,Printer;
Const Nmax = 32; Mmax=64;
Type  Matrix = array[1..Nmax,1..Mmax] of integer;
Var
    i,k,j,                        { параметры цикла }
    n,m,                        { размеры матрицы }
    LinInd,                     { индикатор линейности строк }
    LinCount    : byte;     { количество пар линейно зависимых строк}
    PrinterInd,                { индикатор использования принтера }
    Control      : boolean; { переменная, определяющая позицию элементов a[i,j] и a[k,j]}
	                       { (т.е. что в числителе, а что - в знаменателе выражения) }
    ch           : char;      { символ нажатой клавиши }
    p,q          : integer;   { результаты целочисленного деления и остатка от него }
    A             : Matrix;    { обрабатываемая матрица }
    F             : text;       { файл, содержащий исходные данные }
...

Файл с матрицей прилеплен.

[Paul-SFL]

Procedure WaitEscape;
{ Приостановка программы до нажатия клавиши Esc }
Var ch : char;
Begin
  Repeat
    ch:=ReadKey;
  Until ord(ch)=27;
End { WaitEscape };
{ ------------------------------------------------------------- }
Procedure ReadMatrix;
{ Чтение матрицы из текстового файла }
Var  i,j : byte;
Begin
  Reset(F);
  Read(F,n,m);
  For i:=1 to n do
    For j:=1 to m do
      Read(F,a[i,j]);
  Close(F);
End { ReadMatrix };
{ ------------------------------------------------------------- }
Procedure ScreenMatrix;
{ Вывод матрицы на экран дисплея }
Var i,j,k : byte;
Begin
  For i:=1 to n do
    Begin
      k:=0;
      For j:=1 to m do
        begin
          Inc(k);
          if k<7 then
            Write(a[i,j],'   ')
          else
            begin
              k:=0;
              Writeln(a[i,j],'   ')
            end
        end;
      If k>0 then Writeln;
   End;
  If k>0 then Writeln;
End { ScreenMatrix };
{ ------------------------------------------------------------- }
Procedure PrinterMatrix;
{ Вывод матрицы на принтер }
Var i,j,k : byte;
Begin
  For i:=1 to n do
    Begin
      k:=0;
      For j:=1 to n do
        begin
          Inc(k);
          if k<7 then
            Write(Lst,a[i,j],'   ')
          else
            begin
              k:=0;
              Writeln(Lst,a[i,j],'   ')
            end
        end;
      If k>0 then Writeln(Lst);
    End;
  If k>0 then Writeln(Lst);
End { PrinterMatrix };
{ ------------------------------------------------------------- }
Begin
{ Установка соответствия между внутренним и внешним файлами }
  Assign(F,'M.dat');
{ Запрос об использовании принтера }
  ClrScr;
  Writeln('Будет ли использован принтер (Да,Нет) ?');
  ch:=ReadKey;
  If ch in ['Д','д','L','l'] then
    PrinterInd:=true
  Else
    PrinterInd:=false;
{ Ввод и печать исходных данных }
  ReadMatrix;
  Writeln('            Исходная матрица:');
  Writeln('                n = ',n,'  m=',m);
  ScreenMatrix;
  If PrinterInd then
    Begin
      Writeln(Lst,'             Исходная матрица:');
      Writeln(Lst,'                  n = ',n,'  m=',m);
      PrinterMatrix;
    End;
{ Поиск линейно зависимых строк }
For i:=1 to n-1 do
  Begin
    LinInd:=0;
    k:=0;
      While k<=n do
        begin
	k:=i+1;
          if a[i,j]>a[k,j] then
	 begin
	   p:=a[i,j] div a[k,j];
              q:=a[i,j] mod a[k,j];
	   Control:=true;
	 end
          else
	 begin
	   p:=a[k,j] div a[i,j];
	   q:=a[k,j] mod a[i,j];
	   Control:=false;
	 end;
{ ------------------------------------------------------------- }
	if q<>0 then
	  Break
	else
	  While j<m do
               begin
                 if Control then
                   begin
                     if (a[i,j+1] div a[k,j+1])<>p then
		 Break
	          else
		 Inc(LinInd);
		 Inc(j);
	        end
	          else 
		 begin
		   if (a[k,j+1] div a[i,j+1])<>p then
		     Break
		   else
		     Inc(LinInd);
		     Inc(j);
		 end;
               end;
{ ------------------------------------------------------------- }
         if LinInd=m then
	Inc(LinCount);
         end;
         If LinCount>0 then
	 Writeln('В данной матрице ',LinInd,' пар линейно зависимых строк')
         Else
	  Writeln('В данной матрице нет линейно зависимых строк');			
  End;
  WaitEscape;
End.

Процедуры все скопированы из методички, так что дело точно не в них.

[Mad_Cat]

на какой строчке Division By zero вылетает?

[Paul-SFL]

Mad_Cat, точно, забыл ..

For i:=1 to n-1 do
  Begin
    LinInd:=0;
    k:=0;
      While k<=n do
        begin
	k:=i+1;
          if a[i,j]>a[k,j] then
	 begin
	   p:=a[i,j] div a[k,j];
              q:=a[i,j] mod a[k,j];
	   Control:=true;
	 end
          else
	 begin
	   p:=a[k,j] div a[i,j];
	   q:=a[k,j] mod a[i,j];
	   Control:=false;
	 end;

Так-так.. Я тут попробовал с директивой {$R+} скомпилировать - получилось, но теперь при step over выдает ошибку 201 (Range check error) вот в этом месте:

For i:=1 to n-1 do
  Begin
    LinInd:=0;
    k:=0;
      While k<=n do
        begin
	k:=i+1;
          if a[i,j]>a[k,j] then

[Mad_Cat]

при step over выдает ошибку 201 (Range check error) вот в этом месте:

значит тут k уже больше n
попробуй

While k<n do

[Paul-SFL]

Нашел! Я ж параметру j ничего не присвоил , вставил для пробы j:=1 после k:=i+1 - заработало. Программа больше не вылетает. Только что-то долго вычисляет.. Минуту жду - ничего еще не посчитала. Из-за чего так может быть? Из-за кучи вложенных циклов?

[Mad_Cat]

Из-за чего так может быть

зациклилась где то)

[Paul-SFL]

По ходу, да. До сих пор ничего не вычислила. Буду искать ..
Ага, зацикливается While k<=n.. Step over - наше все .