Помощь - Поиск - Пользователи - Календарь
Полная версия: Перевертыш_Помогите кто нибудь Плиз
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
antonrusul
прошу помощи. паскаль недавно изучаю по контрольной задали задачу всю голову изломал плиз помогите
условие задачи:

Существует ли в матрице строка или столбец палиндром, т.е. перевертыш, т.е. A[I,1] = A[I,N]; A[I,2] = A[I,N-1] и т.д. или A[J,1] = A[J,N]; A[J,2] = A[J,N-1].
TS*
Цитата(antonrusul @ 26.01.2007 21:33) *

прошу помощи. паскаль недавно изучаю по контрольной задали задачу всю голову изломал плиз помогите
условие задачи:

Существует ли в матрице строка или столбец палиндром, т.е. перевертыш, т.е. A[I,1] = A[I,N]; A[I,2] = A[I,N-1] и т.д. или A[J,1] = A[J,N]; A[J,2] = A[J,N-1].



const
n=5; m=5;
var
i,j: integer;
mA: array[1..n, 1..m] of integer;
stroka_palundrom: boolean;
..............
begin
for i:=1 to n do begin
stroka_palundrom:=true;
for j:=1 to (m div 2) do begin
if (not(mA[i,j]=mA[i,m+1-j])) then stroka_palundrom:=false;
end;
if(stroka_palundrom) then writeln("Stroka palundrom sysh4estvyet, eto stroka nomer ", i);
end;
.............
end.



Так же делаеш и для столбца
antonrusul
Большое Спасибо :-)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.