Pascal - Konsolowe

Palindrom

Palindrom
Pascal - Konsolowe

Program: sprawdzający czy wprowadzone słowo jest palindromem.

Po podaniu słowa przez użytkownika, program analizuje czy słowo jest palindromem.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program pali;
uses crt;
var tekst:String;
    i,k:integer;
    j:boolean;
begin
     j:=TRUE;
     clrscr;
     Write('Podaj tekst: ');
     read(tekst);
     for i:=length(tekst) downto 1 do
     begin
          k:=length(tekst)-i+1;
          if tekst[i]=tekst[k] then else j:=FALSE;
     end;
     if j=TRUE then write('To jest palindrom')
     else Write('To nie jest Palindrom');
     readkey;
end.

Słowniczek pojęć:

Wyrażenie brzmiące tak samo czytane od lewej do prawej i od prawej do lewej. Przykładem palindromu jest: Kobyła ma mały bok. Współcześnie palindromy pełnią funkcję gry słownej. Prawdopodobnie tak było również i w przeszłości, choć pewne znaleziska sugerują, że palindromy mogły też mieć znaczenie magiczne.
Palindrom Wikipedia