Dede Kurniadi Rotating Header Image
viewporntube indobokep classicrentcar borneowebhosting informasiku pontitravel pontiarmada classicborneorentcar

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

Related Search :

3 Comments

  1. shidqi says:

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

  2. chua says:

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

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

Leave a Reply

Your email address will not be published. Required fields are marked *