contoh program pascal menentukan menu empat persegi panjang

Naaah ketemu lagi di blog kesayangan ane,,,becktian.blogspot.com hehehe....curhat dikit,sebenernya lagi galau ni,hahah tapi dari pada kepikiran yang ga jelas,mending share postingan,he oke pada postingan kali ini ane mau share contoh program pascal menentukan menu empat persegi panjang,,seperti biasa tanpa panjang lebar langsung aja...
untuk contoh kasusnya adalah sebagai berikut :

1. Buatlah program pascal untuk menentukan luas empat persegi panjang,keliling,dan panjang diagonalnya, dilengkapi dengan menu pilihan : 1) luas 2) keliling 3) diagonal 4) keluar program, pada setiap pilihan menu di baca panjang dan lebarnya.

untuk rumus adalah :

• Luas = panjang * lebar
• Keliling = 2*panjang + 2*lebar
• Diagonal = sqrt (panjang*panjang + lebar*lebar) 

nah untuk penyelesaiannya :

dan bila di Run hasilnya akan seperti ini :

sekian dulu,selamat mencoba,dan semoga bermanfaat...