soal dan pembahasan materi pascal

152JURNAL

1. Buatlah program yang dapat menghitung proses penjualan barang. Program berhenti menghitung ketika user menginputkan 'T' atau 't'

Harga satuan = 1500 (input)

Jumlah = 10 (input)

sub Total = 15000 (output)

-------------------------------

Hitung Lagi = Y (input)

((selang 2 baris))

Harga satuan = 1000 (input)

Jumlah = 20 (input)

sub Total = 20000 (output)

-------------------------------

Hitung Lagi = Y (input)

((selang 2 baris))

Harga satuan = 2000 (input)

Jumlah = 5 (input)

sub Total = 10000 (output)

-------------------------------

Hitung Lagi = T (input)

((selang 2 baris))

TOTAL = 45000 (output)

2. Buatlah program yang meminta user menghitung deret dan tampilkan pula deretnya!!!

1 6 3 8 5 10 7............

setiap menekan key apa pun selain enter, maka akan tampil bilangan berikutnya, user dapat keluar dari program jika user menekan enter.

Contoh:

1 6 3 8 5 10 7 12 9 14 11 (output)

(enter)

Jumlah = 86 (output)

Hint : - urutannya ditambah 5 kemudian dikurangi 3, ditambah 5, dikurangi 3, seterusnya

- gunakan readkey

- enter adalah #13

3. Buatlah program yang dapat mengubah bilangan desimal ke bilangan octal. User akan keluar dari program jika memasukkan huruf 'N' atau 'n'.

Contoh:

Desimal : 8 (input)

Octal : 10 (output)

Lagi?(Y/N) Y (input)

Desimal : 5 (input)

Octal : 5 (output)

Lagi?(Y/N) Y (input)

Desimal : 17 (input)

Octal : 21 (output)

Lagi?(Y/N) Y (input)/

Desimal : 152 (input)

Octal : 230 (output)

Lagi?(Y/N) N (input)

(keluar)

hint : - gunakan procedure str yang telah disediakan pascal

- gunakan konsep penjumlahan pada string

4. Buatlah sebuah program yang menerima masukkan string.

Masukkan berhenti apabila user memasukan karakter '.'

Kemudian tampilkan kata dengan string terpanjang dan terpendek.

Bila ada kata dengan panjang sama, kata yang disimpan kata adalah yang terakhir.

contoh 1 :

Input kata 1 : prolab (input)

Input kata 2 : pemrograman (input)

Input kata 3 : pascal (input)

Input kata 4 : institut teknologi telkom (input)

Input kata 5 : . (input)

Kata terpanjang adalah : institut teknologi telkom, dengan 25 karakter (output)

Kata terpendek adalah : pascal, dengan 6 karakter (output)

contoh 2 :

Input kata 1 : . (input)

Tidak ada Kata yang diinputkan... (output)

.: SERING-SERING DISAVE YA... BIAR GAK LOOPING FOREVER :.

.: JIKA LOOPING FOREVER, COBA CTRL + PAUSE | BREAK, SEMOGA MASIH BISA DISELAMATKAN :.