Om Suastiastu ide dane sareng sami.. kali ini saya akan memberikan salah satu program polindrom pada pascal. kata polindrom adalah sebuah kata yang bila di baca dari belakang memiliki makna yang sama.
contoh : "katak" bila dibaca dari kanan maka akan sama yaitu "katak"


berikut listingnya:



program polindrom;
uses crt;
var kata,huruf,huruf1:string;
    i,j:integer;
begin
    write('Masukkan kata : ');readln(kata);
    j:=length(kata);
    writeln;
    huruf:='';
    for i:=1 to j do
    huruf:=huruf+kata[i...
Continue reading ...