0 / 0 / 1
Регистрация: 04.11.2009
Сообщений: 90
1

Двумерная матрица

20.11.2009, 16:16. Показов 1600. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста решить задачу
В матрице A=(a[i,j] (i,j=1,2,...,n) каждый элемент равен 1,2,3 или 4. Подсчитайте количество четверок
a[i,j],a[i,j+1],a[i+1,j],a[i+1,j+1], в каждой из которых все элементы различны; n=6
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2009, 16:16
Ответы с готовыми решениями:

двумерная матрица
необходимо в указанной строке заменить любое число на 6 (номер строки вводится с клавиатуры) и...

Двумерная матрица: найти минимальную сумму из чисел стоящих на диагоналях параллельных побочной
Дано A(6.6) Двумерная матрица из этой матрицы надо найти минимальную сумму параллельным побочной...

Дана двумерная матрица размером 5 на 5, найти строку с максимальной суммой
Дана двумерная матрица размером 5 на 5 Задача Найти строку с максимальной суммой // Дана...

Дана двумерная матрица и число D. Сверить каждый элемент массива с числом D
Дана двумерная матрица и число D. Сверить каждый элемент массива с числом D. Если число D меньше...

6
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
20.11.2009, 17:39 2
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
uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
 begin
  ClrScr;
  Writeln('Введите матрицу...');
   for i:=1 to n do
     for j:=1 to n do
    begin
      Write('a[',i,',',j,']->');
      Readln(a[i,j]);
    end;
   if (a[i,j]>=1) and (a[i,j]<=4) then
    begin
   Writeln('Введенная матрица...');
    for i:=1 to n do
     begin
      for j:=1 to n-1 do
       Write(a[i,j]:3);
       Writeln(a[i,n]:3);
     end;
   for i:=1 to n do
    for j:=1 to n do
      if a[i,j]=4 then
       k:=k+1;
       Writeln('Кол-во четверок: ',k);
    end
   else
   Writeln('Ошибка!');
  Readln;
 end.
1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.11.2009, 18:19 3
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
uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,k,p,q,sm,pr:integer;
begin
ClrScr;
randomize;
Writeln('Введенная матрица...');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(4)+1;
    Write(a[i,j]:3);
   end;
  Writeln;
 end;
k:=0;
for i:=1 to n-1 do
for j:=1 to n-1 do
 begin
  sm:=0;pr:=1;
  for p:=i to i+1 do
  for q:=j to j+1 do
   begin
    sm:=sm+a[p,q];
    pr:=pr*a[p,q];
   end;
  if(sm=10)and(pr=24)then k:=k+1;
 end;
write('Всего четверок=',k);
readln
end.
2
0 / 0 / 1
Регистрация: 04.11.2009
Сообщений: 90
20.11.2009, 18:19  [ТС] 4
большое спасибо
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
20.11.2009, 18:28 5
kkkcСю, мой вариант не правильный, пишите тот, что написал г-н Puporev...
1
0 / 0 / 1
Регистрация: 04.11.2009
Сообщений: 90
20.11.2009, 20:21  [ТС] 6
спасибо)))
простите за глупый вопрос, но я не понимаю значение цикла
for p:=i to i+1 do
for q:=j to j+1 do
0
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.11.2009, 21:14 7
Нам нужны квадратики из 4х клеток, т.е. 2х2, это значит мы в каждой ячейке начинаем маленькую матрицу, которая начинается в клетке [i,i] и на 1 вниз [i+1] и на 1 вправо [j+1]. Вы сами попробуйте разобраться, на бумаге нарисуйте матрицу.
1
20.11.2009, 21:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2009, 21:14
Помогаю со студенческими работами здесь

Двумерная матрица N*M, удалить строку и столбец на пересечении которых стоит макс. элемент
Подскажите пожалуйста, не могу понять в чем проблема. Почему выводит матрицу с пропуском строчки?

Дана двумерная матрица, найти сумму четных по столбцам и нечетных по строкам.Найти и вывести
Дана двумерная матрица, найти сумму четных по столбцам и нечетных по строкам.Найти и...

Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной.
Ребят,помогите решить задачу &quot;Дана квадратная матрица А порядка n. Проверить, является ли матрица...

Матрица:Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое: каждого из столбцов
Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое:...


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

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

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