PROGRAM PALINDROM DENGAN BAHASA PASCAL
(*author: noor fitriana, s1 ilmu komputer UNS 2008*)
program palindrom;
uses wincrt;
var
x: integer;
teks, teks1, teks2 : string[10];
i: integer;
ul: char;
begin
repeat
write('MASUKAN TEKS YANG ANDA INGINKAN: '); readln(teks);
x:= length(teks);
for i:= 1 to x do
teks1:=teks1 + teks[i];
for i:=x downto 1 do
teks2:=teks2 + teks[i];
if teks1 = teks2 then
writeln('TEKS YANG ANDA MASUKAN TERMASUK PALINDROM')
else
writeln('TEKS YANG ANDA MASUKAN BUKAN PALINDROM');
write('MAU COBA LAGI? [Y/T]: '); readln(ul);
until upcase (ul)<>'Y';
readln;
end.
16 Oktober 2010 pukul 20.03
Maaf, klw boleh nambah, enaknya dikasih tambahan upcase/lowercase jd jika inputan ad yang pake huruf besar atau kecil masih bisa dicek. klw program diatas kAtak dianggap bukan polindrom, ini karena perbedaan kode ACII huruf A sama a tidak sama.
jadi mungkin bisa diedit seperti ini:
for i:= 1 to x do
begin
teks[i]:=upcase(teks[i]);
teks1:=teks1 + teks[i];
end;
for i:=x downto 1 do
begin
teks[i]:=upcase(teks[i]);
teks2:=teks2 + teks[i];
end;
Maaf Sebelumnya... dan Salam Kenal...