Bismillah.
Program
SimpanganBaku;
Var
A,B,C,D,E:byte;
Rerata,Q,S:real;
Begin
Writeln(‘A= ‘);Readln(A);
Writeln(‘B= ‘);Readln(B);
Writeln(‘C= ‘);Readln(C);
Writeln(‘D= ‘);Readln(D);
Writeln(‘E= ‘);Readln(E);
Rerata:=0.2*(A+B+C+D+E);{0.2=1/n}
Q:=sqr(A-Rerata)+sqr(B-Rerata)+sqr(C-Rerata)+sqr(D-Rerata)+sqr(E-Rerata);
S:=sqrt(0.25*Q);{0.25=1/(n-1)}
Writeln(‘Standar
Deviasi=’,S);
End.
Tampilan Turbo Pascal
Standar Deviasi Untuk 5 data dengan jangkauan Byte:
Tampilan Program:
