Deviasi

Program Deviasi_standart; { untuk menghitung nilai rata-rata } { Varians dan deviasi standar } uses wincrt; const maksdata=25; type arraydata = array[1..Maksdata] of real; var i,n:integer; data:arraydata; jumlah,rerata,temp,varians,standev:real; begin Clrscr; write('Banyak Data: '); readln(n); writeln; for i:=1 to n do begin write('Data ke-',i:2,'='); readln(data[i]); end; { mnghitung jumlah dan rata-rata data } jumlah:=0; for i:=1 to n do jumlah:=jumlah+data[i]; rerata:=jumlah/n; { menghitung varian dan deviasi standar } temp:=0; for i:=1 to n do temp:=temp + sqr(data [i] - rerata); varians:=temp/n; standev:=sqrt(varians); { cetak hasil } writeln; writeln('cacah data = ',n:10); writeln('jumlah data = ',jumlah:10:4); writeln('nilai rata-rata = ',rerata:10:4); writeln('varians = ',varians:10:4); writeln('deviasi standar = ',standev:10:7); readln; end.