Kasus 6.5

Tentukan modus dari n buah data 

berupa bilangan bulat (data antara 1 sampai 

dengan 10).

Analisis :

Modus adalah bilangan (data) yang paling sering muncul. Dengan kata lain, frekuensi data terbesarlah yang dicari.

Langkah penyelesaian masalahnya adalah :

setiap jenis data dihitung frekuensi kemunculannya

dari frekuensi-frekuensi tersebut dicari frekuensi terbesarnya.

procedure maksimum(data : larik; n : integer;output maks, item : integer)

{ procedure ini hasil modifikasi dari algoritma (…) karena selain nilai maks

dari larik data, juga perlu diketahui besar datanya item }

Deklarasi

i : integer

Deskripsi

     maks = data[1]

     item = 1

     for i = 2 to n do    

          if (data[i] > maks) then

               maks = data[i];

               item = i;

          endif          

     Endfor

procedure frekuensi(data : larik; n : integer; output f : larik)

{ data akan diambil nilai frekuensi f-nya }

Deklarasi

i : integer

Deklarasi

     for i = 1 to n do

     f[data[i]] := f[data[i]] + 1     { dengan prinsip memasukkan

               bola ke keranjang yang sesuai dengan nomornya }

  endfor

flowchartnya  :