IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Соседние элементы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Евгений

Репутация: -  1  +


Здравствуйте!
Поммогите решить задачу : Определить есть ли в двухмерном массиве одинаковые соседние элементы.

В одномерных массивах я использовал такой способ

for i:=1 to n-1
if a[i]=a[i+1] then write ('yes') else write ('no')


но в двухмерных он наверное не пройдёт
ниже текст всей задачи

program f323;
const n=3;
var a:array [1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
for i:=1 to n do begin
for j:=1 to n do write (a[i,j]:5);
writeln end;
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[i,j]= a[i+1,j+1] then writeln ('есть)
else write('нет');
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Гм. Полезно все же просматривать свои мессаджи.. В приведенном выше коде есть ошибка ((. Точнее, не совсем ошибка, ибо результат все же будет правильный, а скорее неэффективность.
Нужно вот так:
var
Answer: string;
.... // другие переменные

begin
.... // запонение матрицы
Answer:='no';
for i:=2 to n do begin
for j:=2 to m do if (a[i,j]=a[i-1,j])or(a[i,j]=a[i,j-1]) then begin
Answer:='yes';
break
end;
if Answer='yes' then break
end;
WriteLn(Answer)
end.

Либо вот так:
var
Answer: boolean;
.... // другие переменные

begin
.... // запонение матрицы
Answer:=false;
for i:=2 to n do begin
for j:=2 to m do begin
Answer:=(a[i,j]=a[i-1,j])or(a[i,j]=a[i,j-1]);
if Answer then break
end;
if Answer then break
end;
if Answer then WriteLn('yes') else WriteLn('no')
end.

Кстати сказать - выход из двойного (или больше) цикла - это, пожалуй, единственная ситуация, зароняющая мне в душу сомнения насчет правильности полного отрицания goto )). Было бы, кстати, удобно иметь что-то типа break(n) , где n - это на сколько уровней вверх.
Можно, конечно, сделать через функцию, и в ней пользовать exit вместо break .. smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.06.2024 19:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name