Program Simpangan Baku

Program Hitung_Simpangan_Baku;
Uses wincrt;
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.