Latihan kode program bahasa Pascal kali ini akan membahas cara menghitung luas segitiga. Materi ini berhubungan dengan logika matematika dan penggunaan operator aritmatika.
Soal Menghitung Luas Segitiga
Buatlah kode program dalam bahasa Pascal untuk menghitung luas segitiga. Kode program butuh 2 inputan berupa alas dan tinggi segitiga, kemudian menampilkan output luas segitiga.
Bonus soal: buat juga dalam bentuk function.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Menghitung Luas Segitiga ## =============================================== Input alas segitiga: 10 Input tinggi segitiga: 20 Luas segitiga = 100.00
Berikut contoh tampilan akhir yang diinginkan (2) :
# Program Pascal Menghitung Luas Segitiga ## =============================================== Input alas segitiga: 10.85 Input tinggi segitiga: 7.75 Luas segitiga = 42.04
Silahkan coba sebentar membuat kode program ini.
Tips Membuat Kode Program Menghitung Luas Segitiga
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, segitiga adalah poligon dengan tiga ujung dan tiga simpul. Ini adalah salah satu bentuk dasar dalam geometri.
Rumus untuk menghitung luar segitiga adalah 1/2 * alas * tinggi. Untuk memudahkan pembuatan kode program, bisa ditulis sebagai 0.5 * alas * tinggi.
Kode Program Bahasa Pascal Menghitung Luas Segitiga
Berikut salah satu solusi dari soal menghitung luas segitiga menggunakan bahasa pemrograman Pascal:
program luas_segitiga;
uses crt;
var
alas, tinggi, luas: real;
begin
clrscr;
writeln('## Program Pascal Menghitung Luas Segitiga ##');
writeln('===============================================');
writeln;
write('Input alas segitiga: ');
readln(alas);
write('Input tinggi segitiga: ');
readln(tinggi);
luas := 0.5 * alas * tinggi;
writeln('Luas segitiga = ',luas:4:2);
readln;
end.
Di baris 8 terdapat deklarasi variabel alas, tinggi, dan luas bertipe real. Disini saya menggunakan tipe data real agar nilai input alas dan tinggi segitiga bisa menampung nilai pecahan.
Kemudian user diminta menginput nilai alas segitiga dengan perintah readln(alas) di baris 12, dan nilai tinggi segitiga dengan perintah readln(tinggi) di baris 14.
Kedua nilai ini dipakai untuk menghitung luas segitiga dengan perintah luas := 0.5 * alas * tinggi.
Terakhir, luas segitiga ditampilkan di baris 17.
Proses perhitungan luas segitiga sebenarnya juga bisa langsung dilakukan ke dalam perintah writeln, tidak harus ditampung dulu ke variabel luas terlebih dahulu. Berikut contoh yang dimaksud:
program luas_segitiga;
uses crt;
var
alas, tinggi, luas: real;
begin
clrscr;
writeln('## Program Pascal Menghitung Luas Segitiga ##');
writeln('===============================================');
writeln;
write('Input alas segitiga: ');
readln(alas);
write('Input tinggi segitiga: ');
readln(tinggi);
writeln('Luas segitiga = ',0.5 * alas * tinggi:4:2);
readln;
end.
Setelah menerima inputan alas dan tinggi, 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 segitiga di tempat lain.
Kode Program Pascal Menghitung Luas Segitiga (Function)
Untuk soal bonus, yakni membuat kode program menghitung luas segitiga dalam bentuk function, bisa menggunakan kode berikut:
program luas_segitiga;
uses crt;
var
alas, tinggi, luas: real;
function hitungLuasSegitiga(a,t:real):real;
begin
hitungLuasSegitiga := 0.5 * a * t;
end;
begin
clrscr;
writeln('## Program Pascal Menghitung Luas Segitiga ##');
writeln('===============================================');
writeln;
write('Input alas segitiga: ');
readln(alas);
write('Input tinggi segitiga: ');
readln(tinggi);
writeln('Luas segitiga = ',hitungLuasSegitiga(alas,tinggi):4:2);
readln;
end.
Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasSegitiga(). Fungsi ini menerima 2 argument yang disimpan ke dalam parameter a dan t.
Fungsi hitungLuasSegitiga() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan 0.5 * a * t di baris 8.
Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 22. Nilai variabel alas dan tinggi yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasSegitiga(alas,tinggi).
Demikian kode program menghitung luas segitiga menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat.