Program Luas dan keliling pascal

Posted on Updated on


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 = 1
tampilan jika input = 2
tampilan jika input = 2

tampilan jika input = 3
tampilan jika input = 3
tampilan jika input selain 1,2, dan 3
tampilan jika input selain 1,2, dan 3

 



Web development jakarta

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s