1、1题目：编写函数，根据上网时间计算上网费用，计算费用的方法如下：上网时间在 10 小时以内（含 10小时） ，费用是 50 元；上网时间为 11 到 30 小时（含30 小时） ，费用是 4 元/小时； 上网时间超过 30 小时，费用是3 元/小时。 将费用存放在变量 Y 中。 SET TALK OFFSET LOGERRORS ONCLEARINPUT “请输入上网时间：“ TO XY = FUN(X)? “Y=“,YYZJ()SET TALK ONRETURNFUNCTION FUN(X)*PROGRAM*Do caseCase x10 and x30Y=3xendcase* END *R
2、ETURN YFUNCTION YZJ()USE INLOCAT FOR TIHAO=1IF FOUND()O=FUN(N1)O1=FUN(N2)O2=FUN(N3)DO YZJ1 WITH O,O1,O2ELSE?“试题输入文件已损坏，请重新配置考试环境“ENDIFRETURN2题目：编写函数，从键盘输入 1 个字符串，统计其中含有字母“a“的个数。把这个数放入变量 Y 中。例如：输入“abcaea”，结果为 3。-SET TALK OFFSET LOGERRORS ONCLEARACCEPT “请输入一个字符串：“ TO XY = FUN(X)? “Y=“,YYZJ()SET TALK O
3、NRETURNFUNCTION FUN(X)*PROGRAM*y=0for i=1 to len(X)if “a“=substr(X,i,1) y=y+1endifendfor* END *RETURN YFUNCTION YZJ()USE INLOCAT FOR TIHAO=1IF FOUND()O=FUN(N1)DO YZJ1 WITH OELSE?“试题输入文件已损坏，请重新配置考试环境“ENDIFRETURN3题目：在屏幕上纵向输出“计算机等级考试“。 （要求用循环语句实现） 并将第五行的字符输出到给定变量中请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOG
4、ERRORS ONY=“*Program*S=“计算机等级考试“i=1do while i0O=A*A*3.14ELSEO=-1ENDIFOUT=O* End *RETURN OUTFUNCTION YZJ()USE INLOCA FOR TIHAO=11IF FOUND()O=FUN(N1)DO YZJ11 WITH OELSE?“试题输入文件已损坏，请重新配置考试环境“ENDIFRETURN8题目：利用循环程序输出图形：* * * * 并将第 3 行输出并存入变量 S中请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONS=“*Program*F
5、OR N=1 TO 5?IF N=1 OR N=5FOR M=1 TO 7? “*“ENDFORELSEFOR M=1 TO 5-N? “*“ENDFOR? SPACE(2*N-3)FOR M=1 TO 5-N? “*“ENDFORENDIF ENDFOR S=“* *“* End *DO YZJ14 WITH SSET TALK ON9题目：利用循环程序输出图形：4333222221111111并将最后一行存入变量 S 中请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONS=“*Program*FOR N=1 TO 4? SPACE(4-N)FO
6、R M=1 TO 2*N-1? STR(4-N+1,1)ENDFORENDFORS=“1111111“* End *DO YZJ15 WITH SSET TALK ON10题目：从键盘输入一个汉字字符串，将它逆向输出。存入变量 S 中如：输入“计算机考试“输出如下：试考机算计请应用循环语句，按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONS=“A=“计算机考试“?FUN(A)YZJ()RETURNFUNCTIO FUN(S)Y=“*Program*FOR N=1 TO LEN(S)-1 STEP 2Y=Y+SUBS(S,LEN(S)-N,2)END
7、FOR* End *RETURN YFUNCTI YZJ()S=“我是中国人“Y=FUN(S)DO YZJ16 WITH YSET TALK ONRETURN11题目：用循环程序求出115 之间能被 3 整除的整数的阶乘和将结果输出并存入变量 OUT 中。请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONOUT=-1*Program*N=1T=1FOR N=1 TO 15 T=T*NIF N%3=0OUT=OUT+TENDIFENDFOR ? OUT* End *SET TALK ONDO YZJ17 WITH OUTRETURN12题目：从键盘输
8、入一个整数，输出所有能整除该数，并且本身也能被 3 整除的数的和。 （例如：输入 6，则输出 3，6）结果存于变量 x 中。请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONY=-1INPUT TO N?FUN(N)YZJ()SET TALK ONRETURNFUNCTI FUN(A)X=0*Program*FOR N=1 TO AIF A%N=0.AND.N%3=0? Nx=x+NENDIFENDFOR * End *RETURN XFUNC YZJ()DO YZJ18 WITH FUN(18)RETURN13题目：判断整数是否为质数 (只能被
9、1 和本身整除的数) 。是质数则函数返回 1，否则函数返回 0请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONO=-1?FUN(79)YZJ()SET TALK ONRETURNFUNCTION FUN(N)OUT=-1*Program*O=1j=2do while j0 j=j+1loopelseO=1exitendifenddoOUT=O* End *RETURN OUTFUNCTIO YZJ()USE INLOCA FOR TIHAO=21IF FOUND()O=FUN(N1)DO YZJ21 WITH OELSE?“试题输入文件已损坏，请
10、重新配置考试环境“ENDIFRETURN14题目：把输入一个三位数，各个数位按个、十、百位顺序拆开别输出存入变量中，用加号分隔。(使用循环语句)如输入 345 分开后为 3+4+5请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ON?FUN(345)YZJ()RETURNFUNC FUN(N)S=“*Program*do while n0a=n%10S=“+“+STR(INT(A),1)+Sn= n-an=n/10enddoS=SUBS(S,2,LEN(S)* End *RETURN SSET TALK ONFUNC YZJ()DO YZJ22 WI
11、TH FUN(785)RETURN15题目：计算并在屏幕上显示乘法表。显示格式如下：11= 112= 2 22= 413= 3 23= 6 33=9将各部分的结果相加（1+2+4+3+6+9+）存入变量 Z 中请按照题目要求，在下面编写程序代码。 -SET TALK OFFSET LOGERRORS ONCLEARZ=0*Program*X=1?DO WHILE XAMA=BENDIFIF BAMA=CENDIFIF C=1 and x=120REPL 奖学金 WITH 奖学金+30CASE 计算机+ 英语=100REPL 奖学金 WITH 奖学金+20OTHEREPL 奖学金 WITH 奖学
12、金+10ENDCASESKIPENDDO* END *USESET TALK ONRETURN27题目：统计STUDENT.DBF 数据表中法律系和中文系两个系的总人数和奖学金总额。表结构如下：学号(C,4)，姓名(C,6)，出生日期(D,8)，英语(N,3)，计算机(N,3)，系别(C,10)，奖学金(N,3)，并将总人数存入变量 R 中,奖学金总额存入 S 中。 （用循环语句完成）-SET TALK OFFSET LOGERRORS ONCLEARUSE STUDENTSTORE 0 TO R,S*PROGRAM*DO WHILE !EOF()IF 系别 =“法律系“ OR 系别=“中文系
13、“R=R+1S=S+奖学金ENDIFSKIPENDDO* END *?S,RDO YZJ1 WITH S,RUSESET TALK ON 28题目：根据姓名查询RSDL.DBF 数据表中的职工情况，如果有则显示该职工的工资和职称，并将该职工的工资存放变量 PAY 中;否则显示“查无此人” 。表结构如下：姓名(C,6)，工资(N,8,2)，职称(C,10)-SET TALK OFFSET LOGERRORS ONCLEARUSE RSDLXM=“李新“PAY = 0LOCA FOR 姓名=XM*PROGRAM*IF FOUND()DISP 工资,职称PAY = 工资ELSE? “查无此人！“ENDIF* END *USEDO YZJ1 WITH PAYSET TALK ON RETURN29题目：编程函数 FUN(A)完成：从键盘输入任意一个数 X时，求其相应的 Y 值。|- 1 X0Y=-|- 0 X=0|- -1 X0Y=1CASE X=0Y=0CASE X0Y=-1ENDCASE* END *RETURN YFUNCTION YZJ()USE INLOCAT FOR TIHAO=1IF FOUND()O=FUN(N1)DO YZJ1 WITH OELSE?“试题输入文件已损坏，请重新配置考试环境“ENDIFRETURN
