Contoh Konstanta Pada Pascal : Program Menghitung Luas dan Keliling Lingkaran

Assalamu'alaikum Wr Wb,,

Selamat datang kembali di web sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan contoh penggunaan konstanta pada pascal yaitu program menghitung luas dan keliling lingkaran.

Bagi teman-teman yang belum paham tentang konstanta, bisa melihat postingan saya sebelumnya disini . Sebelum ke Linsting programnya, kita harus tahu dulu tentang rumus menghitung luas dan keliling lingkaran. Untuk rumusnya bisa dilihat dibawah ini:

Seperti yang teman-teman lihat rumus di atas, Rumus luas dan keliling menggunakan phi. Seperti yang kita tahu nilai phi bersifat tetap yaitu 3.14, sehingga kita buat phi sebagai konstanta. Untuk variabel yang dipakai ada 3 yaitu
- r yang natinya kita gunakan untuk meyimpan nilaijari-jari
- kel yang digunakan untuk menyimpan hasil kelilingnya
- luas yang digunakan untuk menyimpan hasil luas

Secara garis besar, source code program menghitung luas dan keliling adalah sebagai berikut:

PROGRAM LINGKARAN;
USES crt;
CONST pi =3.14; {Penulisan Konstanta}
VAR r : integer;
    luas, kel : real;
BEGIN
writeln ('HITUNG KELILING & LUAS LINGKARAN');
writeln ('================================');
write ('Jari-jari : '); readln(r);
luas := pi * r * r;{Rumus Luas Lingkaran}
kel :=2 * pi * r;{Rumus Keliling Lingkaran}
writeln ('Luas : ',luas:2:2);
writeln ('Keliling : ',kel:2:2);
Readkey;
END.

Jika dijalankan hasilnya sebagai berikut:

Untuk hasilnya bisa dihitung manual dengan kalkulator, jika benar dan tanpa error, maka program yang teman-teman buat benar.

Demikian tadi contoh penggunaan konstanta pada bahasa pemrograman pascal yaitu program menghitung luas lingkaran. Silahkan dipelajari lagi lebih lanjut dan jika ada pertanyaan bisa ditanyakan lewat kolom komentar. Jangan lupa untuk tetap mengunjungi web sibukngoding.com untuk mendapatkan tutorial pemrograman lainnya.

Terimakasih atas kunjungannya, Selamat belajar, tetap semangat dan jangan mudah menyerah.

Wassalamu'alaikum Wr Wb