Переполнение строки

[weech]

Не могу понять, почему, подскажите, пожалуйста. Участок кода с ошибкой выделен.

Программа должна определять, можно ли из введеннйо последовательности прописных латинских букв составить палиндром и если да, то вывести его.

var
   i,k,l:integer;
   s:string;
   a:array [65..90] of integer;
begin
s:=''; k:=0;
for i:=65 to 90 do a[i]:=0;
    readln(s);
    l:=length(s);
for i:=1 to l do inc(a[ord(s[i])]);
    s:='';
for i:=90 downto 65 do
  if odd(a[i])
    then
       begin
       inc(k);
       
       if k=2
          then
              begin
              writeln('No');
              break;
              end;
       if s=''
          then
              begin
              s:=chr(i);
              Dec(a[i]);
              end
          else
              begin
              Insert(chr(i),s,length(s) div 2);
              Dec(a[i]);
              end;
       end
    else
        repeat
        s:=chr(i)+s+chr(i);
        Dec(a[i],2);
        until a[i]=0;
writeln('Yes ', s);
end.

[dann.ftk]

Возможно, a[i] равно нулю до того, как ты вычитаешь из него 2
Тогда a[i] становится отрицательным -> переполнение

Еще можно задать слишком длинную строку, например 255 символов (это вроде стандарт для Паскаля при определении типа string без явного указания размера)
Тогда переполнение будет из-за того, что к этой строке ты прибавляешь еще что-то и переприсваиваешь -> переполнение

[Serge_Bliznykov]

Сообщение от dann.ftk

Возможно, a[i] равно нулю до того, как ты вычитаешь из него 2

подтверждаю. так и есть. проверки на то, что в A[i] ноль - нет!


такое решение устроит?

var
   ch, Center : char;
   i, k  : integer;
   s  : string;
   a  : array ['A'..'Z'] of integer;
begin
  s:='';
  for ch:='A' to 'Z' do a[ch]:=0;

  repeat
    WriteLn('Введите строку из прописных латинских букв: ');
    readln(s);
    k:=0;
    for i:=1 to length(s) do
      if not( s[i] in ['A'..'Z']) then inc(k);
  until (length(s)>0) and (k=0);

  for i:=1 to length(s) do inc(a[s[i]]);

  {сначала определим, можно ли составить палиндром.
   для этого проверим, сколько непарных букв в строке (нечётных).
   таких допускается не более ОДНОЙ!}
  k:=0;
  Center := #0;
  for ch:='A' to 'Z' do 
    if odd(a[ch]) then begin
       inc(k);
       Center := ch; {запомним, какой символ встречался нечётное число раз!}

       {и УМЕНЬШИМ на единицу счётчик этого символа, теперь там будет чётное чило (или ноль)}
       dec( a[ch] )
    end;

  if k>1 then WriteLn('Палиндром составить нельзя!')
  else begin
    {можно составить. чем мы и займёмся!}

    if k=0  {в строке нет непарных элементов}
      then s := ''
      else s := Center; {иначе непарный сразу поставим в центр строки}

    for ch:='Z' downto 'A' do
      if (a[ch]>0) and not odd(a[ch]) 
      then
        for i:=1 to (a[ch] div 2) do s:= ch+s+ch;

    WriteLn('YES! Палиндром: ',s);

  end;   
  Readln
end.

[weech]

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

такое решение устроит?

Ну вообще-то не совсем:


Не соображу, почему отбрасывает часть...

[Serge_Bliznykov]

Не соображу, почему отбрасывает часть...

почему, почему... потому что я в алгоритме ОШИБКУ допустил.
нечётный элемент я то в центр помещаю. Но я совершенно упустил из виду, что нечётный - это совсем не обязательно 1 (ОДИН) элемент, может быть и три и пять и семь т.д...

вот, можно так:

  {сначала определим, можно ли составить палиндром.
   для этого проверим, сколько непарных букв в строке (нечётных).
   таких допускается не более ОДНОЙ!}
  for ch:='A' to 'Z' do 
    if odd(a[ch]) then begin
       inc(k);
       Center := ch; {запомним, какой символ встречался нечётное число раз!}

       {и УМЕНЬШИМ на единицу счётчик, теперь там будет чётное чило (или ноль)}
       dec( a[ch] )    
  end;

p.s. в коде выше я тоже подправлю (так, чтобы всё было чистенько и аккуратенько!)

p.p.s. приношу извинения за такую досадную промашку с моей стороны!

[weech]

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

p.p.s. приношу извинения за такую досадную промашку с моей стороны!

Да бросьте вы, все мы люди Спасибо за помощь, исправил у себя по подобию.