Для каждой из двух целочисленных матриц вывести на печать элементы, кратные трем (Pascal)

[pitak]

Здравствуйте, помогите, пожалуйста с этой задачей, у меня что-то не получается. Где ошибка?

Program Proced;
type
vector=array [1..100,1..100] of integer;
var
A:vector;
B:vector;
i,j,n,m:integer;
Procedure Kratn(P:vector;
g,r:integer;l,k:integer);
begin
for l:=1 to g do
for k:=1 to r do
if P[l,k]mod 3=0 then
writeln(P[l,k]);
end;
begin
writeln('vvedite razmer matr A n-m');
readln(n,m);
for i:=1 to n do begin
for i:=1 to m do
read (A[i,j]);
writeln;
end;
Kratn(a,n,m,i,j);
writeln ('vvedite razmer matr B n-m');
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do
readln(B[i,j]);
writeln;
end;
Kratn(B,n,m,i,j);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Kratn(a,n,m,i,j);

I и j чему равны?

[pitak]

Сообщение от ZX Spectrum-128

Kratn(a,n,m,i,j);

I и j чему равны?

единице, вот тут ошибся for i:=1 to m do, нужно написать for j:=1 to m do

[type_Oleg]

И вот тут

for i:=1 to n do begin
 for i:=1 to m do 
  read (A[i,j]);

Цикл в цикле, а переменная цикла одна - i.

PS А, уже сам заметил.
А про эти последние 2 параметра (формальные ;l,k:integer) - непонятно. Они вроде - не выходные, без var, но и как входные никак не используются, их суют в for, как счетчик.

[pitak]

Заработала. Возник вопрос: как переделать программу, если у меня матрица А[10,5], матрица В[7,6]? И как сделать, чтобы не вручную вводить 50 элементов матрицы А и 42 элемента матрицы B,а рандомно?

[Serge_Bliznykov]

по большому счёту ошибка была только вот здесь:

for i:=1 to n do begin
   for i:=1 to m do

но я позволил себе ещё чуток "причесать" код:

program Proced;
type
  vector = array[1..100, 1..100] of integer;

procedure Kratn(const P: vector; g, r: integer);
var
  l, k: integer;
begin
  for l := 1 to g do begin
    for k := 1 to r do
      if P[l, k] mod 3 = 0 then
        write(P[l, k]: 3, ' ');
    WriteLn;
  end;
end;

var
  A: vector;
  B: vector;
  i, j, nA, mA, nB, mB: integer;

begin
  writeln('vvedite razmer matr A n-m');
  readln(nA, mA);
  for i := 1 to nA do
    for j := 1 to mA do
      readln(A[i, j]);

  writeln('vvedite razmer matr B n-m');
  readln(nB, mB);
  for i := 1 to nB do
    for j := 1 to mB do
      readln(B[i, j]);

  WriteLn('kratnye v Matrix A: ');
  Kratn(A, nA, mA);

  WriteLn('kratnye v Matrix B: ');
  Kratn(B, nB, mB);
  WriteLn;
  Readln;
end.

[type_Oleg]

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

..а рандомно?

Функция Random(n) возвращает случайное равномерно распределенное число от 0 до n-1.
И процедура Randomize к ней - 1 раз. Вне цикла.

[pitak]

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

[pitak]

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

Функция Random(n) возвращает случайное равномерно распределенное число от 0 до n-1.
И процедура Randomize к ней - 1 раз. Вне цикла.

Да, я ее и имел ввиду, но куда ее поставить в данном коде?

[Serge_Bliznykov]

program Proced;
type
  vector = array[1..100, 1..100] of integer;

procedure Kratn(const P: vector; g, r: integer);
var
  l, k: integer;
begin
  for l := 1 to g do begin
    for k := 1 to r do
      if P[l, k] mod 3 = 0 then
        write(P[l, k]: 3, ' ');
    WriteLn;
  end;
end;

var
  A: vector;
  B: vector;
  i, j, nA, mA, nB, mB: integer;

begin
  Randomize;
  writeln('vvedite razmer matr A n-m');
  readln(nA, mA);

  writeln('vvedite razmer matr B n-m');
  readln(nB, mB);

  for i := 1 to nA do begin
    for j := 1 to mA do begin
      A[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(A[i,j]:3,' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;

  for i := 1 to nB do begin
    for j := 1 to mB do begin
      B[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(B[i,j]:3,' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;


  WriteLn('kratnye v Matrix A: ');
  Kratn(A, nA, mA);

  WriteLn('kratnye v Matrix B: ');
  Kratn(B, nB, mB);
  WriteLn;
  Readln;
end.