Program Pascal (Procedure & Perulangan)

Aiikkhhh,,, tadi UTS ada dua soal essay dr bapak Iwan Setiawan yg ogut kerjakan dengan saltot(Salah Total) nie,,, dimana soal itu kira" begini:

1. Buatlah Program Procedure untuk mencari keliling dan luas bangun ruang persegi panjang dan segitiga. Dimana Outputnya harus :
Masukan pilihan (1/2) :

jika pilih 1 maka keliling dan Luas Persegi Panjang
jika pilih 2 maka keliling dan Luas Lingkaran
selain itu "Maaf Anda Salah"

2. Buatlah bari seperti ini
masukan baris : (diinput)
1
12
123
1234

nah setelah ogut pulang dr kampus,, langsung deh ogut gaspol(kerjain) nie soal sambil liat" ebook pascal buat nyari dimana letak kesalahan ogut td ngerjain. Ekh ternyata ogut salah di procedure dan if nya. Aikkkhhh parahhh,,,
After that, ogut langsung kerjain deh tugas itu dalam waktu kurang lebih 7 menit, pas nye 10 menit dah. Maklumin gan newbie.

nie kaya gini nie Jawaban yg bener yg dikerjain sm ogut

Pake gambar ajah yah biar yg pengen copas ikut ngetik juga.

soal nomor 1 nie :





hasilnya nie nomor 1 :



nah kalo nomor 2 kaya gini nie :



hasilnya




aiikkhhh kali aje nie pengalaman ogut bisa bermanfaat buat orang laen. Ilmu itu untu dibagikan bukan untuk disimpan. :)