Latihan Kode Program Pascal: Menghitung Luas Lingkaran

Latihan kode program bahasa Pascal kali ini akan membahas cara menghitung luas lingkaran. Materi ini berhubungan dengan logika matematika dan penggunaan operator aritmatika.


Soal Menghitung Luas Lingkaran

Buatlah kode program dalam bahasa Pascal untuk menghitung luas lingkaran. Kode program butuh 1 inputan berupa nilai jari-jari lingkaran, dan menampilkan output luas lingkaran.

Bonus soal: buat juga dalam bentuk function.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Menghitung Luas Lingkaran  ##
================================================

Input jari-jari lingkaran: 5
Luas lingkaran = 78.50

Berikut contoh tampilan akhir yang diinginkan (2) :

##  Program Pascal Menghitung Luas Lingkaran  ##
================================================

Input jari-jari lingkaran: 21
Luas lingkaran = 1384.74

Silahkan coba sebentar membuat kode program ini.


Tips Membuat Kode Program Menghitung Luas Lingkaran

Soal ini melatih pemahaman terkait logika matematika dan penggunaan operator aritmatika. Berikut tutorial pendahuluan yang bisa diikuti:

Rumus untuk menghitung luar lingkaran adalah pi * jari-jari2. Untuk memudahkan pembuatan kode program, bisa ditulis sebagai 3.14 * r * r.


Kode Program Pascal Menghitung Luas Lingkaran

Berikut salah satu solusi dari soal menghitung luas lingkaran menggunakan bahasa pemrograman Pascal:

program luas_lingkaran;
uses crt;
var
  r, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Lingkaran  ##');
  writeln('================================================');
  writeln;
  
  write('Input jari-jari lingkaran: ');
  readln(r);

  luas := 3.14 * r * r;
  writeln('Luas lingkaran = ',luas:4:2);
  
  readln;
end.

Latihan Kode Program Pascal - Menghitung Luas Lingkaran

Di baris 4 terdapat deklarasi variabel r dan luas bertipe real. Disini saya menggunakan real agar nilai input jari-jari dan hasil kode program bisa dalam bentuk pecahan.

Kemudian user diminta menginput nilai jari-jari dengan perintah readln(r) di baris 12. Nilai ini dipakai untuk menghitung luas dengan perintah luas := 3.14 * r * r.

Terakhir, luas lingkaran ditampilkan di baris 15. Tambahan perintah luas:4:2 dipakai untuk menampilkan format angka dengan 2 tempat desimal.

Proses perhitungan luas lingkaran sebenarnya juga bisa langsung dilakukan ke dalam perintah writeln, tidak harus ditampung dulu ke variabel luas. Berikut contoh yang dimaksud:

program luas_lingkaran;
uses crt;
var
  r, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Lingkaran  ##');
  writeln('================================================');
  writeln;
  
  write('Input jari-jari lingkaran: ');
  readln(r);

  writeln('Luas lingkaran = ',3.14 * r * r:4:2);
  
  readln;
end.

Setelah menerima inputan r di baris 12, di akhir baris 14 perhitungan langsung ditulis ke dalam perintah writeln.

Penulisan seperti ini memang lebih singkat. Namun kelemahannya kita harus melakukan perhitungan ulang jika butuh nilai luas lingkaran di tempat lain.


Kode Program Pascal Menghitung Luas Lingkaran (Function)

Untuk soal bonus, yakni membuat kode program menghitung luas lingkaran dalam bentuk function, bisa menggunakan kode berikut:

program luas_lingkaran;
uses crt;
var
  r, luas: real;

function hitungLuasLingkaran(r:real):real; 
  begin 
    hitungLuasLingkaran := 3.14 * r * r;
  end;

begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Lingkaran  ##');
  writeln('================================================');
  writeln;
  
  write('Input jari-jari lingkaran: ');
  readln(r);

  writeln('Luas lingkaran = ',hitungLuasLingkaran(r):4:2);
  
  readln;
end.

Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasLingkaran(). Fungsi ini menerima 1 argument yang disimpan ke dalam parameter r.

Fungsi hitungLuasLingkaran() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan 3.14 * r * r di baris 8.

Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 20. Nilai jari-jari r yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasLingkaran(r).


Demikian kode program menghitung luas lingkaran menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat.


eBook Pascal Uncover Duniailkom
Apabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom.

Add Comment