SHORT CODING FUNGSI STATISTIK MENGGUNAKAN DELPHI7 LENGKAP DENGAN VIDIO

SHORT CODING FUNGSI STATISTIK

MEAN, JUMLAH,VAR,CTD,MINIMUM,MAKSIMUM,DAN MEDIAN MENGGUNAKAN DELPHI 7

var
  Statistika: TStatistika;
  i,j,k,V,D,a: integer;
  Urut,b: real;
  Xbar, Xtot, Varian: array [1..100] of real;
  X: array [1..100,1..100] of real;

implementation

{$R *.dfm}

procedure TStatistika.Edit1Change(Sender: TObject);
begin
if (edit1.Text='') then begin messagedlg('Anda Belum Input Jumlah Data',mtconfirmation,[mbYes],0);
exit;
edit1.SetFocus;
end;
stringgrid1.RowCount:=strtoint(edit1.Text)+1;
if strtoint(edit1.Text)=0 then
stringgrid1.FixedRows:=0
else stringgrid1.FixedRows:=1;
for j:=1 to strtoint(edit1.text) do
begin
stringgrid1.cells[0,0]:='No';
stringgrid1.cells[1,0]:='Data X';
stringgrid1.cells[2,0]:='Data Y';
stringgrid1.cells[0,j]:=inttostr(j);
end;
end;

procedure TStatistika.Button1Click(Sender: TObject);
var a,b:Integer;
DataX:array[1..90] of string;
DataY:array[1..90] of string;
begin
if Edit1.Text<>'' then
  begin
  b:=strtoint(Edit1.Text);
  for a:=1 to b do
  begin
    DataX[a]:=InputBox('Data X','Data X','');
    DataY[a]:=InputBox('Data Y','Data Y','');
  end;
  StringGrid1.rowcount:=b+1;
  for a:=1 to b do
  begin
    StringGrid1.Cells[1,a]:=DataX[a];
    StringGrid1.Cells[2,a]:=DataY[a];
  end;
  end
  else
application.MessageBox('Masukkan Data','Error');
Edit1.SetFocus;
end;

procedure TStatistika.Button2Click(Sender: TObject);
begin
V:=strtoint(edit1.Text);
D:=strtoint(Edit1.Text);
stringgrid1.Cells[0,0]:='No';
stringgrid1.Cells[1,0]:='X';
stringgrid1.Cells[2,0]:='Y';
stringgrid2.Cells[0,0]:='Deskripsi';
stringgrid2.Cells[1,0]:='Data X';
stringgrid2.Cells[2,0]:='Data Y';

for j:=1 to V do
begin
StringGrid2.ColCount:=3;
StringGrid2.RowCount:=8;
end;

for i:=1 to V do
begin
Xtot[i]:=0;
Xbar[i]:=0;
Varian[i]:=0;

for j:=1 to D do
begin
Xbar[i]:=Xbar[i]+((strtofloat(stringgrid1.Cells[i,j])/D));
Xtot[i]:=Xtot[i]+((strtofloat(stringgrid1.Cells[i,j])));
Varian[i]:=Varian[i]+(sqr(Xbar[i]-strtofloat(stringgrid1.Cells[i,j]))/(D-1));
end;
StringGrid2.Cells[i,3]:=formatfloat('#.00',Xbar[i]);
stringgrid2.Cells[0,3]:='Mean';
StringGrid2.Cells[i,7]:=floattostr(Xtot[i]);
stringgrid2.Cells[0,7]:='Jumlah';
StringGrid2.Cells[i,5]:=formatfloat('#.00',Varian[i]);
StringGrid2.Cells[i,6]:=formatfloat('#.00',(sqrt(Varian[i])));
stringgrid2.Cells[0,5]:='Var';
stringgrid2.Cells[0,6]:='Std';
end;

for i:=1 to V do
begin
for j:=1 to D do
begin
X[i,j]:=strtofloat(stringgrid1.Cells[i,j]);
end;
end;

a:=(D+1) div 2;
b:=(D+1)/2;
for i:=1 to V do
begin
for j:=1 to D-1 do
begin
for k:=j+1 to D do
begin
if X[i,j]>X[i,k] then
begin
Urut:=X[i,j];
X[i,j]:=X[i,k];
X[i,k]:=Urut;

end;
end;
end;
StringGrid2.Cells[i,1]:=floattostr(X[i,1]);
StringGrid2.Cells[i,2]:=floattostr(X[i,D]);
StringGrid2.Cells[i,4]:=floattostr(X[i,a]+((b-a)*(X[i,a+1]-X[i,a])));
stringgrid2.Cells[0,1]:='Minimum';
stringgrid2.Cells[0,2]:='Maksimum';
stringgrid2.Cells[0,4]:='Median';
end;end;

procedure TStatistika.Button3Click(Sender: TObject);
var i :integer;
begin
for i :=0 to StringGrid1.ColCount -1 do
   StringGrid1.Cols[i].Clear;
for i :=0 to StringGrid2.ColCount -1 do
   StringGrid2.Cols[i].Clear;
Edit1.Clear;
end;

procedure TStatistika.BitBtn1Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

VIDIO TUTORIAL MEMBUAT FUNGSI STATISTIK DENGAN DELPHI 7 :