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


Genel & Off Topic    Konu Dışı , Eğlence-Muhabbet , Tanışma , Yarışma & Etkinlik Bölümü

Yazar: lDarkAngeL    0 Yorum    117 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 01.08.2016, 12:45:42 #1
lDarkAngeL ClavoR
Efsane Üye
Status: Çevrimdışı Yorumları:1,319 Konuları:505 Kayıt Tarihi:19.03.2016 Rep Puanı: 831

Kod:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
[color=yellowgreen][font=tahoma]procedure TForm1.Button1Click(Sender: TObject);[/font][/color][color=YellowGreen]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;
[/color][color=yellowgreen][font=tahoma]end.[/font][/color]




Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın 


Kullanıcı İmzası
Resim http://i.hizliresim.com/A3jRQr.gif










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi