Articles Comments

Belajar Untuk Berbagi » Pascal » Program menghitung lingkaran, luas dan keliling

Program menghitung lingkaran, luas dan keliling

Ini merupakan contoh untuk menghitung luas dan keliling Lingkaran, simpan baris perintah dibawah ini dengan nama file lingkaran.pas

program lingkaran.pas
uses crt;
var r:integer;
var luas,keliling:real;
const phi = 3.14;
begin
clrscr;
write(‘Masukkan jari-jari lingkaran : ‘);
readln(r);
luas := phi*r*r;
keliling := phi*(2*r);
writeln(‘======================’);
writeln(‘Luas lingkaran dengan jari-jari ‘,r,’ adalah ‘,luas:9:2);
writeln(‘Keliling lingkaran dengan jari-jari ‘,r, ‘adalah ‘,keliling:9:2);
readln
end.

keterangan :
uses crt : library untuk memanggil fungsi clrscr
var r : mendeklarasikan variabel jari-jari dengan simbol r
var luas, keliling : mendeklarasikan variabel luas dan keliling yang akan digunakan untuk menyimpan data luas dan keliling.
const phi = 3.14 : constanta untuk phi adalah 3.14 dan nilainya tetap
begin : memulai awal program
clrscr : fungsi untuk membersihkan layar
write : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor disebelah akhir pesan yang ditampilkan.
writeln : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor dibawah pesan (ganti baris)
readln(r) : menyimpan data input dari keyboard dalam variabel r
luas := phi*r*r : penulisan rumus luas lingkaran dalam pascal
keliling := phi*(2*r) : penulisan rumus keliling lingkaran dalam pascal
luas:9:2 : menampilkan data luas dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
keliling:9:2 : menampilkan data keliling dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
readln : menahan tampilan agar tidak secepat kilat
end. : akhir dari program pascal

Mau Lihat Lebih...
Mau Lihat Lebih...

Written by

Filed under: Pascal · Tags:

Leave a Reply

*

*

You might also likeclose