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 :
tampilan awal program
tampilan jika input = 1
tampilan jika input = 2
tampilan jika input = 3
tampilan jika input Selain 1,2,3
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
