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:
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:
- Data A diurutkan lebih dahulu : 2 3 5 7 9
- Banyaknya Data A ganjil yaitu ada 5 data.
- Posisi data Median berada di tengah yaitu di urutan ke-3.
- Urutan ke-3 dicari dengan membangi banyaknya data dengan 2 dan ambil bilangan bulatnya kemudian ditambah 1 dengan cara ( 5 div 2 ) +1 = 3
- Maka Median data A adalah data[3]= 5.
Data B :
Semoga bermanfaat.
God bless you all.
Artikel Terkait :
- Data B diurutkan lebih dahulu : 2 2 3 6 7 8
- Banyaknya Data B genap yaitu ada 6 data.
- Posisi data Median berada di tengah yaitu di urutan ke-3 dan 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.
- 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
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 :
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
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 :
Semoga bermanfaat.
God bless you all.
Artikel Terkait :
- Program untuk mengurutkan / Sorting Data
- Teori Perulangan dalam Pemrograman
- Program Dengan Fungsi IF
- Contoh Program Dengan Perulangan / loop
Tidak ada komentar:
Posting Komentar
Silakan memberikan komentar dan pertanyaan yang sifatnya positif.