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


Memory Mezarlığı    Forumda Gereksiz Bulanan veya Artık İşlevi Olmayan Konuların Taşındığı Kategori ( Bi Fatiha Okumadan Geçmeyiniz :) )

Yazar: ByClxon    1 Yorum    147 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy
Konu Kapalı

Paylaşım Tarihi: 14.05.2016, 21:33:05 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,014 Konuları:443 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

Kod:

Kod:
[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]


[Ziyaretçiler Linklerimizi Göremezler ! Kayıt Ol!]

Kullanıcı İmzası
#fenerbahçeA.A.K.
İmage
İletişim İçin Facebook;

[Ziyaretçiler Linklerimizi Göremezler ! Kayıt Ol!]


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



İmage






 

         


Paylaşım Tarihi: 14.05.2016, 21:37:27 #2
fantazsizt Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:52 Konuları:8 Kayıt Tarihi:16.01.2016 Rep Puanı: 0

Bilgi İçin Teşekkürler Big Grin Big Grin Big Grin




Konu Kapalı






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

Konuyu Okuyanlar:
1 Ziyaretçi