程序设计基础88136

《程序设计基础88136》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、重庆市专升本教案（程序部分）文向波66961449程序设计基础一、程序设计中常用的几条指令：1.输入语句：①WAIT语句：µ格式：WAIT<屏幕提示信息>TO<变量名>µ说明：一次只能接收一个字符。②INPUT语句：µ格式：INPUT<屏幕提示信息>TO<变量名>µ说明：©可接收字符型、数值型、日期型、逻辑型数据；©可从输入的变量名中接收数据；©输入相应数据时必须使用定界符；③ACCEPT语句：µ格式：ACCEPT<屏幕提示信息>TO<变量名>µ说明：只接收字符串，而且不能使用定界符；适合用于输入字符串类型的数据。2.输出语句：①?/??语句3.其

2、它语句：①Settalkoff：关闭响应②Clear：清屏幕③Return：结束程序二、程序的基本结构：1．顺序结构：顺序结构程序的执行：按照语句排列先后顺序，一条接一条地执行，它是程序中最基本的结构。2．选择结构：①条件语句：µ语句格式：IF<逻辑表达式>NoYesNo条件满足？条件满足？<语句序列>YesELSE语句组语句组1语句组2<语句序列>ENDIFµ说明：©IF和ENDIF语句必须成对出现；©本语句结构可以嵌套，但不能出现交叉；©为了方便阅读，可按缩进格式书写。第1页共8页重庆市专升本教案（程序部分）文向波66961449µ举例：例1输

3、入三角形的三边，利用海伦公式求该三角形的面积。a+b+c海伦公式：S=p(p−a)(p−b)(p−c)其中p=2SETTALKOFFCLEARINPUT“请输入三角形的第一边：”TOaINPUT“请输入三角形的第二边：”TObINPUT“请输入三角形的第三边：”TOcIFa+b>canda+c>bandb+c>ap=(a+b+c)/2s=SQRT(p*(p-a)*(p-b)*(p-c))?“三角形面积为：”,sELSE?“三角形的三边长度有误，两边之和不大于第三边！”ENDIFRETURN②多分支语句：µ语句格式：Y逻辑表达式语句序列DOCASEN

4、CASE<逻辑表达式1>Y逻辑表达式语句序列<语句序列>N•••CASE<逻辑表达式2><语句序列>......逻辑表达式Y语句序列CASE<逻辑表达式n>NY<语句序列>OTHERWISE语句序列[OTHERWISEN<语句序列n+1>]CASE命令的后续命令ENDCASEµ说明：©不管有几个CASE条件成立，只有最先成立的那个CASE条件对应的命令序列被执行；©如果所有CASE条件都不成立，且没有OTHERWISE子句，则直接跳出本结构；©为了方便阅读，可按缩进格式书写。µ举例：例2试编写一显示当前季节程序。SETTALKOFFCLEARYue

5、=MONTH(DATE())&&获取当前月份DOCASECASEyue>=3andyue<=5&&第一个表达式的值是其余表达式值之一就返回.T.Jj=“春”CASEyue>=6andyue<=8Jj=“夏”CASEyue>=9andyue<=11第2页共8页重庆市专升本教案（程序部分）文向波66961449Jj=“秋”CASEyue=12oryue=1oryue=2Jj=“冬”ENDCASE?“当前季节是：”+jjRETURN⎧2x−1(x<)0⎪3x+50(≤x<)3⎪⎪例题3计算分段函数值:f(x)=⎨x+13(≤x<)5⎪5x−35(≤x<1

6、0)⎪⎪⎩7x+2(x≥10)程序：SETTALKOFFCLEARINPUT"输入X值:"TOxDOCASECASEx<0f=2*x-1CASEx<3f=3*x+5CASEx<5f=x+1CASEx<10f=5*x-3OTHERWISEf=7*f+2ENDCASE?“f=”,fRETURNNo3．循环结构：条件满足？①条件循环：Yesµ语句格式：DOWHILE<逻辑表达式>循环体部分<语句序列>ENDDOµ说明：©如果第一次判断条件时条件为假，则循环体将一次都不会被执行；©如果循环体包含LOOP命令，那么遇到LOOP时，就结束循环体的本次循环，后面

7、的语句将被忽略，程序进入下一次循环；©如果循环体包含EXIT语句，那么遇到EXIT时，就结束整个循环。µ举例：例4编写计算S=1+2+3+…+100的程序SETTALKOFFCLEARs=0i=1第3页共8页重庆市专升本教案（程序部分）文向波66961449DOWHILEi<=100s=s+ii=i+1ENDDO?”s=”,sRETURN②步长循环：µ语句格式：FOR<循环变量>=<初值>TO<终值>[STEP<步长>]<语句序列>ENDFORµ说明：©如果缺省<步长>，其步长为1；©可以在循环体内改变循环变量的值，但这会影响循环体的执行次数；µ举

8、例：例5编写计算S=1+2+3+…+100的程序SETTALKOFFCLEARs=0FORi=1TO100s=s+iNEX