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 ....
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar