Cara Membuat Program Luas dan Keliling dengan Menggunakan Pascal

hmm,, postingan kali ini, saya share tugas pascal teman blogger saya dari dosennya yang dikasih tiap minggu sesuai dengan materinya,, jadi program ini sangat cocok buat anda yang baru belajar pascal, bisa pelajari program-program ini
Source By : Cody Coding

Nama program : Program Luas dan Keliling
Fungsi :
- Membuat berbagai rumus luas dan keliling bangun datar menggunakan program pascal.
- Menggunakan procedure/sub program pada pascal.

Listing Program :

uses crt ;
var pil : integer ;
Procedure lingkaran ;
var x,y,z : real ;
begin
writeln ( � �� 1.lingkaran�� ) ;
write ( �masukan jari-jari: � ) ;
readln (x) ;
y := 3.14 * x * x ;
z := 2 * x * 3.14 ;
writeln ( �luas lingkaran     = � , y : 9 : 2 ) ;
writeln ( �keliling lingkaran = � , z : 9 : 2 ) ;
end ;

Procedure persegi ;
var x,y,z : real ;
begin
writeln ( � ��2.persegi�� ) ;
write ( �masukan sisi: � ) ;
readln (x) ;
y := x * x ;
z := x * 4 ;
writeln ( �luas persegi     = � , y : 9 : 2 ) ;
writeln ( �keliling persegi = � , z : 9 : 2 ) ;
end ;

Procedure persegi_panjang ;
var p,l,y,z : real ;
begin
writeln ( � ��3.persegi_panjang�� ) ;
write ( �masukan panjang: � ) ;
readln (p) ;
write ( �masukan lebar: � ) ;
readln (l) ;
y := p * l ;
z := 2 * ( p + l ) ;
writeln ( � luas persegi panjang     =� , y : 9 : 2 ) ;
writeln ( �keliling persegi panjang =� , z : 9 : 2 ) ;
end ;

begin
clrscr ;
writeln ( �program luas dan keliling� ) ;
writeln () ;
writeln ( �1 = lingkaran� ) ;
writeln ( �2 = persegi� ) ;
writeln ( �3 = persegi panjang� ) ;
writeln () ;
write ( �masukan pilihan :� ) ;
readln (pil) ;
writeln () ;
if pil = 1 then lingkaran
else if pil = 2 then persegi
else if pil = 3 then persegi_panjang
else write ( �input salah� ) ;
readln
end.

* * *

Maka Nanti Output Tampilan Programnya seperti berikut :