Contoh Program Pascal

Program Menghitung Luas dan Keliling Lingkaran pada Pascal

Assalamu’alaikum,, Selamat datang di web matericoding.com. Pada kesempatan kali ini saya akan memberikan contoh program menggunakan bahasa pemrograman pascal yaitu program menghitung luas dan keliling lingkaran pada pascal. Untuk langkahnya sebagai berikut:

Mengetahui Rumus Luas dan Keliling Lingkaran

Sebelum masuk ke coding, alangkah baiknya kita tahu dulu rumus menghitung luas dan keliling lingkaran. Untuk menghitung luas lingkaran kita menggunakan rumus phi x jari-jari x jari-jari. Lalu untuk rumus menghitung keliling lingkaran adalah 2 x phi x jari-jari. Dimana phi adalah 3.14 atau 22/7.

lingkaran

Menentukan variabel dan tipe data yang akan digunakan

Setelah kita tau rumus luas lingkaran, kita buat nama variabel dan tipe datanya. Untuk penamaan bebas, tapi saran saya sesuaikan dengan rumus. Klu mau disingkatpun juga tidak masalah. Untuk program yang saya buat, Nama Variabel dan tipe datanya sebagai berikut

NoNama VariabelTipe DataKeterangan
1LuasRealUntuk menyimpan data Luas
2KelilingRealUntuk menyimpan data Keliling
3rIntegerUntuk menyimpan data jari-jari

Untuk phi kita buat konstantan karena nilainya bersifat tetap 3.14, jadi tidak dimasukkan di blok variabel.

Untuk tipe data Luas dan keliling menggunakan Real karena untuk hasil nya nanti dimungkinkan bilangan desimal. Untuk jari jari(r) bisa menggunakan tipe data integer jika jari jari yang diinputkan bukan bilangan desimal.

Source Code Program Menghitung Luas dan Keliling Lingkaran pada Pascal

Berikut ini adalah source code program menghitung luas dan keliling lingkaran pada pascal. Untuk compilernya saya menggunakan dev pascal.

PROGRAM LINGKARAN; {matericoding.com}
USES wincrt;
CONST pi = 3.14; {pembuatan constanta pi}
{Pembuatan variabel dengan tipe datanya}
VAR  r :integer ;
     Luas,Keliling :real;
BEGIN
writeln ('HITUNG KELILING & LUAS LINGKARAN');
writeln ('================================');
write ('Jari-jari : '); readln(r);
Luas := pi * r * r;{Rumus Luas Lingkaran}
Keliling :=2 * pi * r;{Rumus Keliling Lingkaran}
writeln ('Luas : ',Luas:2:2);   {Menampilkan Luas}
writeln ('Keliling : ',Keliling:2:2);   {Menampilkan Keliling}
Readkey;
END.

Jika dijalankan hasilnya sebagai berikut:

run Program Menghitung Luas dan Keliling Lingkaran pada Pascal

Untuk fungsi Luas:2:2 adalah memberi spasi dan membatasi jumlah angka dibelakang koma. Jika ingin menambah jumlah angka dibelakang koma bisa mengganti angka 2 yang paling belakang.

Demikian contoh program menghitung luas dan keliling lingkaran. jika ada pertanyaan bisa ditanyakan lewat kolom komentar.

Sekian dan terimakasih.

Wassalamu’alaikum Wr Wb.

(Sumber)

Leave a Comment