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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

1 Response to "PROGRAM PALINDROM DENGAN BAHASA PASCAL"

  1. Hasan Sulthoni says:
    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...

Posting Komentar