【程序说明】
设成绩库CJK.DBF中,“数学”(数值型字段)这门课程的学分为4,其学分算的方法如下: 数学>=90,学分值为4 80<=数学<90,学分值为3 70<=数学<80,学分值为2 60<=数学<70,学分值为1 数学<60,学分值为0 计算任一学生数学这门课程的学分值。 【程序】 SET TALK OFF USE CJK ACCEPT“输入学号:”TO XH XF=0 (9) DO CASE CASE (10) XH=4 CASE (11) XH=3 CASE (12) XF=2 CASE 数学>=60 XF=1 OTHERWISE XF=0 ENDCASE “学号:”,XH “数学的学分值:”,XF USE RETURN |
【程序说明】程序功能是计算一个整数的各位数字之和。 【程序】 SET TALK OFF INPUT“x=”TO x s=0 DO WHILE x!=0 s=s+ MOD(x,10) (1) (2) S SET TALK ON |
我来回答: