Процедура и функции: Вывести элементы матриц, кратные 3

@scorch92 · Регистрация: 08.12.2010

Всем привет!)
нашел нежавно у вас на ФОРУМЕ задачку одну про матрицы.дак вот не могли бы вы мне сказать как сделать ее с помощью процедур и функций. а то я в этом не бум бум))
"Вывести на печать элементы целочисленных матриц N(5, 8) и M(10, 6) , кратные 3"
заранее огромное спасибо!))

Добавлено через 43 секунды
елы палы народ простите за ошибки-)) не специально))

@Ev[G]eN · 07.06.2011, 21:54

объемненько вышло...

Pascal

const
 n_n = 5; 
 n_m = 8;
 m_n = 10;
 m_m = 6;
type
 TMat = array[1..100, 1..100] of integer;
var
 MatN: TMat;
 MatM: TMat;
 i, j, k, l: integer;
 
procedure Kratn(ar: TMat; n, m: integer);
var
 i, j: integer;
begin
 writeln('Элементы кратные 3: ');
  for i:=1 to n do
   for j:=1 to m do
    if ar[i, j] mod 3 = 0 then write(ar[i, j], ' ');
 writeln;
end;
 
begin
 writeln('Матрица N: ');
  for i:=1 to n_n do
   begin
    for j:=1 to n_m do
     begin
      MatN[i, j]:=random(100);
      write(MatN[i, j]:4);
     end;
    writeln;
   end;
 writeln('Матрица M: ');
  for k:=1 to m_n do
   begin
    for l:=1 to m_m do
     begin
      MatM[k, l]:=random(100);
      write(MatM[k, l]:4);
     end;
    writeln;
   end;
 writeln;
 Kratn(MatN, n_n, n_m);
 Kratn(MatM, m_n, m_m);
end.

@scorch92 · 07.06.2011, 22:31 **[ТС]**

АААА!!! чувак!!! спасибо огромное!))) а то блин этот древний паскаль вит долгом остальное все сдал, а его не могу- ну не знаю и все))спасибо нереальное))

Добавлено через 35 секунд
"вит долгом" ну блин ляпнул))) висит долгом))

@scorch92 0 / 0 / 0 Регистрация: 08.12.2010 Сообщений: 23
		1
	Процедура и функции: Вывести элементы матриц, кратные 3 07.06.2011, 19:53. Показов 2196. Ответов 2 Метки нет (Все метки) Всем привет!) нашел нежавно у вас на ФОРУМЕ задачку одну про матрицы.дак вот не могли бы вы мне сказать как сделать ее с помощью процедур и функций. а то я в этом не бум бум)) "Вывести на печать элементы целочисленных матриц N(5, 8) и M(10, 6) , кратные 3" заранее огромное спасибо!)) Добавлено через 43 секунды елы палы народ простите за ошибки-)) не специально)) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@scorch92 0 / 0 / 0 Регистрация: 08.12.2010 Сообщений: 23
	07.06.2011, 22:31 [ТС]	3
	АААА!!! чувак!!! спасибо огромное!))) а то блин этот древний паскаль вит долгом остальное все сдал, а его не могу- ну не знаю и все))спасибо нереальное)) Добавлено через 35 секунд "вит долгом" ну блин ляпнул))) висит долгом)) 0

Опции темы

Процедура и функции: Вывести элементы матриц, кратные 3

Решение