Om Suastiastu ide dane sareng sami.. kali ini saya akan memberikan salah satu program polindrom pada pascal. kata polindrom adalah sebuah kata yang bila di baca dari belakang memiliki makna yang sama.
contoh : "katak" bila dibaca dari kanan maka akan sama yaitu "katak"


berikut listingnya:



program polindrom;
uses crt;
var kata,huruf,huruf1:string;
    i,j:integer;
begin
    write('Masukkan kata : ');readln(kata);
    j:=length(kata);
    writeln;
    huruf:='';
    for i:=1 to j do
    huruf:=huruf+kata[i];
    for i:=j downto 1 do
    huruf1:=huruf1+kata[i];
    writeln('origin word : ',huruf);
    writeln('reverse word : ',huruf1);
    writeln;
    if (huruf=huruf1) then
    writeln('polindrom')
    else
    writeln('not polindrom');
    readln;
end.