1、第八章实验 1 程序设计基础 分支结构实验目的：1.掌握程序文件的建立、编辑、调试、运行方法；2.掌握分支结构(IFENDIF, DO CASE ENDCASE)使用方法。实验内容与步骤：（验证性实验）新建程序文件的方法：点击菜单 文件 新建，文件类型选取“程序”，再点击 “文件” 按钮将打开程序窗口。在程序窗口输入程序内容，输完后保存运行（可直接点击工具栏中的运行按钮（!）运行当前窗口中的程序）。点击工具栏中的“新建”按钮新建程序在命令窗口输入命令新建程序：MODIFY COMMAND 做完一个程序后关闭此程序窗口，再新建或打开另外一个程序。1.随意输入两个数，输出其中大的那个数。CLEAR
2、SET TALK OFFINPUT “ 请输入第 1 个数:“ TO nNumber1INPUT “ 请输入第 2 个数:“ TO nNumber2IF nNumber1=90?“ A“CASE nScore=80?“ B“CASE nScore=70?“ C“CASE nScore=60?“ D“OTHERWISE?“ E“ENDCASERETURN3.工资税计算：从键盘输入一个人的工资，计算其应交税金。计算方法如下：工资5000nShuiJin=(nGongZi-5000)*0.2+(5000-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5ELSEIF
3、 nGongZi3500nShuiJin =( nGongZi-3500)*0.15+(3500-2000)*0.1+(2000-1000)*0.5ELSEIF nGongZi2000nShuiJin =( nGongZi-2000)*0.1+(2000-1000)*0.5ELSEIF nGongZi1000nShuiJin =( nGongZi -1000)*0.05ELSEnShuiJin =0 ENDIFENDIFENDIFENDIF?“?“ 税金为：“+STR(nShuiJin,8,2)RETURN.用 DO CASEENDCASE 编程CLEARSET TALK OFFINPUT “
4、 请输入工资：“ TO nGongZiDO CASECASE nGongZi2 Y=(X-2)*1.0+3 ENDIF ? “应付费：”,Y, “元” SET TALK ON RETURN实验 2 程序设计基础 循环结构实验目的：1.掌握程序文件的建立、编辑、调试、运行方法；2.掌握循环结构(FOR ENDFOR, DO WHILE ENDDO)使用方法。实验内容与步骤：(验证性实验)1.输出九九乘法口决。CLEARSET TALK OFFFOR nCount1=0 TO 9FOR nCount2=1 TO nCount1?STR(nCount1,3)+“*“+STR(nCount2,1)+“
5、=“+STR(nCount1*nCount2,2)ENDFOR?“ENDFORRETURN2.试编一程序，计算 Y = 1 + 3 + 5 + 7 + + n，其中 n 为正奇数，可任意输入。clears=0input “n=“ to nfor i=1 to n step 2s=s+iendfor?“y=1+3+5+7+n=“,s3.猴子吃桃：猴子摘了 N 个桃子，第一天吃了一半后又多吃了一个，以后天天如此，到第 10 天时只剩一个桃子了，求 N 是多少。用 FOR ENDFOR 做：CLEARSET TALK OFFnSum=1FOR nCount=9 TO 1 STEP1nSum=(nSu
6、m+1)*2ENDFOR? “ N=“+STR(nSum)RETURN用 DO WHILE ENDDO 做：CLEARSET TALK OFFnSum=1nCount=9DO WHILE nCount=1nSum=(nSum+1)*2nCount=nCount-1ENDDO? “ N=“+STR(nSum)RETURN4.例：编程打印此图案 * * * * * 解法 1 SET TALK OFF FOR X=1 TO 5 ？SPACE（15-X） FOR Y=1 TO 2*X-1 ？ “X” ENDFOR ENDFOR SET TALK ON RETURN注意：1FOR ENDFOR 循环能自动改变循环变量值，而 DO WHILE ENDDO循环不能。2FOR ENDFOR 循环比 DO WHILE ENDDO 循环执行速度快。
