CONTOH MENGHITUNG KELILING DAN LUAS LINGKARAN MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

Bahasa Pemrograman Pascal merupakan bahasa pemrograman yang paling mudah di pelajari dan paling cocok digunakan untuk mempelajari Algoritma Pemrograman.
Contoh kita akan membuat program menghitung keliling dan luas lingkaran dengan inputan jari-jari lingkaran.
Proses algoritma program bekerja sama seperti rumus keliling dan luas lingkaran.
Keliling Lingkaran = 2.π.r
Luas  Lingkaran= π r2

Disini saya menggunakan Turbo Pascal 7.0.

Dibawah merupakan contoh sintaks untuk menghitung keliling dan luas lingkaran.



Pada pemrograman Pascal, lambang "π" merupakan konstanta yang di deklarasikan dengan mengetikkan const pi = 3.14.
Kemudian kita masukkan variabel yang akan di proses komputer untuk mengerjakan program Menghitung Keliling dan Luas Lingkaran.
Variabel di deklarasikan dengan mengetikkan
var r : real;
      keliling : real;
      luas : real;
di sini kita pake tipe data real. Tipe data real merupakan tipe data untuk operasi matematika yang bukan merupakan bilangan bulat.

begin; merupakan perintah untuk memulai proses program yang akan di kerjakan oleh komputer.

clrscr; merupakan perintah yang digunakan untuk membersihkan layar yang akan kita running, tetapi harus mengetikkan uses crt; pada awal program.

write / writeln merupakan perintah untuk mencetak apa yang ada di antara dalam kurung (' ')
Instruksi readln() digunakan untuk meminta inputan dari keyboard dan memasukkan nilai yang dibaca dari keyboard ke variabel yang bersesuaian.

readln(r);
instruksi di atas untuk menginput nilai dari keyboard dan di simpan ke variabel r.

Sekarang kita masuk pada proses menghitung keliling lingkaran..
keliling := 2 * pi *r;
Pada Bahasa Pemrogramana Pascal tanda x (perkalian) dilambangkan dengan *. Hasil dari operasi 2*pi*r di simpan ke variabel keliling. Kemudian di cetak dengan menggunakan perintah writeln.
(' ',keliling:4:2) setelah mencetak komentar program juga akan mencetak nilai dari variabel keliling dengan format :4:2) yang artinya nilai variabel keliling bisa sampai 4 digit sebelum koma dan 2 digit setelah koma.

Sekarang kita masuk pada menghitung luas lingkaran.
luas := pi * SQR(r);
SQR(r) merupakan instruksi memangkatkan nilai dari variabel r yang kita input tadi. Kemudian cetak dengan menggunakan instruksi writeln.

setelah semua sintaks di ketikkan, compile sintaks dengan menekan tombol ALT+F9. Jika tidak muncul pesan error, program sudah bisa kita running dengan menekan tombol CTRL+F9.

Dibawah ini merupakan hasil running program yang kita buat tadi.



Sekian dan terima kasih. :)