MY TWITTER

Kamis, 16 Februari 2012

Palindrom

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....

Tidak ada komentar :

Posting Komentar