palindrom [Programování]

Zadání

Zjistěte, zda je zadaný řetězec palindrom (zní stejně, at' se čte normálně či pozpátku). Pro jednoduchost předpokládejte, že obsahuje pouze malá písmena a neobsahuje interpunkční znaménka. Příklady řetězců, kdy by měl program vypsat ANO: „zeman seno dones na mez“, „v elipse spi lev“, „kuna nese nanuk“, „jelenovi pivo nelej“.

Řešení

 
const MAX = 100;
 
function palindrom(retezec: string): boolean;
var
    delkaBezMezer:      integer;
    bezMezer:           array[1..MAX] of char;
    i:                  integer;
    jePalindrom:        boolean;
begin
 
  delkaBezMezer := 0;
 
  for i := 1 to length(retezec) do begin
    if (retezec[i] <> ' ') then begin
      delkaBezMezer := delkaBezMezer + 1;
      bezMezer[delkaBezMezer] := retezec[i];
    end;
  end;
 
  jePalindrom := true;
 
  for i := 1 to (delkaBezMezer div 2) do begin
    if bezMezer[i] <> bezMezer[delkaBezMezer - i + 1] then begin
      jePalindrom := false;
    end;
  end;
 
  palindrom := jePalindrom;
end;
 
var
    veta: string;
begin
  readln(veta);
  if (palindrom(veta)) then begin
    writeln('Je to palindrom.');
  end else begin
    writeln('Neni to palindrom.');
  end;
end.