Program Rata-Rata dan Varians

Algoritma menghitung rata-rata :
Definisikan banyaknya data (n)
Menginputkan data ke-1 sampai ke-n
Jumlahkan hasil pada langkah ke-2
Membagi hasil penjumlahan data dengan banyaknya data  rata2
Tampikan hasil perhitungan rata-rata





Algoritma menghitung varian dan standar deviasi :
Definisikan jumlah data (n)
Menginputkan data ke-1 sampai ke-n
Kuadratkan data ke-1 sampai ke-n
Jumlahkan hasil pada langkah ke-3
Jumlahkan hasil pada langkah ke-2
Hitung hasil kuadrat dari langkah ke-5
Hitung varian
Hitung standar deviasi
Tampilkan hasil perhitungan varian
Tampilkan hasil perhitungan standar deviasi

 stdev = √(S^2 )



program menghitung_rata_rata;
uses wincrt;
var data,n,i: integer;
sigmax,mean:real;

begin
write('n = '); readln(n);
for i:=1 to n do
begin
write('data[',i,']',' = ');
readln(data);
sigmax:=sigmax+data;
end;
mean:=sigmax/n;
writeln('Jumlahan data = ',sigmax:0:3);
writeln('Rata-rata = ',mean:0:3);
end.



program ratarataxxx;
uses wincrt;
var n,i,x,data: longint;
rata: real;

begin
Write('Masukkan jumlah data : ');
readln(n);
for i:=1 to n do
begin
write('Masukkan data ke-',i,' : ');
readln(data);
x:=x+data;
end;
rata:=x/n;
writeln('Rata-rata nilai data sebanyak ',n,' adalah ',rata);
end.




program menghitung_varian;
uses wincrt;
var data,datakuadrat,i,n: integer;
sigmax2,sigmax,sigmax_kuadrat,varian,stdev:real;

begin
write('n = '); readln(n);
for i:=1 to n do
begin
write('data[',i,']',' = ');
readln(data);
datakuadrat:=sqr(data);
sigmax2:=sigmax2+datakuadrat;
sigmax:=sigmax+data;
end;
sigmax_kuadrat:=sqr(sigmax);
varian:=((n*sigmax2)-sigmax_kuadrat)/(n*(n-1));
stdev:=sqrt(varian);
writeln('Varian = ',varian:0:3);
writeln('Standar Deviasi = ',stdev:0:3)
end.