SMS Read More..

tiiit,,,tiitttt,,, bunyi sms masuk...
kamis, 21 Oktober 2010,,
Salam, diharapkan kedatangan Saudari Me..... bsk Jum'at 22 Oktober 2010  jam 10.30 di Rumah Zakat jl. Veteran untuk melakukan tes wawancra,,nuwun Yun....Rumah Zakat.

Demikian pesan singkat yang kuterima,,kata pertama yang keluar dari mulutku,, Alhamdulillah doa ku selama ini di dengar oleh Allah,,
sepontan aku menulis pesan didinding seseorang yang menemaniku setiap aku dapat panggilan kemana aja,,

selalu.jpg Read More..

selalu.jpg

Blogged with the Flock Browser

script program pop_push dengan karakter tambahan Read More..

Program pop_push;
Uses crt;
Const elemen = 225; {batas maksmimum karakter}
Type s255 = string [elemen];
Tumpukan = record
Isi : s255;
Atas : 0 ..elemen;
End;
Var t : tumpukan;
W , tambah : char;
Kalimat:s255;
I,j : integer;


Procedure awalan(var tumpukan);
Begin
T.atas := 0
End;


Procedure push(var T : tumpukan; x : char);
Begin
T.atas := t.atas+1;
T.isi[t.atas] := x;
End;


Function pop(var t:tumpukan): char;
Begin
Pop:=t.isi[t.atas];
t.atas := t.atas-1
end;


begin {program utama}
clrscr;
{melakukan proses push}
writeln('Masukkan kalimat = ');
read(kalimat);
for i:=1 to length(kalimat) do
push(t, kalimat[i]);


writeln('Elemen yang di-push = ',kalimat);
readln;
{proses tambah kata}
writeln('Masukkan kata tambahan');readln(tambah);
{melakukan proses pop}
for i:=1 to length(kalimat) do
push(t,kalimat[i]);
writeln;
writeln('Hasil akhir push dibaca dengan pop + kata tambahan : ');
write(tambah);
{menampilkan hasil proses pop}
for j:= 1 to length(kalimat) do
begin
w:=pop(t);
write(w);
end;
readln;
end.

mereka hadir dikehidupanku Read More..

mereka yang memberi warna dihidupku 
 <center><table style="width:194px;"><tr><td align="center" style="height:194px;background:url(http://picasaweb.google.com/s/c/transparent_album_background.gif) no-repeat left"><a href="http://picasaweb.google.com/m3lla4u/Me4u?feat=embedwebsite"><img src="http://lh3.ggpht.com/_CAunDl50upw/TLvFiKWYNCE/AAAAAAAAACg/va0Hvx_2aOM/s160-c/Me4u.jpg" width="160" height="160" style="margin:1px 0 0 4px;"></a></td></tr><tr><td style="text-align:center;font-family:arial,sans-serif;font-size:11px"><a href="http://picasaweb.google.com/m3lla4u/Me4u?feat=embedwebsite" style="color:#4D4D4D;font-weight:bold;text-decoration:none;">me4u</a></td></tr></table></center>

Salam Hangat kawand-kawandku Read More..

hellow prend,,,
ini adalah blogku yang ketiga

Salam hangat dariku untuk kalian semua

Semoga kalian betah berlama-lama baca2 disini