Program Standar Deviasi dengan Pascal

Dalam statistika dan probabilitas, simpangan baku atau deviasi standar adalah ukuran sebaran statistik yang paling lazim. Singkatnya, ia mengukur bagaimana nilai-nilai data tersebar. Simpangan baku didefinisikan sebagai akar kuadrat varians. Simpangan baku merupakan bilangan tak-negatif, dan memiliki satuan yang sama dengan data. Misalnya jika suatu data diukur dalam satuan meter, maka simpangan baku juga diukur dalam meter pula. Istilah simpangan baku pertama kali diperkenakan oleh Karl Pearson pada tahun 1894, dalam bukunya On the dissection of asymmetrical frequency curves. seperti latihan sebelumnya disini akan dibuatkan program untuk menghitung standar deviasi atau lebih dikenal dengan simpangan baku dengan menggunakan bahasa pemrograman pascal. Berikut ini source code lengkapnya :

Program Hitung_Simpangan_Baku;
Uses Crt;
Var X,N,I:Byte;
Akar,Jum,Rata,Sd,K,Y,Sigma,Pangkat:Real;
Data:Array[1..30] of byte;
Function Pengurangan(A,I:Byte):Integer;
Begin
Pengurangan:= A-I ;
end;
Procedure NilaiData;
Begin
Write (’Berapa Banyaknya Data Nilai= ‘);Readln(X);
For N:=1 to x do
Begin
Write(’Data ke-’,N,’=');Readln(Data[N]);
end;
end;
Procedure RataRata;
Begin
Jum:=0;
For N:=1 to X do
Begin
Jum:=Jum + Data[N] ;
Rata:= Jum / X;
end;
end;
Procedure PangkatSigma;
Begin
SIGMA:=0;
For N:= 1 to X do
Begin
Pangkat:=0;
K:= Data[N]-Rata;
Pangkat:= SQR (K);
Sigma:= Sigma+Pangkat;
end;
end;
Procedure TampilHasil;
Begin
For N:= 1 to X Do
Begin
Writeln (’Data Nilai ke- ‘,N,’=',Data[N]);
end;
end;

Begin
clrscr;
Sigma:=0;
Rata:=0;
Writeln (’>> Menghitung Simpangan Baku <<’); NilaiData; RataRata; PangkatSigma; I:=1; Y:=Pengurangan(X,I); Akar:=Sigma/Y ; Sd:= SQRT (Akar); Clrscr; Writeln (’Hasil Penghitungan Simpangan Baku’); TampilHasil; Writeln (’Banyaknya Data Nilai =’,X); Writeln (’Nilai Rata-ratanya = ‘,Rata:4:2); Writeln (’Simpangan Bakunya Adalah = ‘,Sd:4:2); Readln; end.
Copyright © Dede Kurniadi