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