Berikut ini adalah Flowchart untuk mencari standar deviasi:
berikut ini merupakan code program Standar Deviasi dalam bahasa pascal :
program standar_deviasi;
uses crt;
const n=1000;
var
rerata,sum,jumlahsim,deviasi:real;
data: array [1..n] of real;
i,banyakdata: integer;
sampel:boolean;
jenis: string[10];
begin
clrscr;
writeln('Program menghitung standar deviasi');
writeln;
writeln('jenis data? (sampel/populasi)');
readln(jenis);
if (jenis='sampel') or (jenis='SAMPEL') then
sampel:=true
else
sampel:=false;
writeln('banyak data?');
readln(banyakdata);
sum:=0;
jumlahsim:=0;
writeln('masukkan data');
for i:=1 to banyakdata do
begin
write('data ke-',i,'=');
readln(data[i]);
sum:=sum + data[i];
end;
rerata:=sum/banyakdata;
for i:=1 to banyakdata do
jumlahsim:=jumlahsim + sqr(data[i]-rerata);
if sampel then
begin
deviasi:=sqrt(jumlahsim/(banyakdata-1);
writeln('standar deviasi sampel = ',deviasi:0:4);
end
else
begin
deviasi:=sqrt(jumlahsim/(banyakdata);
writeln('standar deviasi populasi = ',deviasi:0:4);
end;
end.
Tidak ada komentar:
Posting Komentar