Advertisement
MoonDeMon

SCJ3 No 6

Dec 13th, 2016
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. program palindrom;
  2. uses crt;
  3. var
  4. tulisan,kebalik:string;
  5. panjang,angka:integer;
  6. begin
  7. clrscr;
  8. writeln('Masukkan sebuah kalimat');
  9. read(tulisan);
  10. panjang:=length(tulisan);
  11. for angka:= 1 to panjang do
  12. begin
  13. kebalik:=kebalik+tulisan[panjang-angka+1];
  14. end;
  15. writeln('kebalik=',kebalik);
  16. if kebalik = tulisan then
  17. writeln('palindrom')
  18. else writeln('bukan palindrom');
  19. readkey;
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement