Latihan kode program bahasa Pascal Duniailkom kali ini akan membahas cara mencari nilai terkecil dari sekumpulan data array. Materi ini menguji pemahaman seputar logika dasar, penggunaan array dan juga kondisi if else.
Soal Mencari Nilai Terkecil Array
Buatlah kode program dalam bahasa Pascal untuk mencari nilai terkecil 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 angka terkecil dari array tersebut dan menampilkan hasilnya.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Cari Nilai Terkecil ## ========================================== Input jumlah element array: 4 Input 4 angka (dipisah dengan enter): Angka ke-1: 7 Angka ke-2: 5 Angka ke-3: 3 Angka ke-4: 9 Angka terkecil adalah: 3
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Cari Nilai Terkecil ## ========================================== Input jumlah element array: 5 Input 5 angka (dipisah dengan enter): Angka ke-1: -6 Angka ke-2: -8 Angka ke-3: -10 Angka ke-4: 7 Angka ke-5: 14 Angka terkecil adalah: -10
Tips Membuat Kode Program Mencari Nilai Terkecil
Soal ini melatih pemahaman terkait array, kondisi if else 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
- Percabangan Kondisi IF THEN ELSE
Kita perlu 2 kali perulangan dalam kode program ini. Perulangan pertama untuk menampung semua inputan ke dalam array, dan perulangan kedua untuk proses pencarian nilai terkecil .
Terdapat berbagai algoritma untuk pencarian nilai terkecil. Salah satu cara praktis adalah membuat sebuah variabel penampung, lalu bandingkan isi variabel penampung ini dengan setiap element array secara berurutan dari atas ke bawah.
Jika nilai array lebih kecil, ambil isi element tersebut sebagai nilai terkecil baru, demikian seterusnya hingga semua element array berhasil di periksa.
Kode Program Bahasa Pascal Mencari Nilai Terkecil Array
Berikut salah satu solusi dari soal mencari nilai terkecil array menggunakan bahasa pemrograman Pascal:
program cari_nilai_terkecil;
uses crt;
var
input: array[1..100] of integer;
arr_count, i, min_num: integer;
begin
clrscr;
writeln('## Program Pascal Cari Nilai Terkecil ##');
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;
// proses mencari nilai terkecil
min_num := input[1];
for i := 1 to arr_count do
begin
if(input[i] < min_num) then
begin
min_num := input[i];
end;
end;
writeln('Angka terkecil adalah: ', min_num);
readln;
end.
Di baris 4-5 terdapat perintah untuk deklarasi 4 variabel, yakni array input dengan 100 element, arr_count, i dan min_num.
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 13 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 19-23.
Proses pencarian angka terkecil di lakukan dari baris 27-34. Sebelum perulangan, variabel min_num akan diisi dengan nilai element pertama array input. Inilah nilai terkecil sementara.
Masuk ke struktur for do, kita akan buat perulangan untuk memeriksa sisa element array apakah ada yang lebih kecil dari isi min_num atau tidak. Pemeriksaan ini dilakukan dengan perintah if(input[i] < min_num).
Jika kondisi tersebut menghasilkan nilai true, ambil nilai element array tersebut dan simpan sebagai nilai baru ke dalam variabel min_num. Dengan cara ini, setelah perulangan selesai min_num akan berisi angka terkecil dari semua element array.
Sebagai catatan, karena index array input sudah saya set agar mulai dari angka 1, maka di setiap perulangan bisa langsung dimulai dari angka 1. Namun jika anda men-set nomor index dari angka 0, maka akhir perulangan for do perlu dikurangi 1 angka seperti for i := 1 to arr_count-1 do.
Demikian soal dan jawaban kode program mencari nilai terkecil dalam bahasa Pascal. Semoga bisa bermanfaat.