Kamis, 09 April 2009

Program Delphi Untuk Statistika

Program Delphi Untuk Statistika
Input data :
var i,k,j :integer;
a :array [0..100] of integer;
begin
for i:= 0 to listbox1.Items.Count-1 do
a[i] :=strtoint(listbox1.Items[i]);
for i :=0 to listbox1.items.Count-1 do
for j := 0 to i do
if a[i] begin
k:= a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:= 0 to listbox1.Items.Count-1 do
listbox2.items.add (inttostr(a[i]));
end;

process:
procedure TForm1.Button2Click(Sender: TObject);
var a:array[0..100] of integer;
i,jlh,jlh2,max,min,p,q,s,r,rent:integer;
rata,sig,v,sd:real;
begin
//mencari banyak data
for i:=0 to listbox1.Items.Count-1 do
a[i]:=strtoint(listbox1.Items[i]);
edit2.Text:=inttostr(i);
//mencari jumlah data
jlh:=0;
for i:=0 to listbox1.Items.Count-1 do
jlh:=jlh+a[i];
edit3.Text:=inttostr(jlh);
//mencari rata-rata
rata:=jlh/i;
edit4.Text:=floattostr(rata);
//mencari nilai maksimum
max:=a[0];
for i:=0 to listbox1.Items.Count-1 do
if max max:=a[i];
edit5.Text:=inttostr(max);
//mencari nilai minimum
min:=a[0];
for i:=0 to listbox1.Items.Count-1 do
if min>a[i] then
min:=a[i];
edit6.Text:=inttostr(min);
//mencari rentang
rent:=max-min;
edit7.Text:=inttostr(rent);
//mencari hasil standar deviasi
sig:=0;
for i:=0 to listbox1.Items.Count-1 do
if i=1 then edit8.text:=''
else
begin
sig:=sig+(a[i]-rata)*(a[i]-rata);
v:=sig/(i-1);
if v>=0 then
sd:=sqrt(v);
edit8.text:=floattostr(sd);
if v<0 then
edit8.Text:='akar negatif';


end;

end;
urut data :
var i,k,j :integer;
a :array [0..100] of integer;
begin
for i:= 0 to listbox1.Items.Count-1 do
a[i] :=strtoint(listbox1.Items[i]);
for i :=0 to listbox1.items.Count-1 do
for j := 0 to i do
if a[i] begin
k:= a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:= 0 to listbox1.Items.Count-1 do
listbox2.items.add (inttostr(a[i]));
end;

1 komentar:

  1. Tolong buat desain Delphi agar tidak bingung buat pemula. Terimakasih

    BalasHapus