Program Luas dan keliling pascal

hmm,, posting kali ini, saya share tugas pascal saya dari dosen yang dikasih tiap minggu sesuai dengan materinya,, jadi program ini sangat cocok buat anda yang baru belajar pascal, bisa pelajari program = program ini dari minggu 1 sampai minggu terakhir.

Minggu ke             : 1

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.

output program:

tampilan awal program

tampilan jika input = 1

tampilan jika input = 2

tampilan jika input = 3

tampilan jika input selain 1,2, dan 3