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

Определить, сколько в матрице пар соседних одинаковых элементов

14.01.2011, 14:59. Показов 1833. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив чисел МхМ. Определить, сколько в нем пар соседних одинаковых элементов. Элементы считаются соседними, если их индексы в столбцах и\или строках различаются не более, чем на единицу.
помогите пожалуйста((
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program nG;
const
n=10;
var
i,k:integer;
a:array [1..10] of integer;
begin
Randomize;
For i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:5);
end;
for i:=1 to 9 do
begin
If a[i]=a[i+1] then
inc(k);
 
end;
writeln('        Sovpadeniy     ',k);
end.
вот эта программа тож считает сколько пар одинаковых элементов, но для последовательности..а мне вот нужно для двумерного массива...

Добавлено через 41 минуту
людиии мне через час ехать уже сдавать, пожалуйста, выручите..
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2011, 14:59
Ответы с готовыми решениями:

Дан массив чисел.Найти,сколько в нем пар одинаковых соседних элементов
8.34 Дан массив чисел.Найти,сколько в нем пар одинаковых соседних элементов.

Определить, сколько в последовательности пар соседних равных элементов
Завтра зачёт по Информатике, большинство программ я сделал, а вот с этой сижу мучаюсь, можете...

Найти количество одинаковых пар соседних элементов массива
Program prog2; Uses crt; const m=100; var mas : array of integer; i, k, n : integer; Begin ...

Дан двумерный массив целых чисел размера m*n . Определить, сколько в нем пар соседних одинаковых элементов
Дан двумерный массив целых чисел размера m*n . Определить, сколько в нем пар соседних одинаковых...

8
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
14.01.2011, 15:43 2
Вот как-то примерно так. Тут считаются и диагональные пары (так я понял условие).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a: array [1..m,1..n] of integer;
  i,j,s: word;
  ...
begin
  ...
  s:=0;
  for i:=1 to m-1 do
    for i:=1 to n-1 do begin
      Inc(s, 
        word(a[i,j]=a[i+1,j])+
        word(a[i,j]=a[i,j+1])+
        word(a[i,j]=a[i+1,j+1])+
        word(a[i+1,j]=a[i,j+1])
      );
  for i:=1 to m-1 do Inc(s, word(a[i,n]=a[i+1,n];
  for j:=1 to n-1 do Inc(s, word(a[j,m]=a[j+1,n];
  writeln(s);
  ...
0
267 / 258 / 47
Регистрация: 08.10.2009
Сообщений: 554
14.01.2011, 16:19 3
use, исправил некоторые твои ошибки
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
Program nG;
const
    m=3; n=3;
var
    i,j,s:word;
    a:array [1..m,1..n] of integer;
begin
Randomize;
For i:=1 to m do
    begin
        for j:= 1 to n do
            begin
                a[i,j]:=random(6);
                write(a[i,j]:5);
            end;
        writeln;
    end;
 
  s:=0;
  for i:=1 to m-1 do
    for j:=1 to n-1 do begin
      Inc(s,
        word(a[i,j]=a[i+1,j])+
        word(a[i,j]=a[i,j+1])+
        word(a[i,j]=a[i+1,j+1])+
        word(a[i+1,j]=a[i,j+1])
      );
end;
  for i:=1 to m-1 do Inc(s, word(a[i,n]=a[i+1,n]));
  for j:=1 to n-1 do Inc(s, word(a[m,j]=a[m,j+1]));
  writeln(s);
 readln;
 end.
1
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
14.01.2011, 16:34 4
Цитата Сообщение от yamilramilev Посмотреть сообщение
use, исправил некоторые твои ошибки
...
end;
О, млин!!! позор мне )) Спасибо, yamilramilev
0
2 / 2 / 0
Регистрация: 05.01.2011
Сообщений: 48
14.01.2011, 17:34  [ТС] 5
Цитата Сообщение от use Посмотреть сообщение
О, млин!!! позор мне )) Спасибо, yamilramilev
люди, у мя не рабэ прога...
ошибка вот тут
Pascal
1
For i:=1 to m do
переменная цикла For должна иметь тип integer, char, byte, интервальный или перечислимый..вот..
0
267 / 258 / 47
Регистрация: 08.10.2009
Сообщений: 554
14.01.2011, 17:35 6
че за паскаль у тя?
0
2 / 2 / 0
Регистрация: 05.01.2011
Сообщений: 48
14.01.2011, 17:36  [ТС] 7
Цитата Сообщение от yamilramilev Посмотреть сообщение
че за паскаль у тя?
Pascal ABC
0
267 / 258 / 47
Регистрация: 08.10.2009
Сообщений: 554
14.01.2011, 17:40 8
попробуй везде слово word заменить на integer
0
2 / 2 / 0
Регистрация: 05.01.2011
Сообщений: 48
14.01.2011, 17:43  [ТС] 9
Цитата Сообщение от yamilramilev Посмотреть сообщение
попробуй везде слово word заменить на integer
пробовал...
Pascal
1
2
 Inc(s,
        integer(a[i,j]=a[i+1,j])+
теперь ошибка тут...
Явное преобразование типа boolean к типу integer запрещено
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2011, 17:43
Помогаю со студенческими работами здесь

Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов
Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов

Дан массив чисел. Найти, сколько в нём пар одинаковых соседних элементов
Ну, собственно, задача написана в сабже. Если кто может, помогите. Заранее благодарю

Дан массив чисел. Найти сколько в нем пар одинаковых соседних элементов.
(1). Дан массив А(n) состоящий из целых чисел. Определить количество элементов имеющих четные...

Определить количество пар одинаковых соседних элементов в массиве
Дан массив чисел. Найти, сколько в нём пар одинаковых соседних элементов.

Определить в двух массивах количество пар одинаковых соседних элементов
помогите пожалуйста)) определить в двух массивах количество пар одинаковых соседних элементов

Найти, сколько в массиве пар одинаковых соседних элементов
1. Напишите программу, в которой создается массив чисел. Найти, сколько в нем пар одинаковых...


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

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

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