1、第六章 程序设计编程题1. 求园的面积（要求判断半径是否合理）CleaInpu r= to rIf r0S=3.14*r*r?sElse?半径错误！Endif2. 求分段函数 Y 的值CleaInpu x= to xIf x0Y=2*x+5ElseIf x=0Y=xElseY=abs(x)EndifEndif?y3. 输入一个百分制成绩判断其等级（优/良/中/及格/ 不及格）CleaInpu cj= to cjDo caseCase cj=90?优 Case cj=80?良 Case cj=70?中 Case cj=60?及格Orth?不及格Endcase4. 输入若干个（个数不定）百分制成绩
2、判断其等级（优/良/ 中/及格/ 不及格）CleaInpu 请输入处理几个人的成绩： to nFor i=1 to nInpu cj= to cjDo caseCase cj=90?优 Case cj=80?良 Case cj=70?中 Case cj=60?及格Orth?不及格Endcaseendfor5. 求 S1+2+3. . . . . .+100Y=2x5 x0x x=0| x | x=650 .and. 贷款否=.t.Repl 贷款否 with .f.EndscanUse12. 输出图形CleaFor i=1 to 4For j=1 to i?*Endfor?EndforCleaF
3、or i=1 to 4For j=1 to 4-i? FROM 职工表 a,部门表 b,工资表 c;WHERE b.部门编号 =a.部门编号 AND a.职工编号=c.职工编号 AND;a.部门编号=01【上机题七】 使用嵌套查询，输出基本工资大于 1000 的职工的编号、姓名、职称字段的值。【上机步骤】 本题的知识点是嵌套查询操作。 在命令窗口中执行如下命令： SELECT 职工编号,姓名,职称 FROM 职工表;WHERE 职工编号 IN(SELECT 职工编号 FROM 工资表 WHERE 基本工资1000)【上机题三】 编写一个顺序结构程序，计算方程：a*x*x+b*x+c=0 的两个
4、根（不考虑虚根的情况，即注意使输入的a，b，c 值满足 b*b-4*a*c=0 的情况）【上机步骤】 本题考查的知识点是顺序结构程序文件的分析设计、编码与运行,程序如下：SET TALK OFFCLEARSET TALK OFFINPUT 请输入 a：TO aINPUT 请输入 b：TO bINPUT 请输入 c：TO cda=SQRT(b*b-4*a*c)x1=(-b+da)/(2*a)x2=(-b-da)(2*a)?x1?x2SET TALK ON RETURN编写一个程序，要求输入三个数，对这三个数按从小到大的顺序输出。 【上机步骤】 本题的知识点是单分支结构程序文件的设计方法，程序代码
5、如下： CLEARSET TALK OFINPUT 请输入 a：TO aINPUT 请输入 b：TO bINPUT 请输入 c：TO cIF abt=aa=bb=tENDIFIF act=aa=cc=tENDIFIF bct=bb=cc=tENDIF?三个数从小到大依次为：， a,b,cSET TALK ON RETURN实验六 循环结构程序设计一、实验目的 1. 掌握循环语句的应用。2. 熟练掌握循环程序设计的基本方法。3. 掌握程序设计调试的方法与技巧，能对操作过程中的程序所出现的错误进行处理。二、实验内容及上机步骤 【上机题一】 编写程序，要求程序计算出 500 以内的所有素数之和并输出
6、结果。【上机步骤】 本题的知识点是 FOR 循环语句的嵌套使用，程序代码如下：SET TALK OFFCLEARsum1=0FOR i=2 TO 500Prime=.T.FOR j=2 TO i1IF MOD(i，j)=0Prime=.F.EXITENDIFENDFORIF primesum1=sum1iENDIFENDFOR?”500 以内素数之和为：”,sum1RETU【上机题二】 编写程序，程序功能为：求指定自然数的阶乘。 【上机步骤】 本题的知识点是循环结构程序设计方法，程序代码如下： CLEARINPUT 输入一个自然数 TO nfac 1FOR i 1 TO nfac fac*iENDFOR? n,的阶乘是：,facRETURN
