aldiunanto.com

Luas lingkaran dengan Pascal dan penjelasannya

Screenshot source code and result

Luas lingkaran dengan Pascal dan penjelasannya

Luas lingkaran dengan Pascal dan penjelasannya

Luas lingkaran dengan Pascal dan penjelasannya

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.

Leave a Reply

%d bloggers like this: