Перевёртыши (TurboPascal)

[VladKB1]

Задан числовой массив a[n]. Найдите отрезок массива максимальной длины, в котором первое
число равно последнему, второе – предпоследнему и так далее.
Если подходящих отрезков несколько, выведите первый по порядку.

Формат ввода: первая строка: n. n ≤ 7000. Вторая строка: элементы массива.
-maxint ≤ a[i] ≤ maxint

Формат вывода: искомый отрезок.

input.txt
9
5 3 4 7 4 3 6 6 3

output.txt
3 4 7 4 3

[ZX Spectrum-128]

Нахождение палиндрома и максимального палиндрома - (С) Puporev

function palindrom(r:string):boolean;
var
  i:byte;
begin
  palindrom:=true;
  for i:=1 to length(r)div 2 do
    if (r[i]<>r[length(r)-i+1]) then
  palindrom:=false;
end;

var
  s,r,s1:string;
  i,j,mx:integer;
  f,g:text;

begin
  assign(f,'input.txt');
  assign(g,'output.txt');
  reset(f);
  readln(f,s);
  val(s,i,j);
  s1:='';
  for j:=1 to i do
    begin
      read(f,mx);
      str(mx,s);
      s1:=s1+s;
    end;
  close(f);

  s:=s1;
  if length(s)<2 then
    r:=s
  else
    begin
      mx:=1;
    for i:=1 to length(s)-1 do
      for j:=i+1 to length(s) do
        begin
          s1:=copy(s,i,j-i+1);
          if palindrom(s1) and(j-i+1>mx) then
            begin
              mx:=j-i+1;
              r:=s1;
            end;
        end;
    end;

  writeln('Палиндром максимальной длины = ',r);
  rewrite(g);
  for i:=1 to length(r) do 
    write(g,r[i],' ');
  close(g);
  readln;

end.

[VladKB1]

Сообщение от ZX Spectrum-128

Нахождение палиндрома и максимального палиндрома - (С) Puporev

function palindrom(r:string):boolean;
var
  i:byte;
begin
  palindrom:=true;
  for i:=1 to length(r)div 2 do
    if (r[i]<>r[length(r)-i+1]) then
  palindrom:=false;
end;

var
  s,r,s1:string;
  i,j,mx:integer;
  f,g:text;

begin
  assign(f,'input.txt');
  assign(g,'output.txt');
  reset(f);
  readln(f,s);
  val(s,i,j);
  s1:='';
  for j:=1 to i do
    begin
      read(f,mx);
      str(mx,s);
      s1:=s1+s;
    end;
  close(f);

  s:=s1;
  if length(s)<2 then
    r:=s
  else
    begin
      mx:=1;
    for i:=1 to length(s)-1 do
      for j:=i+1 to length(s) do
        begin
          s1:=copy(s,i,j-i+1);
          if palindrom(s1) and(j-i+1>mx) then
            begin
              mx:=j-i+1;
              r:=s1;
            end;
        end;
    end;

  writeln('Палиндром максимальной длины = ',r);
  rewrite(g);
  for i:=1 to length(r) do 
    write(g,r[i],' ');
  close(g);
  readln;

end.

Конечно спасибо за решение, но нельзя пользоваться функциями,типом переменных string. Извините что сразу не написал

[Аватар]

  L:=0;
  for i:=1 to n do
    for j:=n downto i do begin
      Equ:=True;
      for k:=i to i+((j-i) div 2) do Equ:=Equ and (a[k]=a[j+i-k]);
      if Equ and (L<j-i+1) then begin L:=j-i+1; P:=i; end;
    end;

P - инднекс начала палиндрома в массиве
L - длина палиндрома
a - array [1..n]

[VladKB1]

Сообщение от Аватар

  L:=0;
  for i:=1 to n do
    for j:=n downto i do begin
      Equ:=True;
      for k:=i to i+((j-i) div 2) do Equ:=Equ and (a[k]=a[j+i-k]);
      if Equ and (L<j-i+1) then begin L:=j-i+1; P:=i; end;
    end;

P - инднекс начала палиндрома в массиве
L - длина палиндрома
a - array [1..n]

Большое вам спасибо , но длина палиндрома у меня равна 1. Как исправить?

.... 
for i:=1 to n do
 for j:=n downto i do
 begin
  q:=True;
  for u:=i to i+((j-i) div 2) do
  q:=q and (a[u]=a[j+i+u]);

  if q and (l<j-i+1) then
  begin
   l:=j-i+1;
   P:=i;
  end;
 end;
 write(a[p],' ');
 for i:=1 to l do write(a[p+i],' ');
end.

Я дал l другое значение не может ли быть ошибки на других тестах?

...
 l:=((n-1) div 2);
...

[Аватар]

Я дал l другое значение не может ли быть ошибки на других тестах?

Обязательно. Сначала правильно мой код примени. Как минимум еще одна ошибка есть. И цикл выдачи палиндрома не правильный

[VladKB1]

Сообщение от Аватар

Обязательно. Сначала правильно мой код примени. Как минимум еще одна ошибка есть. И цикл выдачи палиндрома не правильный

я изменил правильно?

 ...
  if q and (l<j-i+1) then
  begin
   l:=j-i+1;
   P:=i;
  end;
 end;
 for i:=p to n-p-l do write(a[i],' ');
end.

[Аватар]

Код есть, сравнивай. Или слабо? А выдать так можно

for i:=P to P+L-1 do write(a[i],' ');

От пробела в конце сам избавляйся

[VladKB1]

Сообщение от Аватар

Код есть, сравнивай. Или слабо? А выдать так можно

for i:=P to P+L-1 do write(a[i],' ');

От пробела в конце сам избавляйся

При такой записи мы делам цикл от 2 до 2! Я написал так и всё работает:

for i:=p to n-p-2 do write(a[i],' ');
 writeln(a[n-p-1]);

Но всё же спасибо за помощь! P.S если не заняты помогите с этой задачей http://programmersforum.ru/showthread.php?t=262568

[SlavaSSU]

это же кубическое решение, не? оно в ограничение по времени влезло?