Program Mencari Nilai Tengah (Median)

Median adalah nilai yang terletak pada posisi tengah dari sekelompok data. Teori tentang Median pada umumnya dipelajari dalam ilmu statistik, baik di SMU maupun di Universitas. Jika banyaknya data Ganjil, maka nilai tengah ada hanya satu. Jika banyaknya data Genap, maka nilai tengah ada 2 buah data. Untuk mencari Nilai Median, maka syaratnya adalah kelompok data harus diurutkan secara Ascending terlebih dahulu. Setelah diurutkan, kemudian kita mencari posisi tengah  dimana data yang dicari berada.

Contoh :

Data  A :  3     5     2     9     7    
Data  B :  2     7     3     8     2      6

Proses mencari nilai Median adalah sebagai berikut :

Data A:
  1. Data  A diurutkan lebih dahulu :   2    3   5    7     9    
  2. Banyaknya Data A ganjil yaitu ada 5 data.
  3. Posisi data Median berada di tengah yaitu di urutan ke-3.
  4. Urutan ke-3 dicari dengan membangi banyaknya data dengan 2 dan ambil bilangan bulatnya kemudian ditambah 1 dengan cara  ( 5 div 2 ) +1 = 3
  5. Maka Median data A adalah data[3]= 5.
Data B :
  1. Data  B diurutkan lebih dahulu :   2    2   3    6     7      8    
  2. Banyaknya Data B genap yaitu ada 6 data.
  3. Posisi data Median berada di tengah yaitu di urutan ke-3 dan 4
  4. Urutan ke-3 dan 4 dicari dengan membagi banyaknya data dengan 2 dan ambil bilangan bulatnya yaitu ( 6 div 2 ) = 3 untuk posisi 3 dan posisi 4 ditentukan dengan menambahkan 1 pada hasil pembagian yaitu 3 + 1 = 4.
  5. Maka Median data B adalah (data[3] + data[4])/2  yaitu  (3+6)/2 = 4.5
Berdasarkan proses pencarian nilai tengah di atas, maka kita dapat membuat algoritma untuk mencari Nilai Tengah atau Median dari sebuah kelompok data.

Algoritma Mencari Nilai Median

1.    Mulai
2.    Deklarasikan variabel
3.    Tentukan banyaknya data (N)
4.    Input data dalam loop
5.    Urutkan data secara Ascending
6.    Cari Nilai Median dengan cara :
       •    Cek lebih dahulu, apakah jumlah data Ganjil atau Genap dengan  mod.
       •    N1 = N mod 2
       •    Jika genap (N1=0), maka cari posisi data Median dengan DIV
       •    I1 = n div 2, maka posisi data Median  adalah i1 dan data ke-2 adalah i1+1
       •    Cari Median,  m = (data[i1] + data[i1+1])/2
       •    Jika Ganjil(N1>0), maka cari posisi data Median dengan DIV
       •    I1 = (n div 2)+1, maka posisi data Median adalah i1
       •    Cari Median , m = data[i1]
7.    Cetak Hasil yaitu m
8.    Selesai

Banner 300 x 460 widget kanan  

Source Code Program lengkapnya adalah sebagai berikut:

 Program Mencari_Median;
 USES Crt;
 VAR
 n,n1,i1,i,j,x : integer;
 m : real;

 Data,data2 : Array [1..20] of integer ;

 BEGIN
 clrscr;
    Write ('Tentukan Jumlah data : '); Readln (n);
    For i:= 1 to n do
    BEGIN
       Write ('Input Data ke ',i,' : ') ;
       Readln (Data[i]);
    End;Writeln;

    {Proses Mengurutkan Data Ascending}
    For i:= 1 to n do
    Begin
        For j:= 1 to n do
        If Data[i]        Begin
            x:=Data[i]; {Simpan Data ke-i sbg bil Terkecil}
            Data[i]:=Data[j]; {Tukar posisi Data,simpan data[j] ke data[i]}
            Data[j]:=x; {simpan data[i] yang pertama dalam x ke dalam data[j]}
        End;
    End;
    Writeln;

   {Cetak Hasil Urutan Data Ascending}
        For i:= 1 to n do
        Write ('      ', Data[i]);

   {Mencari Nilai Median}
   n1:=n mod 2;
   if n1= 0 then
      Begin
          i1:=n div 2;
          m:= (Data[i1]+Data[i1+1])/2;
      end
   else
      Begin
          i1:= ((n-1) div 2)+1;
          m:= Data[i1];
      End;
   Writeln;writeln;
   writeln('Median adalah = ',m:0:2);
        readln;
 END.

Hasil Program adalah sebagai berikut :
        

Tidak ada komentar:

Posting Komentar

Silakan memberikan komentar dan pertanyaan yang sifatnya positif.