Contoh Program Pascal Menghitung Luas Lingkaran

Kali ini saya lanjutkan untuk contoh program pascal sederhana untuk menghitung luas lingkaran. sebagai info saja sebelumnya juga saya bagikan artikel menghitung luas persegi panjang di pascal.

Pascal memang bahasa pemrograman yang cocok bagi kita pemula yang belajar pemrograman terutama untuk memahami algoritma untuk proses penyelesaian masalah.

Untuk menghitung luas lingkaran menggunakan rumus:

Luas lingkaran = π × r²

Keterangan:

pi = 3.14
r = jari-jari

pi merupakan nilai konstanta yang meruakan perbandingan keliling lingkaran dengan diameternya, sementara r adalah jari-jari lingkaran sebagai jarak antara titik pusat dengan tepi lingkaran.

Algoritma Bahasa Natural

• Mulai
• Inisialisasi nilai pi sebagai konstanta
• Masukan Jari-jari
• Hitung luas
• Tampilkan luas lingkaran
• Selesai

Bentuk Pseudocode

PROGRAM Luas_Lingkaran
DEKLARASI
  pi   : 3.14
  r    : real
  luas : real
ALGORITMA:
  read (r)
  luas <- pi * r * r
  write (luas)

Program Pascal Menghitung Luas Lingkaran

program Luas_Lingkaran;
const
    pi=3.14;
var
    r           : real;
    luas        : real;
begin
    write ('Masukan Jari-jari = ');read(r);
    luas:=pi*r*r;
    writeln('Luas     = ',luas:4:2);
end.

Program di atas kita menggunakan konstanta pi dengan nilai 3.14.

Variabel yang di deklarasikan adalah r sebagai jari-jari dan luas masing-masing dengan tipe real (bilangan pecahan).

pada bagian main (utama) program kita mencetak kalimat ‘Masukan jari-jari’ menggunakan perintah write() dan pengguna di minta memasukan nilai pada layar console yang akan di tampung pada variabel r. Perintah masukan di pascal menggunakan fungsi read().

Selanjutnya program akan menghitung luas lingkaran sesuai rumus yang kita definisikan. Program akan menampilkan hasil dengan menampilkan hasil perhitungan luas lingkaran.

Perhatikan pada baris program ke-10 pada bagian sintak untuk mencetak luas:4:2 maksud dari sintak ini adalah untuk mencetak 4 angka sebelum tanda titik (tanda pemisah bilangan desimal), dan 2 digit setelah tanda koma. sebagai informasi bahwa Pascal menggunakan tanda titik sebagai penanda angka desimal.

Hasil output di atas menunjukan hasil program-nya, di mana ketika saya memasukan jari-jari dengan nilai 5 maka luas lingkaran adalah 78,50.

Sekian pembahasan singkat mengenai contoh program pascal untuk menghitung luas lingkaran, semoga bermanfaat dan membantu teman-teman dalam belajar algoritma dan pemrograman khusus dengan bahasa pascal.