Latihan kode program bahasa Pascal di Duniailkom kali ini akan membahas cara mencari nilai terbesar dari sekumpulan data array. Materi ini menguji pemahaman seputar logika dasar, penggunaan array serta kondisi if else.
Soal Mencari Nilai Terbesar Array
Buatlah kode program dalam bahasa Pascal untuk mencari nilai terbesar dari sekumpulan element array. Program meminta 1 inputan awal berupa jumlah element array, kemudian user memasukkan satu per satu angka untuk array tersebut.
Setelah itu program akan mencari apa angka terbesar dari array tersebut dan menampilkan hasilnya.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Cari Nilai Terbesar ## ========================================== Input jumlah element array: 5 Input 5 angka (dipisah dengan enter): Angka ke-1: 20 Angka ke-2: 40 Angka ke-3: 90 Angka ke-4: 10 Angka ke-5: 70 Angka terbesar adalah: 90
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Cari Nilai Terbesar ## ========================================== Input jumlah element array: 6 Input 6 angka (dipisah dengan enter): Angka ke-1: -10 Angka ke-2: -70 Angka ke-3: -75 Angka ke-4: -45 Angka ke-5: -5 Angka ke-6: -90 Angka terbesar adalah: -5
Tips Membuat Kode Program Mencari Nilai Terbesar
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 terbesar.
Terdapat berbagai algoritma untuk pencarian nilai terbesar. Salah satu yang paling mudah adalah dengan membuat sebuah variabel penampung, lalu bandingkan isi variabel penampung ini dengan setiap element array secara berurutan dari atas ke bawah.
Jika nilai array lebih besar, ambil isi element tersebut sebagai nilai terbesar baru, demikian seterusnya hingga semua element array berhasil di periksa.
Kode Program Bahasa Pascal Mencari Nilai Terbesar Array
Berikut salah satu solusi dari soal mencari nilai terbesar array menggunakan bahasa Pascal:
program cari_nilai_terbesar; uses crt; var input: array[1..100] of integer; arr_count, i, max_num: integer; begin clrscr; writeln('## Program Pascal Cari Nilai Terbesar ##'); 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 terbesar max_num := input[1]; for i := 1 to arr_count do begin if(input[i] > max_num) then begin max_num := input[i]; end; end; writeln('Angka terbesar adalah: ', max_num); readln; end.
Di baris 4-5 terdapat perintah untuk deklarasi 4 variabel, yakni array input dengan 100 element, arr_count, i dan max_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 terbesar di lakukan dari baris 27-34. Sebelum perulangan, variabel max_num akan diisi dengan nilai element pertama array input. Inilah nilai terbesar sementara.
Masuk ke struktur for do, kita akan buat perulangan untuk memeriksa sisa element array apakah ada yang lebih besar dari isi max_num atau tidak. Pemeriksaan ini dilakukan dengan perintah if(input[i] > max_num).
Jika kondisi tersebut menghasilkan nilai true, ambil nilai element array tersebut dan simpan sebagai nilai baru ke dalam variabel max_num. Dengan cara ini, setelah perulangan selesai max_num akan berisi angka terbesar 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 terbesar dalam bahasa Pascal. Semoga bisa bermanfaat.
Terimakasih mas Andre atas penjelasannya