Screenshot source code and result
Explanation and logic
uses crt;
var nama, npm, kelas : string;
pi, r, luas : real;
Program diberi nama ‘luaslingkaran’, lalu mengimport library crt. Library ini digunakan untuk kita bisa memakai fungsi clrscr, dan sebagainya. Setelah itu dilakukan pendeklarasian variable dengan masing-masing tipe data. Disini terdapat 6 variable, nama, npm, dan kelas didefinisikan string karena inputan merupakan karakter. Dan pi, r, dan luas didefinisikan real sebagai pernyataan numeric pecahan.
begin
clrscr;
pi := 22 / 7;
gotoxy(12, 1); writeln(‘Menghitung Luas Lingkaran’);
gotoxy(12, 2); writeln(‘————————-‘);
Program dimulai, pertama dilakukan yaitu clear screen dengan menggunakan fungsi clrscr oleh library crt. Setelah itu dimasukan sebuah nilai ke dalam variable pi sebesar 22/7. Setelah itu kursor dipindah ke kolom 12 baris 1 untuk mencetak judul, dan garis dibawahnya.
writeln();
write(‘Masukan nama anda : ‘); readln(nama);
write(‘Masukan NPM : ‘); readln(npm);
write(‘Masukan Kelas : ‘); readln(kelas);
writeln();
writeln(‘Selanjutnya untuk menghitung luas lingkaran, dibutuhkan jari-jari.’);
write(‘Masukan jari-jari lingkaran : ‘); readln(r);
Menerima inputan dari user untuk ditampung kedalam variable yang sudah di deklarasi tadi.
luas := pi * r * r;
Pendefinisian luas lingkaran menggunakan rumus dasar luas lingkaran. (22/7 x jari-jari x jari-jari).
writeln(‘Nama : ‘, nama);
writeln(‘NPM : ‘, npm);
writeln(‘Kelas : ‘, kelas);
writeln(‘Luas lingkaran = ‘, luas : 2 : 2);
readln();
end.
Mencetak ke layar semua variable yang sudah ditampung berikut dengan hasil kalkulasi luas lingkaran yang sudah di lakukan dan dengan pembulatan serta berapa banyaknya angka di belakang koma.