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

ื
ื
14. ถาตอบส่วนแสดงผลตามแนวการตอบหมายเลข 14 หรอตอบนอกเหนอจาก
้
้
้
์
้
์
ี
่
ื
ื
่
์
้
ี
น้แต่ชอตัวแปรสอความหมาย สัญลักษณถูกตองและไดผลลัพธถูกตองตามทโจทยตองการ
่
ให้ 2 คะแนน
้
ื
15. ถาตอบส่วนจบการทางานตามแนวการตอบหมายเลข 15 หรอตอบ
ํ
ื
้
์
ํ
ี
่
ื
้
้
นอกเหนอจากน้แต่ขอความสอความหมายว่าจบการทางานและสัญลักษณถูกตอง ให 1 คะแนน
ื
้
ี
16. ถาตอบนอกเหนอจากน้ไม่ใหคะแนน
้

ิ
ั
ั
็
ั
ี
้
จากวิธการประมวลผลดังกลาว สามารถพฒนาไปเปนอลกอรทึมโดยรหสเทยมได
ี
่
ดังนี้ (55 คะแนน)
แนวการตอบ
1 Calculate_Payment_ Monthly
2 Declare CustCode, CustName, CarBrand String
3 Declare CarPrice, Term, Integer
4 Declare Finance, Monthly, Sum, DownPercent Real
5 Declare DownPrice, AllInterest Real
6 Print heading report
7 Set Sum to 0
8 REPEAT
9 Get CustCode, CustName, CarBrand, CarPrice, DownPercent, Term
10 Compute DownPrice = (CarPrice * (DownPercent /100))
11 Compute AllInterest = (((CarPrice – DownPrice) * 0.04) * Term)
12 Compute Finance = ((CarPrice – DownPrice) + AllInterest)
13 Compute Monthly = (Finance / (Term * 12))
14 Compute Sum = (Sum + Monthly)
15 Print CustCode, CustName, CarBrand, CarPrice, DownPercent,

16 Term, Finance, Monthly
17 Insert new line in output

18 Get Check

19 UNTIL Check = N

20 Print Sum

21 END