Pertemuan Kedua Algoritma Pemrograman Pascal Terhadap Pencarian Varians dan Standar Deviasi

Varian dan standar deviasi (simpangan baku) adalah ukuran-ukuran keragaman (variasi) data statistik yang paling sering digunakan. Standar deviasi (simpangan baku) merupakan akar kuadrat dari varian. Dasar penghitungan varian dan standar deviasi adalah keinginan untuk mengetahui keragaman suatu kelompok data. Salah satu cara untuk mengetahui keragaman suatu kelompok data adalah dengan mengurangi setiap nilai data dengan rata-rata kelompok data tersebut kemudian dikuadratkan, kemudian semua hasilnya dijumlahkan.. kemudian dibagi banyaknya data. Dalam posting kali ini kita akan menggunakan Bahasa Pascal dalam penghitungan varians dan standar deviasi. Software yang digunakan adalah Free Pascal Compiler yg bisa diunduh disini saja. Gratis kok.. Pas buat yang patuh pada aturan yg berlaku... hehehe :) Caranya adalah sebagai berikut...

1. Ketik program pada FPC

program StandarDeviasi;

uses Crt;

var

  bb,ba,f,d,tk:array[1..100] of real;

  a,b,i,n,k:integer;

  sum,m,v,std,fk:real;

  bentuk:(kelompok,tunggal);

  jawab:(next,stop);

begin

repeat

clrscr;

  write('jenis data adalah...(ketik kelompok/tunggal)   ');readln(bentuk);

  case bentuk of

  tunggal:

    begin

       write('banyak data sejumlah: ');readln(n);

       sum:=0;

          for i:=1 to n do

             begin

             write('Isi tabel data ke-',i,'adalah ');readln(d[i]);

             sum:=sum+d[i];

             end;

    begin

       m:=sum/n;

       v:=0;

          for i:=1 to n do

          v:=v+(sqr(d[i]-m)/(n-1));

    end;

   end;

  kelompok:

    begin

       write('banyak kelas sebanyak...');readln(n);

       sum:=0;

       fk:=0;

         for i:=1 to n do

            begin

              write('Batas bawah kelas ',i,' adalah ');readln(bb[i]);

              write('Batas atas kelas ',i,' adalah ');readln(ba[i]);

              tk[i]:=(bb[i]+ba[i])/2;

              write('Frekuensi kelas ',i,' adalah ');readln(f[i]);

              fk:=fk+f[i];

              sum:=sum+(tk[i]*f[i]);

            end;

    begin

      m:=sum/fk;

      v:=0;

        for i:=1 to n do

        v:=v+(sqr(tk[i]-m)*f[i])/fk;

     end;

   end;

    else writeln('kesalahan penulisan bentuk data');

end;

std:=sqrt(v);

writeln('JUMLAH dari data-data adalah ',sum:7:2);

writeln('VARIANS dari data adalah ',v:7:2);

writeln('STANDAR DEVIASI adalah ',std:7:2);

                 

writeln('next/stop?');readln(jawab);

until (jawab=stop);

end.

2. Run program

tampilan program Standar Deviasi setelah dijalankan dan diisi datanya adalah sebagai berikut..

kelompok 

tunggal

sekian posting kali ini mudah-mudahan bisa bermanfaat...