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

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

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

Author24 — интернет-сервис помощи студентам
Дан массив чисел МхМ. Определить, сколько в нем пар соседних одинаковых элементов. Элементы считаются соседними, если их индексы в столбцах и\или строках различаются не более, чем на единицу.
помогите пожалуйста((
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
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.01.2011, 14:59
Ответы с готовыми решениями:

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

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

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

8
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
14.01.2011, 15:43
Вот как-то примерно так. Тут считаются и диагональные пары (так я понял условие).
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
 Аватар для yamilramilev
267 / 258 / 47
Регистрация: 08.10.2009
Сообщений: 554
14.01.2011, 16:19
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
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
14.01.2011, 16:34
Цитата Сообщение от yamilramilev Посмотреть сообщение
use, исправил некоторые твои ошибки
...
end;
О, млин!!! позор мне )) Спасибо, yamilramilev
0
2 / 2 / 0
Регистрация: 05.01.2011
Сообщений: 48
14.01.2011, 17:34  [ТС]
Цитата Сообщение от use Посмотреть сообщение
О, млин!!! позор мне )) Спасибо, yamilramilev
люди, у мя не рабэ прога...
ошибка вот тут
Pascal
1
For i:=1 to m do
переменная цикла For должна иметь тип integer, char, byte, интервальный или перечислимый..вот..
0
 Аватар для yamilramilev
267 / 258 / 47
Регистрация: 08.10.2009
Сообщений: 554
14.01.2011, 17:35
че за паскаль у тя?
0
2 / 2 / 0
Регистрация: 05.01.2011
Сообщений: 48
14.01.2011, 17:36  [ТС]
Цитата Сообщение от yamilramilev Посмотреть сообщение
че за паскаль у тя?
Pascal ABC
0
 Аватар для yamilramilev
267 / 258 / 47
Регистрация: 08.10.2009
Сообщений: 554
14.01.2011, 17:40
попробуй везде слово word заменить на integer
0
2 / 2 / 0
Регистрация: 05.01.2011
Сообщений: 48
14.01.2011, 17:43  [ТС]
Цитата Сообщение от yamilramilev Посмотреть сообщение
попробуй везде слово word заменить на integer
пробовал...
Pascal
1
2
 Inc(s,
        integer(a[i,j]=a[i+1,j])+
теперь ошибка тут...
Явное преобразование типа boolean к типу integer запрещено
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.01.2011, 17:43
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
Verilog и интеллектуальная собственность - "глазами" обученной LM модели.
Hrethgir 17.04.2025
В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .
Свап-файл дополнительно к разделу (если вдруг не хватает или не создан)
jigi33 17.04.2025
ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru