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    76 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 01.08.2016, 12:45:42 #1
lDarkAngeL İçerdemiyiz ?
Efsane Üye
Status: Çevrimiçi Yorum Sayısı:1,199 Konu Sayısı:508 Üyelik Tarihi:19.03.2016 Rep Puanı: 778

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]



linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.  

Kullanıcı İmzası
  MemoryHackers @DwordTeam2016-2017



İmage









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

Konuyu görüntüleyenler:
1 Misafir