Hari Kamis,30 Mei 2013 saatnya UKD pemvis. Soalnya menampilkan bilangan yang habis dibagi 3, dimana ada inputan awal dan inputan akhir nya. Udah gitu suruh nyari banyaknya, jumlahnya sama rata-ratanya :(
dan untungnya.....dapet contekan dari temen wakakakakakk

ini nih scriptnya dari temen aku :D

procedure TForm1.BTProsesClick(Sender: TObject);
var awal,akhir,banyak,a,b,c,total:integer;
rata:real;
sdata:array[1..100] of integer;

begin
 LBLoop.Items.Clear;
awal:=strtoint(EdAwal.Text);
akhir:=strtoint(EdAkhir.Text);
total:=0;
banyak:=0;
a:=awal;
b:=1;

repeat
if (a mod 3) = 0 then
begin
if (a mod 2) = 1 then
begin
LBLoop.Items.Add(inttostr(a));
total:=total+a;
banyak:=banyak+1;
rata:=total/banyak;

data[b]:=a;
b:=b+1;
end;
end;
a:=a+1;
until a>=akhir;



EdBanyak.Text:=inttostr(banyak);
EdJumlah.Text:=inttostr(total);
EdRata.Text:=floattostr(rata);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
EdJumlah.Enabled:=false;
EdRata.Enabled:=false;
EdBanyak.Enabled:=false;
end;
end.








dan....ini dia hasilnya :

semoga bisa bermanfaat yah ....

Bedah Buku #UdahPutusinAja

Udah Tau buku #UdahPutusinAja dari Ust. Felix Siauw??
Keren bangeett ^^

mengupas masalah asmara muda nih, kan lagi seneng2nya sama lawan jenis. Buku ini menjelaskan ruginya kita pacaran, terus solusinya apa aja, sejarah valentine, pengertian cinta yang sesungguhnya, pokoknya keren deh...
buku ini juga beda dari buku2 lainnya. Isinya menarik, sampulnya aja udah keren apalagi dalemnya? Warna isinya biru, putih dan pink.  Selain tulisan2 juga ada komiknya, gambar2nya yang jelas gak bikin bosen bacanya. Ada ayat2 Al-Quran dan Hadist yang memperkuat isi materi tersebut. Bahasa yang dipake bahasa anak muda kok, dijamin langsung dong deh, seru. Ada tips buat yang belum mampu menikah, maupun yang udah siap nikah. Terus taarufan sama khitbah itu kayak gimana sih. Cinta juga gak berarti sama lawan jenis aja. Ada cinta lain yang lebih penting lho. Nah..Kalo kita senang sama sesseorang, kita nikah donk dengan orang tersebut tapi jangan sembarang orang ya... Inget deh cari yang agamanya bagus :D
Kalo kita belum mampu buat menikah ya kita puasa aja. Yah begitulah sebagian pesan dari buku ini.

pour your imagine as a picture !!

menggambar emang menyenangkan :D
apalagi kalo pada suasana hati tertentu nih, itulah yang akan kugambar..
saat aku sedang cemburu, aku sedih, atau lagi iseng2.
Seperti kita menulis pada diary, rasanya lega banget setelah menumpahkan perasaan pada buku kecil itu. Menggambar pun seperti itulah rasanya.
Ini nih contoh gambaran hasil lamunan ku, hehehe ^^