Pascal - palindrom ili "podpalindrom"

Kod za provjeru je li panlindrom si staviš u funkciju, ako već nisi.

Prvo provjeravaš je li palindrom čitava riječ. Ako nije, onda uzmeš dio stringa (funkcijom Copy) za jedan manje duljine pa provjeravaš je li on palindrom. Ako ni oni nisu, ideš na još kraće dijelove stringa, dok ne dođeš do duljine stringa za provjeru veličine tri.

Znači, ako je riječ "palindrom" - u prvoj iteraciji provjeravaš "palindrom". U drugoj iteraciji provjeravaš "palindro" i "alindrom". U trećoj "palindr", "alindro" i "lindrom".

Tako da bi valjda imao dvije petlje, nešto u stilu:

jeLiPalindrom = false;

for i := len(puniString) down to 3 do

begin

  for j := 0 to len(puniString) - i do

  begin

   podString := Copy(puniString, j, i);

   jeLiPalindrom = palindrom(podString);

   if jeLiPalindrom then break;   

  end;

  if jeLiPalindrom then break;

end;

if jeLiPalindrom then WriteLn("Palindrom je: ", podString) else WriteLn("Nije nadjeno palindroma");

Nisam 100 godina radio u Pascalu, tako da ovo treba uzeti s rezervom. Ali brijem da je to tu negdje...

Daj kod. Stavi ga na CodeShare: https://codeshare.io/new

Znači, kod je tu: https://codeshare.io/aYzE4M

U kodu si napravio kardinalnu pogrešku, a to je da nisi inicijalizirao varijablu a. Znači, prva linija funkcije ti je trebala biti:

a := '';

A i dalje ima grešaka. Pogledaj sad kod. Funkciju sam inače preradio tako da nema kopiranja stringa naopačke, nego se samo uspoređuju slova unutar istog stringa. Funkcija dakle sad izgleda:

function jelipalindrom(p:string):boolean;
var x:integer;
  a:string;
  duljina: Integer;
begin
  jelipalindrom := True;
  duljina := length(p);

  for x := 1 to duljina do begin
   if p[x] <> p[duljina + 1 - x] then jelipalindrom := false;
  end;
end;

Petlja unutar funkcije se zapravo može još malo optimizirati:

for x := 1 to duljina div 2 do
begin
  if p[x] <> p[duljina + 1 - x] then
  begin
   jelipalindrom := false;
   break;
  end;
end;

Znači, ne mora se ići do kraja riječi, nego je dovoljno ići do polovice riječi. Ujedno, ako je otkriveno da riječ nije palindrom, petlja se može na silu prekinuti naredbom break;

Što konkretno?

Iza linije koja počinje s podString :=

stavi si liniju:

WriteLn('  podString: [' + podString + \]');

Pa će ti biti jasnije što se događa.

Breakovi su tu da prekinu izvođenje petlje u slučaju da se utvrdi da je riječ ili podriječ palindrom, jer nema potrebe da se testiraju sve moguće podriječi.

Funkcija copy kopira dio stringa - u ovom slučaju kopira od pozicije j, duljinu i.

Rekoh, ispisuj si podString pa bi ti trebalo biti jasno što se događa - koji podString se u danom trenutku testira. Uočita ćeš da daljnje testiranje prestaje kad se utvrdi palindrom (zbog onih breakova).