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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2011, 19:53
Ответы с готовыми решениями:

Вывести на печать элементы матриц, кратные трем.
помогите пожалуйста..... Вывести на печать элементы целочисленных матриц N(5,8) и M(10,6),...

Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество
задан массив из 40 элементов принадлежащих отрезку от А до Б(вводятся с клавиатуры) вывести на...

Подпрограмма процедура. Максимальный и минимальный элементы матриц.
Здравствуйте, умные люди! Помогите, пожалуйста: Дано задание: Найти минимальный и максимальный ...

Вывести на печать элементы массива, кратные трем
КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно) #47. Вычислить значения функции z=x√(x*y), ...

2
Mobile Software Engineer
Эксперт С++
5365 / 1584 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
07.06.2011, 21:54 2
Лучший ответ Сообщение было отмечено scorch92 как решение

Решение

объемненько вышло...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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.
1
0 / 0 / 0
Регистрация: 08.12.2010
Сообщений: 23
07.06.2011, 22:31  [ТС] 3
АААА!!! чувак!!! спасибо огромное!))) а то блин этот древний паскаль вит долгом остальное все сдал, а его не могу- ну не знаю и все))спасибо нереальное))

Добавлено через 35 секунд
"вит долгом" ну блин ляпнул))) висит долгом))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2011, 22:31
Помогаю со студенческими работами здесь

Вывести на экран все элементы массива, кратные М
Задание в турбо паскале. Звучит следующим образом: Вывести на экран все элементы массива, кратные...

Вывести на экран элементы массива, кратные 5, и их индексы
Дан целочисленный массив А. Вывести на экран элементы массива, кратные 5, и их индексы.

Вывести на экран элементы массива, кратные 5, и их индексы
5. Дан целочисленный массив А. Вывести на экран элементы массива, кратные 5, и их индексы.

Вывести на экран элементы массива кратные 5 и их индексы
Создать двумерный целочисленный массив 5×3 Вывести на экран элементы массива кратные 5 и их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru