Palindrom....
Ada yg tau apa itu palindrom...?
mungkin sebagian besar dari kita gtak banyak yg tau dengan kata tersebut. Palindrom adalah sebuah bahasa yg diartikan pembacaan kata yg apabila d baca dari depan bunyinya sama apabila d baca dari belakang.
Contoh kata Palindrom : apa, kodok, malam, dlll...
berikut contoh program palindrom dengan pascal.
program palindrom;
uses wincrt;
var
x: integer;
kata, kata1, kata2 : string[15];
i: integer;
ul: char;
begin
repeat
write('Masukan Sebuah Kata : '); readln(kata);
x:= length(kata);
for i:= 1 to x do
teks1:=kata1 + kata[i];
for i:=x downto 1 do
teks2:=kata2 + kata[i];
if kata1 = kata2 then
writeln('TERMASUK PALINDROM')
else
writeln('BUKAN PALINDROM');
write('MAU COBA LAGI? [Y/T]: '); readln(ul);
until upcase (ul)<>'Y';
readln;
end.
sekian dolo masih pusing nih....
