Mencari rata-rata dari sejumlah data dengan menggunakan free pascal

Buatlah program menghitung rata-rata dari sejumlah bilangan (minimal 10000 bilangan).

1. Buat algoritmanya (dalam bentuk flowchart dan pseudocode)

2.Hitung kompleksitas waktu untuk algoritma yang anda buat!

Jawaban:

1.      Algoritmanya :

a.       Operasi pengisian nilai: (I←0),  I←I+1, Total←Total + nilai, dan Ratarata ← Total/N). Jumlah seluruh operasi pengisian nilai adalah :

t1 = 1 + n + n + 1 = 2 + 2n

b.      Operasi penjumlahan (I←I+1, dan Total←Total + nilai)

Jumlah seluruh operasi penjumlahan adalah :

t2= n + n = 2n

c.       Operasi pembagian (Ratarata ← Total/N)

Jumlah seluruh operasi pembagian adalah

t3 = 1,

Jadi total kebutuhan waktu algoritma untuk menghitung rata-rata dari beberapa data adalah:

 t    = t1 + t2 + t3

= (2 + 2n)a + (2n)b + c detik.

FLOWCHART :

2.Program perhitungan rata-rata dari beberapa bilangan :

Dari output program diketahui bahwa waktu awal adalah : 23:40:57:32

Sedangkan waktu akhirnya adalah : 23:44:25:25

Maka total waktu yang dibutuhkan untuk melakukan proses pemasukan data dan perhitungan rata-rata dari sejumlah data tersebut adalah:

Total waktu   = waktu akhir – waktu awal

                        = (23:44:25:25) – (23:40:57:32)

                        = 0:04:32:7 (Hour : Min : Sec : HSec)