Sabtu, 26 Desember 2015
Menghitung rata2
procedure TForm2.Button1Click(Sender: TObject);
var j:real ; i : integer ;
begin
j:=0;
for I := 0 to ListBox1.Items.Count -1 do begin
j:= j+ strtoint(ListBox1.Items[i]) ;
end;
Edit1.Text := floatToStr(j / ListBox1.Count ) ;
end;
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar