Program Menghitung Mean dan Standar Deviasi PASCAL

Program Pascal kali ini saya akan membahas cara membuat Program untuk menghitung mean dan standar deviasi dari sejumlah data masukkan non negatif dan berhenti apabila masukkan data adalah -1.

Program Mean_StdDev;
Uses crt;
Const neg=-1;
Var bilangan, total1, total2, mean, std : real;
n : integer;
begin
clrscr;

total1:=0.0;
total2:=0.0;
n:=0;
writeln('Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1');
readln(bilangan);
repeat
n:=n+1;
total1:=total1+bilangan;
total2:=total2+bilangan*bilangan;
writeln('Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1');
readln(bilangan);
until bilangan=neg;
mean:= total1/n;
std:=sqrt(total2/(n-1)-sqr(total1)/(n*(n-1)));
writeln('Mean = ',mean:7:2);
writeln('Deviasi Standar = ',std:8:3);
readln;
end.



Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini (http://new-funday.blogspot.com) sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, Salam Sukses :)