Page 92 - Pemrograman Dasar kelas X
P. 92

88          Pemrograman Dasar SMK Kelas X Sem 2

                     perlu diinputkan oleh operator, sedangkan tunjangan keluarga dihitung sama untuk semua
                     karyawan, sebesar 10% dari gaji pokok. Khusus bagi karyawan dengan masa kerja lebih

                     dari 20 tahun maka total gajinya akan ditambahkan dengan tunjangan pengabdian sebesar
                     500  ribu.  Untuk  itu  persahaan  tersebut  membutuhkan  program  perhitungan  gaji  para
                     karyawannya.

                        Menanya
             Dari hasil pengamatan di atas coba buatlah pertanyaan pertanyaan misal :
                 1.  Bagaimana algoritma kedua permasalahan di atas?

                 2.  Berapa banyak persyaratan pada kedua permasalahn di atas?
                 3.  Manakah persyaratan/kondisi pada kedua algoritma di atas?
                 4.  Bagaiamana membuat struktur percabangan di Bahasa Pascal?


                        Mengumpulkan Informasi/Mencoba

                     Ingat  kembali  algoritma  percabangan  pada  semester  1,  di  mana  dengan  pseudocode,
             struktur percabangan dengan satu kondisi dapat dituliskan
                                          IF (kondisi) THEN

                                                 Pernyataan1
                                                 Pernyataan 2

                                                 dst
             Jika dilihat pada permasalahan di atas, pada kasus 1, setiap pembelanjaan dapat diskon sebesar
             20%  dari  harga  normal.  Namun  jika  total  belanjaan  lebih  dari  200  ribu maka  diskonnya menjadi

             25%, maka hal ini dapat dinyatakan dalam algoritma sebagai berikut.
                     Pertama  tentukan  semua  variabel  terlebih,  dahulu.  Ada  hargaTotalBelanja,  prosentase
             diskon (skala 1-100), besar diskon, dan TotalBayar. Selanjutnya dibuat algoritma berikut.


             Algoritma DiskonBaju
             Variabel hargaNormal, ProsenDiskon,:integer

                       BesarDiskon, hargaAkhir:bilangan real
                 1)  READ TotalBelanja

                 2)  ProsenDiskon=20
                 3)  IF (TotalBelanja>=200000) THEN
                 4)         ProsenDiskon=25

                 5)  BesarDiskon=(ProsenDiskon/100)*TotalBelanja
                 6)  TotalBayar=TotalBelanja-BesarDiskon

                 7)  WRITE TotalBayar
                 8)  END
   87   88   89   90   91   92   93   94   95   96   97