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
-
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...
-
bagaimana menampilkan deret fibonaci kemudian menampilkan jumlah dari deret fibonaci?? jawab: program fibonaci kamus i,n,y,sum,fibo:inte...
-
Astaghfirullah Astaghfirullah Rabbalbarayaa Astaghfirullah minalkhathaayaa Ya allah gusti, n...
-
Apa yang baru di Facebook? Yaitu kabar baik bagi pengguna situs jejaring sosial ini yang sudah berpasangan atau sudah menjalin ikatan perni...
-
Ngomong2 soal karir di dunia IT, pasti banyak sekali kawan2 dari freshgraduate IT yang masih bingung menentukan karirnya. mau lulus aja mes...
-
Hari ini, tanggal 19 Februari 2010 pukul 17.10 bertepatan dengan hari jum'at. yang menurut islam merupakan hari yang mulia di perkenalka...
-
Pernahkan anda mengalami kejadian error seperti ini, jadi saat anda menjalankan lampp anda pada linux kesayangan anda terlihat bahwa "...
-
WM: GOD aku ingin bicara.., punya waktu sedikit buat aku? G: Ooo..waktuKU adlh KEKEKALAN.., tdk ada masalah ttg Waktu... Apa pertanyaanm...
-
Berikut ini adalah daftar Peringkat Perguruan Tinggi di Indonesia tahun 2010 versi webometrics. Sebelumnya harap diketahui bahwa webometrics...
-
Jika semua yang kita kehendaki terus kita MILIKI, darimana kita belajar IKHLAS Jika semua yang kita impikan segera TERWUJUD, darimana kita...