Latihan kode program bahasa Pascal kali ini akan membahas cara menghitung luas persegi. Materi ini berhubungan dengan logika matematika dan penggunaan operator aritmatika.
Soal Menghitung Luas Persegi
Buatlah kode program dalam bahasa Pascal untuk menghitung luas persegi. Kode program butuh 1 inputan berupa panjang sisi persegi, kemudian tampilkan output luas persegi.
Bonus soal: buat juga dalam bentuk function.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Menghitung Luas Persegi ## ============================================== Input panjang sisi persegi: 15 Luas persegi = 225.00
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Menghitung Luas Persegi ## ============================================== Input panjang sisi persegi: 3.85 Luas persegi = 14.82
Silahkan coba sebentar membuat kode program ini.
Tips Membuat Kode Program Menghitung Luas Persegi
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, Persegi atau bujur sangkar adalah bangun datar dua dimensi yang dibentuk oleh empat buah rusuk yang sama panjang dan memiliki empat buah sudut yang kesemuanya adalah sudut siku-siku.
Rumus untuk menghitung luas persegi = sisi * sisi.
Kode Program Bahasa Pascal Menghitung Luas Persegi
Berikut salah satu solusi dari soal menghitung luas persegi menggunakan bahasa pemrograman Pascal:
program luas_persegi;
uses crt;
var
sisi_persegi, luas: real;
begin
clrscr;
writeln('## Program Pascal Menghitung Luas Persegi ##');
writeln('==============================================');
writeln;
write('Input panjang sisi persegi: ');
readln(sisi_persegi);
luas := sisi_persegi * sisi_persegi;
writeln('Luas persegi = ',luas:4:2);
readln;
end.
Di baris 4 terdapat deklarasi variabel sisi_persegi dan luas bertipe real. Disini saya menggunakan tipe data real agar nilai input persegi bisa menampung angka pecahan.
Kemudian user diminta menginput nilai panjang sisi persegi dengan perintah readln(sisi_persegi) di baris 12. Nilai ini kemudian dipakai untuk menghitung luas persegi dengan perintah luas :=Â sisi_persegi * sisi_persegi.
Terakhir, luas persegi ditampilkan di baris 15.
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_persegi;
uses crt;
var
sisi_persegi, luas: real;
begin
clrscr;
writeln('## Program Pascal Menghitung Luas Persegi ##');
writeln('==============================================');
writeln;
write('Input panjang sisi persegi: ');
readln(sisi_persegi);
writeln('Luas persegi = ',sisi_persegi * sisi_persegi:4:2);
readln;
end.
Setelah menerima inputan sisi_persegi, di akhir baris 14 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 persegi di tempat lain.
Kode Program Bahasa Pascal Menghitung Luas Persegi (Function)
Untuk soal bonus, yakni membuat kode program menghitung luas persegi dalam bentuk function, bisa menggunakan kode berikut:
program luas_persegi;
uses crt;
var
sisi_persegi, luas: real;
function hitungLuasPersegi(sisi:real):real;
begin
hitungLuasPersegi := sisi*sisi;
end;
begin
clrscr;
writeln('## Program Pascal Menghitung Luas Persegi ##');
writeln('==============================================');
writeln;
write('Input panjang sisi persegi: ');
readln(sisi_persegi);
writeln('Luas persegi = ',hitungLuasPersegi(sisi_persegi):4:2);
readln;
end.
Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasPersegi(). Fungsi ini menerima 1 argument yang disimpan ke dalam parameter sisi.
Fungsi hitungLuasPersegi() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan sisi * sisi di baris 8.
Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 20. Nilai variabel sisi_persegi yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasPersegi(sisi_persegi).
Demikian kode program menghitung luas persegi menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat.