Soal Pascal 1

1. Buatlah :

Program Menghitung Luas dan Keliling Lingkaran ,
Luas = PI * Jari * Jari
Keliling = 2 * PI * Jari

Bentuk Outputnya :

Masukan Jari - Jari Lingkaran (Cm) : …….
Luas Lingkaran Tersebut : …….
Kelilingnya Adalah : ……..


2. Perusahaan Di Kota “Z” memepunyai Tarif Rp100 per pulsa.Setiap Langganan dikenakan biaya langganan Sebesar Rp 3000 perbulan. Jumlah pulsa =235. Buatlah program untuk menghitung tagihan langganan.

Bentuk Outputnya :

Masukan Jumlah Pulsa : ………..
Jumlah Tagihan Yang Harus Dibayar : Rp…..


3. Perusahaan Di Kota ” Z ” memepunyai Tarif Rp100 per pulsa.Setiap Langganan dikenakan biaya langganan Sebesar Rp 3000 perbulan. Jumlah pulsa = 235. Buatlah program untuk menghitung tagihan langganan.

Bentuk Outputnya :

Nomer Langganan :………….
Nama Langganan :…………
Alamat :…………..

Perincian Tagihan :
———————–

Biaya Berlangganan : Rp…………
Biaya Pulsa……….xRp.100 : Rp…………
————————————————–
Total Tagihan : Rp…..

4. Gaji pegawai PT. Mundur Maju dihitung berdasarkan beberapa hal, diantaranya :
- Gaji Pokok
- Tunjangan
- Upah Lembur
Tunjangan pegawai adalah 15 % dari gaji pokok upah lembur perjam adalah 1,5 % dari Gaji Pokok,Buatlah Program Untuk Menghitung gaji yang diterima Pegawai.

Masukan : Nama,Nip,gaji pokok dan jam lembur.

Bentuk Outputnya :

Perincian Gaji Pegawai
—————————-

Gaji Pokok : Rp…………
Tunjangan : Rp…………
Upah Lembur : Rp…………
————————————————–
Gaji Total : Rp…..

5. Peruahaan taxi Sepanjang Jalan Kenangan mempunyai peraturan sbb, tarif kilometer pertama Rp. 1500.kilometer Berikutnya adalah Rp.350

- Km = 0.5 , Bayar = Rp.1500
- Km = 5 , Bayar = 1500 + ( 5 * 350)= Rp.3250

Buatlah Program yang akan menghitung pembayaran penumpang

Masukan : Jarak yang ditempuh
Keluaran : Jumlah pembayaran

6. Sebuah LPK ternama di Purwokerto, mengadakan test Program komputer yang akan diadakan tiga kali test (terdiri dari program Basic , Pascal , Bahasa C ). Test ini didakan untuk menentukan Gride dan besarnya biaya Kursus Bila Siswea tersebut ingin melanjutkan ke tingkat yang lebih tinggi. Ketentuan Nilai :

Nilai Grade Besar Biaya
91 - 100 A 50000
76 - 90 B 150000
60 - 75 C 250000
40 - 59 D 350000
01 - 39 E 450000
0 0 550000

Masukan : Nilai dari ketiga test tersebut, Proses rata-ratanya menjadi nilai akhir

Keluaran : Grade dan Jumlah Bayarnya

Keterangan : Gunakan Fungsi IF