Jawaban:

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.

Penjelasan:

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().

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.