Паскаль. Многомерные массивы - Страница 2

Vladimir_S · 21.05.2015, 21:45

Уважаемые коллеги, вообще-то эта задачка решается в одну строку:

Код:

Function Test(A:Matrix; k:Byte):Boolean;
begin
 Test:=((k<10) and (A[k]=A[k+1])) or ((k=10) and (A[k]=A[1]));
end;

Всё! Потому что - не забываем! - двумерный массив в Паскале допускает интерпретацию, как "массив одномерных массивов", причем каждый одномерный массив - это строка матрицы.

MagentaTiger · 21.05.2015, 22:10

Цитата:

Сообщение от Vladimir_S

Уважаемые коллеги, вообще-то эта задачка решается в одну строку:

Вы что то путаете коллега

В данной постановке задачи подразумевается, что все элементы в строке К, равны всем элементам в строке К+1 (или для вырожденного случая при K=10 элементам в строке 1), в Вашем же примере при

Код:

  type Matrix = array[1..10,1..10] of Integer;

пример даже не скомпилиться, ругнется на несовместимость типов

Vladimir_S · 22.05.2015, 10:22

Цитата:

Сообщение от MagentaTiger

Вы что то путаете коллега

Да, виноват - поторопился. Не учел, что операция проверки на равенство одномерных массивов некорректна. Казалось, что допустимо. Ан нет. Вы правы.

21.05.2015, 21:45	#11 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Уважаемые коллеги, вообще-то эта задачка решается в одну строку: Код: Function Test(A:Matrix; k:Byte):Boolean; begin Test:=((k<10) and (A[k]=A[k+1])) or ((k=10) and (A[k]=A[1])); end; Всё! Потому что - не забываем! - двумерный массив в Паскале допускает интерпретацию, как "массив одномерных массивов", причем каждый одномерный массив - это строка матрицы.

21.05.2015, 21:45
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не стоит делать поспешных действий, полистайте аналогичные проблемы Многомерные массивы язык Си Массивы. Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070