標題:
Pascal 一問-----write program(20點)
發問:
Write a program to follow the grading table below to output final grade of a student.Mark----------------------Grade100-90----------------------A89-80-----------------------B79-70-----------------------C69-60---------------------- D59-50----------------------... 顯示更多 Write a program to follow the grading table below to output final grade of a student. Mark----------------------Grade 100-90----------------------A 89-80-----------------------B 79-70-----------------------C 69-60---------------------- D 59-50---------------------- E 49-30-----------------------F 29-0------------------------U Sample: (1) Enter mark: 65 Your grade is D. (2) Enter mark: 110 Please enter mark between 0-100 (3) Enter mark: -5 Please enter mark between 0-100 (4) Enter mark:100 Your grade is A. 更新: 唔好打中文 plz~~~~~~~~~~~~~~~ 更新 2: 點解run 唔到
此文章來自奇摩知識+如有不便請留言告知
最佳解答:
program mark_report; Var mark: integer; BEGIN write ('Enter mark'); readln(mark); while not ((mark>=0) and not (mark=0) and (mark=90) and (mark=80) and (mark=70) and (mark=60) and (mark=50) and (mark=30) and (mark=0) and (mark
其他解答:
Actually,we should use repeat loop and if..then... to deal it. here i tell you how to do it , after this ,there is finished work at last paragraph (1) 100 then writeln('Plese enter mark between 0-100'); next, again i used if..then.. loop : if (mark>=0) and (mark= it means larger than or equal to write('Your grade is '); and =90) and (mark=80) and (mark=70) and (mark=60) and (mark=50) and (mark=30) and (mark=0) and (mark=0) and (mark100 then writeln('Plese enter mark between 0-100'); if (mark>=0) and (mark=90) and (mark=80) and (mark=70) and (mark=60) and (mark=50) and (mark=30) and (mark=0) and (mark=0) and (mark=0) and not (mak=0) and (mak=lower mak) and (
留言列表
