Program Standar Deviasi dengan Pascal

standar_deviasiDalam 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

3 comments

  1. shidqi berkata:

    mau tnya klo coding ttg standar deviasi d c++ ????
    klo pke fungsi gmn????

  2. chua berkata:

    thank’s atas infonya,,lagi buat PR standar deviasi pke turbo pascal win..

  3. Megi Tristisan berkata:

    kang tolong postingan dunk program mencari akar dari dua inputan !!!
    misalkan
    input pertama : 8
    input kedua : 3
    hasil adalah : 2
    kaya gitu kang
    makasih

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *