Program Standar Deviasi dengan Pascal

July 29, 2009 by
Filed under: Pascal, Pemrograman 

standar deviasi Program Standar Deviasi dengan PascalDalam 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

Incoming search terms:

Tags: , , ,

Comments

3 Comments on Program Standar Deviasi dengan Pascal

  1. Megi Tristisan on Fri, 4th Dec 2009 11:08

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

  2. chua on Tue, 2nd Nov 2010 20:47

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

  3. shidqi on Fri, 27th May 2011 15:26

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

Tell me what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!