program palindrom;
var
a,b:string;
n,i:integer;
found:boolean;
begin
found:=false;
readln(a);
n:=length(a);
for i:=n downto 1 do begin
b[n-i+1]:=a[i];
end;
while ((i<=n) and (not found)) do begin
if (a[i]=b[i]) then
i:=i+1
else found:=true;
end;
if found then write('bukan')
else write('polindrom');
readln;
end.
Senin, 29 November 2010
Langganan:
Postingan (Atom)
Popular Posts
-
Pernahkan anda mengalami kejadian error seperti ini, jadi saat anda menjalankan lampp anda pada linux kesayangan anda terlihat bahwa "...
-
Bagi anda yang memiliki OS windows XP yang tidak resmi harap berhati-hati saat di koneksikan dengan internet,karena jika ternyata pada setti...
-
Pada kali ini saya akan berbagi hasil code yang saya gunakan untuk mengenerate file pdf secara otomatis menggunakan php. Sebenarnya banyak s...
-
Berikut ini adalah daftar Peringkat Perguruan Tinggi di Indonesia tahun 2010 versi webometrics. Sebelumnya harap diketahui bahwa webometrics...
-
What do you think the statement that “first love never die”? Maybe this statement is look not really but after you read this essay, you will...
-
program palindrom; var a,b:string; n,i:integer; found:boolean; begin found:=false; readln(a); n:=length(a); for i:=n downto 1 do...
-
WM: GOD aku ingin bicara.., punya waktu sedikit buat aku? G: Ooo..waktuKU adlh KEKEKALAN.., tdk ada masalah ttg Waktu... Apa pertanyaanm...
-
Berikut daftar gadget maupun teknologi yang akan muncul di tahun 2010 ini. 1. Playstation 3 motion controller Alat ini akan membuat PS3 anda...
-
Combo Box dinamis di JAVA,,yah problem ini yang sudah membuat saya tiga jam di depan laptop kesayangan sejak bangun tidur pagi hari tadi. Pa...
-
kata e-learning mungkin masih terdengar asing bagi masyarakat luas karena konsep e-learning ini kurang begitu dikembangkan dan kuramya amtus...
