Algoritma Dasar : “Program Menghitung Keliling Lingkaran”

Berikut adalah sebuah program pascal sederhana, menghitung keliling lingkaran :

uses wincrt;

var k,r: real;

const  phi = 3.14;

begin

writeln(‘Menghitung Keliling Lingkaran’);
write(‘Jari-Jari = ‘);
readln(r);

k := 2*phi*r;

write(‘Keliling Lingkaran = ‘,k:9:2);

end.

Keterangan :

uses wincrt : fungsi standar untuk program sederhana dalam pascal.
var r dan k : mendeklarasikan variabel jari-jari dengan simbol r dan variabel keliling yang akan digunakan untuk menyimpan data keliling.
const phi = 3.14 : constanta untuk phi adalah 3.14 dan nilainya tetap
begin : memulai awal program
writeln : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor dibawah pesan (ganti baris)
readln(r) : menyimpan data input dari keyboard dalam variabel r
keliling := phi*(2*r) : penulisan rumus keliling lingkaran dalam pascal
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.

_______________________

– Look Up : Program menghitung lingkaran, luas dan keliling

[Pascal] Script Menghitung Luas & Keliling Persegi Panjang dan Lingkaran di Pascal

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s