Program Menghitung Standar Deviasi
Program Menghitung_standar_deviasi;
{SD = SQRT((Sum(Xi-rata)^2)/(N-1))}
uses wincrt;
var
Data : Array[1..200] of Integer;
N, i ,sum: integer;
rata, SD : real;
Sum2 : real;
begin
writeln(’===========================================’);
writeln(’PROGRAM MENGHITUNG STANDAR DEVIASI’);
writeln(’===========================================’);
writeln;
write(’Masukkan Jumlah Data : ‘);readln(N);
{inisialisasi}
sum := 0;
sum2 := 0.0;
{input data secara random dan ditampilkan}
writeln(’Berikut ini Data acak sebanyak ‘,N,’ buah’);
randomize;
for i:=1 to N do
begin
write(’Data[’,i,’] = ‘);readln(Data[i]);
sum := sum + data[i];
end;
rata := sum / N;
for i:=1 to N do
sum2 := sum2 + SQR(data[i] - rata);
SD := SQRT(sum2 / (N-1));
writeln;
writeln(’Standar Deviasinya adalah : ‘,SD:0:2);
readkey;
writeln(’Press Any Key to EXIT’);
donewincrt;
end.
