23 Nisan 2014 Çarşamba

Listbox'a sayı ekleme,eklenen sayıların ortalamasını ve S.Sapma'sını bulma

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.items.Add(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,i:integer;
t,stdev,toplam,mean:real;
begin
toplam:=0;
for i:=0 to listbox1.count-1 do
 begin
  x:=strtoint(listbox1.items[i]);
  toplam:=toplam+x;
  mean:=toplam/(listbox1.count);
  edit2.text:=floattostr(mean);
 end;
 t:=0;
     for i:=0 to listbox1.count-1 do
     begin
    x:=strtoint(listbox1.items[i]);
    t:=t+sqr(x-mean);
    end;
    stdev:=sqrt(t/(listbox1.Count-1));
     edit3.text:=floattostr(stdev);
end;

end.

Hiç yorum yok:

Yorum Gönder