Построить последовательность из нулей и единиц - Turbo Pascal

Формулировка задачи:

Даны две действительные квадратные матрицы порядка m. Построить последовательность из нулей и единиц b1,..., bn, где bi =1, если элементы i-ой строки матрицы образуют возрастающую последовательность и bi =0 в противном случае.
uses crt;
const
  m = 4;
 
type
  Matrix = array[1..m, 1..m] of integer;
  Mar = array[1..4] of integer;
 
var
  a, c: matrix;
  b: mar;
  i, j, n: integer;
 
 
procedure RanMat(var matr: matrix);
var
  i, j: integer;
begin
  randomize;
  begin
    for i := 1 to m do
    begin
      for j := 1 to m do
        matr[i, j] := random(100);
    end;
  end;
end;
 
//Проверка на возрастание / убывание
 
procedure Prover(matr: matrix);
begin
for i:=1 to m do begin
b[i]:=1;
for j:=1 to m do begin
if (j>1) and (matr[i,j]<=matr[i,j-1]) then b[i]:=0;
end;
writeln;
end;
writeln;
for i:=1 to n do begin
write(b[i]:3);
end;
end;
 
 
procedure Print(var matr: Matrix);
var
  j, i: integer;
begin
  for i := 1 to m do
  begin
    for j := 1 to m do
      write(matr[i, j]:4);
    writeln;
  end;
end;
 
 
begin
  writeln('Первая матрица: ');
  RanMat(a);
  Print(a);
  Prover(a);
  writeln('Вторая матрица: ');
  RanMat(c);
  Print(c);
  Prover(c);
end.
Подскажите ,почему у меня процедура Prover не работает? что там не так? Я уже не знаю какую неделю мучаю эту процедуру. Помогите пожалуйста, я в тупике...


textual

Код к задаче: «Построить последовательность из нулей и единиц - Turbo Pascal»

uses crt;
const
  m = 4;
 
type
  Matrix = array[1..m, 1..m] of integer;
  Mar = array[1..m] of integer;
 
var
  a, c: matrix;
  b: mar;
  i, j, n: integer;
 
 
procedure RanMat(var matr: matrix);
var
  i, j: integer;
begin
    for i := 1 to m do
    begin
      for j := 1 to m do
        matr[i, j] := random(10)+5*j;
    end;
end;
 
procedure Prover(matr: matrix);
var pr:boolean;
begin
for i:=1 to m do
begin
b[i]:=0;
pr:=true;
for j:=1 to m-1 do
if (matr[i,j]>=matr[i,j+1]) then pr:=false;
if pr=true then
b[i]:=1
else b[i]:=0;
write(b[i],' ');
end;
writeln;
end;
 
 
procedure Print(var matr: Matrix);
var
  i, j : integer;
begin
  for i := 1 to m do
  begin
    for j := 1 to m do
      write(matr[i, j]:4);
    writeln;
  end;
end;
 
 
begin
  clrscr;
  randomize;
  writeln('First: ');
  RanMat(a);
  Print(a);
  Prover(a);
  writeln('Second: ');
  RanMat(c);
  Print(c);
  Prover(c);
  readkey;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.000 из 5

Источник