Latihan kode program bahasa Pascal kali ini akan membahas cara menghitung luas belah ketupat. Materi ini berhubungan dengan logika matematika dan penggunaan operator aritmatika.
Soal Menghitung Luas Belah Ketupat
Buatlah kode program dalam bahasa Pascal untuk menghitung luas belah ketupat. Kode program butuh 2 inputan berupa panjang diagonal 1 dan panjang diagonal 2. Kemudian tampilkan output luas belah ketupat.
Bonus soal: buat juga dalam bentuk function.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Menghitung Luas Belah Ketupat ## ==================================================== Input panjang diagonal 1: 10 Input panjang diagonal 2: 20 Luas belah ketupat = 100.00
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Menghitung Luas Belah Ketupat ## ==================================================== Input panjang diagonal 1: 6.35 Input panjang diagonal 2: 10.75 Luas belah ketupat = 34.13
Silahkan coba sebentar membuat kode program ini.
Tips Membuat Kode Program Menghitung Luas Belah Ketupat
Soal ini melatih pemahaman terkait logika matematika dan penggunaan operator aritmatika. Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Pengertian Tipe Data Integer Pascal
- Pengertian Tipe Data Real Pascal
- Operator Aritmatika Pascal
Dikutip dari wikipedia, Belah Ketupat adalah bangun datar dua dimensi yang dibentuk oleh empat buah segitiga siku siku masing-masing sama besar dengan sudut di hadapannya.
Rumus untuk menghitung luas belah ketupat adalah 1/2 * (panjang diagonal 1 + panjang diagonal 2).
Berikut ilustrasi rumus luas belah ketupat:
Kode Program Bahasa Pascal Menghitung Luas Belah Ketupat
Berikut salah satu solusi dari soal menghitung luas belah ketupat menggunakan bahasa pemrograman Pascal:
program luas_belah_ketupat; uses crt; var diagonal1, diagonal2, luas: real; begin clrscr; writeln('## Program Pascal Menghitung Luas Belah Ketupat ##'); writeln('===================================================='); writeln; write('Input panjang diagonal 1: '); readln(diagonal1); write('Input panjang diagonal 2: '); readln(diagonal2); luas := 0.5 * diagonal1 * diagonal2; writeln('Luas belah ketupat = ',luas:4:2); readln; end.
Di baris 4 terdapat deklarasi 3 variabel: diagonal1, diagonal2 dan luas. Ketiga variabel menggunakan tipe data real agar nilai input belah ketupat bisa menampung angka pecahan.
Kemudian user diminta menginput nilai diagonal 1 dan diagonal 2 dengan perintah readln
antara baris 11-14. Nilai ini kemudian dipakai untuk menghitung luas belah ketupat dengan perintah luas := 0.5 * diagonal1 * diagonal2
.
Terakhir, luas belah ketupat ditampilkan di baris 17. Tambahan perintah luas:4:2 dipakai untuk menampilkan format angka dengan 2 tempat desimal.
Proses perhitungan luas sebenarnya juga bisa langsung dilakukan ke dalam perintah writeln, tidak harus ditampung dulu ke variabel luas terlebih dahulu. Berikut contoh yang dimaksud:
program luas_belah_ketupat; uses crt; var diagonal1, diagonal2, luas: real; begin clrscr; writeln('## Program Pascal Menghitung Luas Belah Ketupat ##'); writeln('===================================================='); writeln; write('Input panjang diagonal 1: '); readln(diagonal1); write('Input panjang diagonal 2: '); readln(diagonal2); writeln('Luas belah ketupat = ',0.5 * diagonal1 * diagonal2:4:2); readln; end.
Setelah menerima semua inputan, di akhir baris 16 perhitungan luas langsung ditulis ke dalam perintah writeln.
Penulisan seperti ini memang lebih singkat. Namun kelemahannya kita harus melakukan perhitungan ulang jika butuh nilai luas belah ketupat di tempat lain.
Kode Program Bahasa Pascal Menghitung Luas Belah Ketupat (Function)
Untuk soal bonus, yakni membuat kode program menghitung luas belah ketupat dalam bentuk function, bisa menggunakan kode berikut:
program luas_belah_ketupat; uses crt; var diagonal1, diagonal2, luas: real; function hitungLuasBelahKetupat(d1,d2:real):real; begin hitungLuasBelahKetupat := 0.5 * d1 * d2; end; begin clrscr; writeln('## Program Pascal Menghitung Luas Belah Ketupat ##'); writeln('===================================================='); writeln; write('Input panjang diagonal 1: '); readln(diagonal1); write('Input panjang diagonal 2: '); readln(diagonal2); writeln('Luas belah ketupat = ', hitungLuasBelahKetupat(diagonal1, diagonal2):4:2); readln; end.
Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasBelahKetupat(). Fungsi ini menerima 2 argument yang disimpan ke dalam parameter d1Â dan d2.
Fungsi hitungLuasBelahKetupat() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan 0.5 * d1 * d2 di baris 8.
Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 22-23. Nilai variabel diagonal1Â dan diagonal2 yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasBelahKetupat(diagonal1, diagonal2).
Demikian kode program menghitung luas belah ketupat menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat.