程序设计基课件

1、 真 条 件 式 假 语 句 序 列2 语 句 序 列1 ENDIF后 面 语 句 例：输入两个实数，求它们的最大值。set talk offclearinput “实数a=” to ainput “实数b=” to bif a=b max=aelse max=bendif? a,”与”,b,”中的最大值为：”,maxreturn也可以用单分支的选择语句来实现set talk offclearinput “实数a=” to ainput “实数b=” to bmax=aif ba max=bendif? a,”与”,b,”中的最大值为：”,maxreturn例：输入一个大于例：输入一个大于0的

2、年份值，判断该一年份是否的年份值，判断该一年份是否是闰年，如果是闰年，就输出是闰年，如果是闰年，就输出“xxxx年是闰年年是闰年”，否则输出否则输出“xxxx年不是闰年年不是闰年”。.闰年的条件是：能被闰年的条件是：能被4整除但不能被整除但不能被100整除，或整除，或能被能被100整除且能被整除且能被400整除。整除。 真 条件式 2 语句序列 1 ENDCASE 后面语句 条件式 n-1 Otherwise 条件式 1 真 语句序列 2 真 语句序列 n-1 有 语句序列 n 无 【例】假设收入（P）与税率（R）的关系如下表，编程求税金。程序文件名为TAX.PRG。 0 ， P800R= 0

3、.05 ， 800 P2000 0.08 ， 2000P5000 0.1 ， P5000SET TALK OFFCLEARINPUT “请输入收入：” TO PDO CASE CASE P800 R=0 CASE P2000 R=0.05 CASE P=b,a,b)? a,”与”,b,”中的最大值为：”,maxreturn例：用IIF( )来实现P.163 例6-7。文件名exam_if_1.prgset talk offclearinput “实数x=” to xy=iif(x0,iif(x10,x*x+1,3*x*x-2*x+1),x*x+4*x-1)? “分段函数值为：”+str(y,1

4、0,2)set talk onreturn E N D D O 后 面 的 语 句 条 件 表 达 式 式 真 循 环 体 假 说明：说明：1. 什么是完全平方数？什么是完全平方数？ 一个数如果是另一个整数的完全平方，那么我们一个数如果是另一个整数的完全平方，那么我们就称这个数为完全平方数，也叫做平方数。例如：就称这个数为完全平方数，也叫做平方数。例如：0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,4002. 什么是完全立方数？什么是完全立方数？一个数如果是另一个整数的完全立方，那么我们就称一个数如果是另一个

5、整数的完全立方，那么我们就称这个数为完全立方数，也叫做立方数。例如：这个数为完全立方数，也叫做立方数。例如：1，8等等 多重循环即循环的嵌套多重循环即循环的嵌套，是指在一个循环结构的，是指在一个循环结构的循环体中又包含另一个循环。循环体中又包含另一个循环。 外循环外循环我们称外层循环为我们称外层循环为外循环外循环 内循环内循环被包含的循环为被包含的循环为内循环内循环。 嵌套层数一般没有限制，但内循环的循环体必须嵌套层数一般没有限制，但内循环的循环体必须完全包含在外循环的循环体中，不能相互交叉。完全包含在外循环的循环体中，不能相互交叉。下面是一个DO WHILEENDDO循环嵌套的一般形式：DO WHILE DO WHILE ENDDO ENDDO 下面是一个DO WHILEENDDO循环嵌套一个FOR 循环的一般形式：DO WHILE FOR = TO STEP ENDFOR|NEXT ENDDO 下面是一个FOR循环嵌套另一个FOR循环的一般形式：FOR = TO STEP FOR = TO STEP ENDFOR|NEXT ENDFOR