Sabtu, 11 April 2015

Algoritma Standar Deviasi Dalam Pascal

        Standar deviasi merupakan salah satu ukuran dispersi yang diperoleh dari akar kuadarat positif varians, berikut adalah rumus untuk mencari standar deviasi:





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