Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- READ n$, m1, m2, m3
- WHILE n$ <> "END"
- m4 = (m1 + m2 + m3) / 3
- t1 = t1 + m1
- t2 = t2 + m2
- t3 = t3 + m3
- IF m4 >= 50 THEN
- s$ = "PASS"
- ELSE IF m4 < 50
- s$ = "FAIL"
- ELSE IF m4<=70
- s$="CREDIT"
- END IF
- PRINT n$, m4, s$
- READ n$, m1, m2, m3
- WEND
- PRINT "Math", "English", "angla"
- PRINT t1 / 3, t2 / 3, t3
- END
- DATA "NADER",60,40,47
- DATA "AMIRAH",70,50,60
- DATA "ASEA",80,73,60
- DATA "END",-1,-1,-1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement