Program Penghitungan STANDAR DEVIASI menggunakan Pascal

Haii sobat..
Hari ini, saya akan membahas mengenai perhitungan standar deviasi menggunakan program pascal. Sebelum itu, mari cari tahu ,,

Apa itu Standar Deviasi??

Standar deviasi(simpangan baku) adalah akar dari ragam. Ukuran ini sering dipakai di statistik karena memiliki satuan yang sama dengan data aslinya.
Simpangan baku untuk populasi disimbolkan dengan σ (sigma) dan didefinisikan dengan rumus:

Sedangkan, simpangan baku sampel dapat dirumuskan dengan:

dimana adalah nilai data dari sampel dan adalah rata-rata dari sampel.



Dibawah ini adalah syntax untuk perhitungan Standar Deviasi menggunakan Program Pascal:

program stdev;
 uses wincrt;
  var n,i:integer;
  mean,simp,jum:real;
  dat:array[1..100] of integer;
begin
 write('masukkan n: '); readln(n);
  for i:=1 to n do
    readln (dat[i]);
      for i:=1 to n do 
      mean:= mean+dat[i];
      mean:=mean/n;
      writeln;
    writeln (mean:0:2);
    for i:=1 to n do
     jum:=jum+sqr(dat[i]-mean);
      simp:=jum/(n-1);
  write(simp);
end.

Demikian pembahasan tentang perhitungan standar deviasi dengan program pascal, semoga bermanfaat dan mohon maaf bila terdapat kesalahan. 
Sekian dan Terimakasih. God bless :)

Algoritma Untuk Bilangan Deret Fibonacci

program fibonacci;
var 
 a,b,c,i,l:integer;
begin
 write(‘angka’); 
readln(l);
 b:=1;
 a:=0;
 for i:=1 to l do
 begin
 write(b,’ ‘);
 c:=b+a;
 a:=b;
 b:=c;
 end;
readkey;
end.

tambahan nii Flowchart nya