Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Перевертыш_Помогите кто нибудь Плиз

Автор: antonrusul 27.01.2007 2: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].

Автор: TS* 27.01.2007 3:41

Цитата(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 27.01.2007 3:50

Большое Спасибо :-)