Program Polindrom_Bukan_Polindrom;
Program Polindrom_Bukan_Polindrom;
uses wincrt;
var
klmt1, klmt2 : string;
i : byte;
begin
writeln(’===========================================’);
writeln(’Program Kata Polindrom atau Bukan Polindrom’);
writeln(’===========================================’);
writeln;
write(’Masukkan sebuah kata : ‘); readln(klmt1);
klmt2 := klmt1;
for i := 1 to length(klmt1) do
klmt2[i] := klmt1[length(klmt1)+1-i];
if klmt1 = klmt2 then
writeln(’Kata yang Anda masukkan merupakan Polindrom’)
else
writeln(’Kata yang Anda masukkan Bukan Polindrom’);
writeln;
writeln(’Tekan sembarang tombol untuk keluar!’);
readkey;
donewincrt;
end.
