Latihan kode program bahasa Pascal di Duniailkom kali ini akan membahas cara mencari nilai rata-rata dari sekumpulan data array. Materi ini menguji pemahaman seputar logika dasar dan perulangan (looping).
Soal Mencari Nilai Rata-rata Array
Buatlah kode program dalam bahasa Pascal untuk mencari nilai rata-rata dari sekumpulan element array. Program meminta 1 inputan awal berupa jumlah element array, kemudian user memasukkan satu per satu angka untuk setiap element tersebut.
Setelah itu program akan mencari nilai rata-rata dari semua inputan dan menampilkan hasilnya.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Mencari Nilai Rata-rata ## ============================================== Input jumlah element array: 4 Input 4 angka (dipisah dengan enter): Angka ke-1: 10 Angka ke-2: 30 Angka ke-3: 90 Angka ke-4: 60 Nilai rata-rata dari 4 angka adalah: 47.50
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Mencari Nilai Rata-rata ## ============================================== Input jumlah element array: 6 Input 6 angka (dipisah dengan enter): Angka ke-1: 34 Angka ke-2: 89 Angka ke-3: 54 Angka ke-4: 23 Angka ke-5: 87 Angka ke-6: 44 Nilai rata-rata dari 6 angka adalah: 55.17
Tips Membuat Kode Program Mencari Nilai Rata-Rata
Soal ini melatih pemahaman terkait array dan perulangan (loop). Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Pengertian Tipe Data Integer Pascal
- Pengertian Tipe Data Array Pascal
- Perulangan FOR DO Bahasa Pascal
Kita perlu 2 kali perulangan dalam kode program ini. Perulangan pertama untuk menampung semua inputan ke dalam array, dan perulangan kedua untuk proses menghitung nilai total.
Setelah nilai total semua element array diketahui, nilai rata-rata bisa dihitung dengan membagi total tadi dengan jumlah element array.
Kode Program Bahasa Pascal Mencari Nilai Rata-rata Array
Berikut salah satu solusi dari soal mencari nilai rata-rata array menggunakan bahasa pemrograman Pascal:
program cari_nilai_rata_rata;
uses crt;
var
input: array[1..100] of integer;
arr_count, i: integer;
total, rata2: real;
begin
clrscr;
writeln('## Program Pascal Mencari Nilai Rata-rata ##');
writeln('==============================================');
writeln;
write('Input jumlah element array: ');
readln(arr_count);
writeln;
writeln('Input ',arr_count,' angka (dipisah dengan enter): ');
// simpan setiap angka yang diinput ke dalam array
for i := 1 to arr_count do
begin
write('Angka ke-',i,': ');
readln(input[i]);
end;
writeln;
// cari total semua element array
total := 0;
for i := 1 to arr_count do
begin
total := total+input[i];
end;
// hitung nilai rata-rata
rata2 := (total/arr_count);
writeln('Nilai rata-rata dari ',arr_count,' angka adalah: ',rata2:4:2);
readln;
end.
Di baris 4-6 terdapat perintah untuk deklarasi 5 variabel, yakni array input dengan 100 element, arr_count, i dan total dan rata2.
Variabel input dipakai untuk menampung semua angka inputan. Agar memudahkan penulisan perulangan, index array saya set dari 1 sampai 100.
Namun user tidak harus menginput 100 angka sekaligus. Jumlahnya akan diminta pada baris 14 dan disimpan ke dalam variabel arr_count. User hanya perlu menginput sejumlah nilai arr_count ini saja.
Misalnya jika diinput angka 8, maka hanya perlu mengisi 8 angka awal. Proses pembacaan data ini dilakukan oleh perulangan for do di baris 20-24.
Sebelum mencari nilai rata-rata, kita harus menjumlahkan semua angka array. Ini dilakukan dengan perulangan for do antara baris 29-32.
Dalam setiap iterasi atau perulangan, perintah total := total+input[i] akan terus menambahkan angka array dan disimpan ke dalam variabel total. Setelah perulangan ini, total akan berisi hasil penambahan semua element array.
Proses pencarian nilai rata-rata ada di baris 35 dengan membagi isi variabel total dengan isi variabel arr_count. Jika anda masih ingat, variabel arr_count diinput sendiri oleh user dan berisi jumlah element array. Hasil akhir rata-rata disimpan ke dalam variabel rata2.
Terakhir, isi variabel rata2 di tampilan dengan perintah writeln di baris 37.
Demikian soal dan jawaban kode program mencari nilai rata-rata dalam bahasa pemrograman Pascal. Semoga bermanfaat.