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