Tampilkan postingan dengan label latihan membuat program pascal. Tampilkan semua postingan
Tampilkan postingan dengan label latihan membuat program pascal. Tampilkan semua postingan

Rabu, 20 Januari 2010

Program X E

1. Cobalah untuk membuat program XE yang mendeklarasikan variabel.
- Menu --> bertipe Integer
- r,t,L, SelimutTabung,LuasTabung,LuasTabung_tapa_tutup,LuasSelimutTabung -------> bertipe real

Kemudian pada bagian pernyataan isilah;
- Menu ManghitungLuas Tabung.
- Menu 1.Luas selimur Tabung
- Menu 2.Luas seluruh Tabung.
- menu 3.Luas Tabung tanpa Tutup.
- Menu 4. Keluar dari program.

Terakhir kali, tampilkan salah satu menu yang dipilih.

Ketentuan Rumus Tanung
Luas selimut tabung = 2 * phi * r * t
Luas Tabung Tanpa Tutup = phi * r * r + 2 * phi * r * t
Luas Seluruh Tabung = 2 * phi * r + phi * r * t
Gunakanlah struktur program dibawah ini.