Page 345 - เตรียมสอบครูผู้ช่วยคอมพิวเตอร์_compressed
P. 345

้
                                                             ี
                                                                 ้
                                                       ื
                                     16.  ถาตอบนอกเหนอจากน้ไม่ใหคะแนน


                                                        ่
                                                                     ั
                                                                                      ิ
                                                                                                         ้
                                                                                                    ี
                                    ี
                                                                                                ั
                                                                              ็
                              จากวิธการประมวลผลดังกลาว สามารถพฒนาไปเปนอลกอรทึมโดยรหสเทยมได
                                                                                 ั
                       ดังนี้ (75 คะแนน)
                       แนวการตอบ
                       1      Calculate_Employee_Income
                       2          Declare EmpCode, EmpName String
                       3          Declare EmpSalary, OTHour, Count Integer
                       4          Declare OT, Total, Tax, NetEmpSalary, SumTax, SumNetEmpSalary Real

                       5          Display heading report

                       6          Set NetEmpSalary, SumTax, SumNetEmpSalary to 0

                       7          FOR Count = 1 TO 30
                       8               Get EmpCode, EmpName, EmpSalary, OTHour

                       9               Compute OT = (OTHour * (((EmpSalary / 30) / 8) * 1.5))

                       10              Compute Total = (EmpSalary + OT)

                       11              IF Total < 10001 THEN

                       12                  Tax = (Total * 0.03)
                       13              ELSE IF Total < 20001 THEN

                       14                  Tax = (((Total -10000) * 0.04) + 300)

                       15              ELSE IF Total < 30001 THEN

                       16                  Tax = (((Total -20000) * 0.05) + 700)
                       17              ELSE IF Total < 40001 THEN

                       18                  Tax = (((Total -30000) * 0.06) + 1200)

                       19              ELSE

                       20                  Tax = (((Total -40000) * 0.07) + 1800)
                       21              Compute SumTax = (SumTax + Tax)

                       22              Compute NetEmpSalary = (Total – Tax)

                       23              Compute SumNetEmpSalary = (SumNetEmpSalary + NetEmpSalary)

                       24              Display EmpCode,EmpName,EmpSalary,OT,Total,Tax,NetEmpSalary

                       25              Insert new line in output
   340   341   342   343   344   345   346   347   348   349   350