计算机公共基础第11章课件.ppt

1、第第11章章 QBASIC的程序结构的程序结构学习目标 u掌握各种数据输入语句u掌握输出语句和TAB()函数的应用u掌握逻辑运算符和关系运算符的应用u掌握条件语句和多分支语句的使用u掌握循环语句的使用1第1页，共42页。第第11章章 QBASIC的程序结构的程序结构教学内容 11.1 顺序结构 11.2 选择结构 11.3 循环结构 本章小结返回总目录2第2页，共42页。11.1 顺序结构顺序结构 赋值语句赋值语句 格式：LET=语句定义符LET可省略“=”被称为赋值号，与等号的概念不同 举例：B=10*A+1将表达式赋给变量 说明：赋值号的左侧只能是一个变量允许 I=1:I=I+1避免溢出(

2、Overflow)错误 例如，将32768赋给一个整型变量返回目录3第3页，共42页。11.1 顺序结构顺序结构 数据输出语句数据输出语句 格式：PRINT 输出项列表输出项列表;|,分号为紧凑格式逗号为标准格式：屏幕上的每一行被分为5个标准输出区，每个输出区可显示14个字符 例：PRINT 1,2,3,4,5,6,7PRINT 北京,上海,PRINT“A”,”B”;”C”输出为：1234567北京上海ABC打印项后有逗号或分号，下一条PRINT语句的打印项将在同一行输出。返回目录4第4页，共42页。11.1 顺序结构顺序结构 数据输出语句数据输出语句 TAB()函数uTAB(n)：将打印项送

3、到当前行的第n列上文本模式下，屏幕一行有80列，可显示80个字符uTAB()函数必须与PRINT语句、分号一起使用例如，PRINT TAB(10);123;TAB(30);ABC;CLS语句u作用：清除输出窗口中的所有信息 （不会清除源程序）u格式：CLS 返回目录5第5页，共42页。11.1 顺序结构顺序结构 数据输入语句数据输入语句 1.键盘输入语句INPUTINPUT;输入提示输入提示;|,在程序运行过程中输入数据，数据不保存在程序中 例：DIM D1%,D2%,Total%INPUT Please input data1:,D1%INPUT Please input data2:,D2

4、%Total%=D1%+D2%PRINT Data1+Data2=;Total%END执行程序：Please input data1:20Please input data2:40Data1+Data2=60返回目录6第6页，共42页。11.1 顺序结构顺序结构 数据输入语句数据输入语句 例：键盘输入水果名称、单价和重量，输出水果名称和应付钱款DIM Item AS STRING*12DIM Weight AS INTEGERDIM Price AS SINGLEINPUT“Input item:,ItemINPUT“Input price:,PriceINPUT“Input weight:,

5、WeightPRINT Item:;ItemPRINT Money:;Weight*PriceEND执行程序：Input item:water melonInput price:1.86Input weight:10Item:water melonMoney:18.6返回目录7第7页，共42页。11.1 顺序结构顺序结构 数据输入语句数据输入语句 2.READ/DATA READ为读数语句：READ DATA为置数语句：DATA 例：DIM A%,B%,C%,D%定义4个整型变量DIM Average!READ A%,B%,C%,D%Average!=(A%+B%+C%+D%)/4PRINT

6、Average=;Average!DATA 10DATA-20,30,-50END返回目录8第8页，共42页。11.1 顺序结构顺序结构 数据输入语句数据输入语句 有关 READ/DATA的说明 READ/DATA语句必须同时出现在程序中DATA语句可放置在程序的任意处 DATA语句提供的数据总数要=READ语句中的变量总数，否则将出现“Out of Data”错误DATA后面只能出现常量，且类型必须与READ中变量的类型相对应分析错误：READ Person$,Age,Salay,BillDATA 23,Peter,1234.56+100 数据类型不一致 DATA中出现了表达式 数据个数比变

7、量个数少1返回目录9第9页，共42页。11.1 顺序结构顺序结构 数据输入语句数据输入语句 例：用READ/DATA语句重写水果销售程序 DIM Item AS STRING*12 DIM Weight AS INTEGER,Price AS SINGLE READ Item,Weight,Price PRINT Item:;Item PRINT Money:;Weight*Price DATA Apple,12,1.2 ENDDIM Item AS STRING*12DIM Weight AS INTEGERDIM Price AS SINGLEINPUT“Input item:,ItemI

8、NPUT“Input price:,PriceINPUT“Input weight:,WeightPRINT Item:;ItemPRINT Money:;Weight*PriceEND返回目录10第10页，共42页。11.1 顺序结构顺序结构 数据输入语句数据输入语句 3.RESTORE语句 u作用：恢复数据区，让数据指针重新指向第一个DATA语句中的第一个数据。u格式：RESTORE例：DIM A%,B%,C%,D%,E%READ A%,B%,C%RESTOREREAD C%,D%,E%PRINT A%;B%;C%;D%;E%DATA 10,20,30运行结果为：10 20 10 20 3

9、0返回目录11第11页，共42页。11.2 选择结构选择结构为何需要“选择结构”？u在实际工作中，往往要根据当时的情况决定下一步操作是什么 例如，要对学生成绩作评价：如果成绩达到或超过60，则输出PassuQB使用IFTHENELSE语句实现选择结构u选择结构又称分支结构 返回目录12第12页，共42页。11.2 选择结构选择结构 关系关系/逻辑表达式逻辑表达式1.关系运算符和关系表达式关系表达式：包含有关系运算符的表达式QB用-1表示成立(真)，0或非-1值表示不成立(假)关系运算符含义数学符号举例=等于=9=9 成立，A=B 不成立大于98 成立，35 不成立=大于或等于8=6 成立，8=

10、8成立小于910成立，98不成立=小于或等于9=9成立，“B”=“A”不成立不等于67成立，“C“C不成立返回目录13第13页，共42页。11.2 选择结构选择结构 关系关系/逻辑表达式逻辑表达式2.逻辑运算符和逻辑表达式运算符操作数A操作数B运算结果AND成立成立成立成立不成立不成立不成立成立不成立不成立不成立不成立OR成立成立成立成立不成立成立不成立成立成立不成立不成立不成立NOT成立不成立不成立成立逻辑表达式：含有逻辑运算符的表达式返回目录14第14页，共42页。11.2 选择结构选择结构 关系关系/逻辑表达式逻辑表达式u逻辑运算符的优先顺序从高到低是：NOTANDOR例如，设A=10，

11、B=20，C=30，则：返回目录A1 AND B10 AND C=30成立A5 AND B=A+2 AND C=A-1不成立NOT(A20 OR B10)成立(A10)AND CA+B不成立A10 AND CA+B成立15第15页，共42页。11.2 选择结构选择结构 关系关系/逻辑表达式逻辑表达式u运算符的优先顺序从高到低依次为：算术运算关系运算逻辑运算赋值运算例，设 A=3，B=4，求 X=2+NOT(A=B AND B2*5第一步：X=2+NOT(0)OR A=B AND B10第二步：X=2+(-1)OR 0 AND(-1)第三步：X=1 OR 0第四步：X=-1返回目录16第16页，

12、共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 1.行条件语句（写在一行）IF THEN ELSE 例：输入两个正整数，输出最大值 DIM A AS INTEGER,B AS INTEGER DIM Max AS INTEGER INPUT A,B=,A,B IF A B THEN Max=A IF A B THEN Max=A ELSE Max=B或IF B A THEN Max=B ELSE Max=A或IF A-B0 THEN Max=A ELSE Max=B17第17页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 例1：输入两

13、个正整数A、B，按从大到小的顺序输出。DIM A AS INTEGER,B AS INTEGERDIM Temp AS INTEGERINPUT A,B=,A,BIF AB THEN PRINT A;B ELSE PRINT B;AEND返回目录交换两个变量值需中间变量18第18页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 例2：降序输出3个数据DIM A%,B%,C%,T%INPUT Enter three Data:,A%,B%,C%PRINT Before Sorting:;A%;B%;C%IF A%B%THEN T%=A%:A%=B%:B%=T%IF

14、A%C%THEN T%=A%:A%=C%:C%=T%IF B%C%THEN T%=B%:B%=C%:C%=T%PRINT After Sorting:;A%;B%;C%END分析：经A与B、A与C的两次比较找出最高分保存在A中 再经B与C的比较找出第二高分保存在B中返回目录19第19页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 2.块条件语句IF THENELSEEND IF 如果条件表达式不成立时无需操作，可省略ELSE子句。返回目录20第20页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 例：市内电话计费程序 3分钟以内按0

15、.2元收费，超出部分按0.1元/分钟 DIM Time AS INTEGER,Bill AS SINGLE INPUT Time:,Time IF Time=3 THEN Bill=0.2 ELSE Bill=0.2+(Time-3)*0.1 END IF PRINT Time=;Time,Bill=;Bill END返回目录同一行上THEN后不能有任何语句(注释除外)21第21页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 3.块条件语句的嵌套形式IF THENELSEIF THENELSEIF THENELSE END IF返回目录22第22页，共42页。1

16、1.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 例：评价学生成绩DIM X AS INTEGER,Grade AS STRINGINPUT Data:,XIF X=90 THEN Grade=ExcellentELSEIF X=80 THEN Grade=GoodELSEIF X=70 THEN Grade=MiddlingELSEIF X=60 THEN Grade=PassedELSE Grade=FailEND IFPRINT Data=;X,Grade=;GradeEND返回目录90100：Excellent8089：Good7079：Middling6069：Pass

17、ed60分以下Fail 23第23页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 4.多分支选择结构SELECT CASE CASE CASE CASE CASE ELSEEND SELECT返回目录24第24页，共42页。11.2 选择结构选择结构 条件语句和分支语句条件语句和分支语句 例：用SELECT-CASE语句评价学生成绩返回目录DIM X AS INTEGERDIM Grade AS STRINGINPUT Data:,XSELECT CASE INT(X/10)CASE 10 Grade=Excellent CASE 9 Grade=Excelle

18、nt“CASE 8 Grade=“Good”CASE 7 Grade=Middling CASE 6 Grade=Passed CASE ELSE Grade=FailEND SELECTPRINT Data=;X,PRINT Grade=;GradeEND0100分数转换成整数01025第25页，共42页。11.2 选择结构选择结构 程序设计举例程序设计举例 例：判断一个3位整数是否为“水仙花数”，即该数的3个数字的立方和等于该数本身，例如153=13+53+33。DIM A AS INTEGER,B AS INTEGER,C AS INTEGERDIM X AS INTEGER,Y AS

19、INTEGERINPUT Data:,X输入一个整数IF X 1000 THEN PRINT No ENDEND IFA=INT(X/100)取出X的百位数B=INT(X/10)-10*A取出X的十位数C=X-100*A-10*B 取出X的个位数Y=A3+B3+C 3 计算三个值的立方和IF X=Y THEN PRINT Yes ELSE PRINT NoEND返回目录如果X不是三位数则输出No,并终止程序26第26页，共42页。11.3 循环结构循环结构为何需要“循环结构”？u重复执行某项操作。例如，求全班50名学生成绩的平均分。u程序必须在某个条件成立时才能循环，而当条件不成立时则终止循环

20、。u常用循环语句有DO WHILELOOP、FOR NEXT以及WHILEWEND返回目录27第27页，共42页。11.3 循环结构循环结构 DO-LOOP循环循环 DO WHILE LOOPu条件表达式成立则执行循环体u执行到LOOP时，判断条件表达式是否仍成立，如果成立则继续执行循环体，不成立则退出循环。u使用EXIT DO语句可从循环体中跳出 u程序出循环后继续执行LOOP下面的语句返回目录28第28页，共42页。11.3 循环结构循环结构 DO-LOOP循环循环 例1：用循环语句实现100个5相加DIM Sum AS INTEGER,I AS INTEGERSum=0:I=1 变量Su

21、m、I置初值DO WHILE I 10000 THEN EXIT DO Sum=Sum+N N=N+1LOOPN=N-1PRINT Sum=;Sum,NEND返回目录条件表达式为-1，表示永远循环，由循环体中的IF语句控制循环何时结束。由于出循环时Sum+N10000，所以，这里N要减去130第30页，共42页。11.3 循环结构循环结构 FORNEXT循环循环 FOR=TOSTEP NEXT FORNEXT语句适用于循环次数已知的场合例：求1+2+3+100DIM Sum AS INTEGER,I AS INTEGERSum=0FOR I=1 TO 100 STEP 1 Sum=Sum+IN

22、EXT IPRINT Sum=;SumEND返回目录STEP 1可省略可改写：FOR I=100 TO 1 STEP-1 Sum=Sum+INEXT I31第31页，共42页。11.3 循环结构循环结构 FORNEXT循环循环 例：DIM I AS INTEGERDIM Sum AS SINGLEDIM FLAG AS INTEGERSum=0:FLAG=1FOR I=2 TO 100 STEP 2 Sum=Sum+FLAG/I FLAG=-FLAGNEXTPRINT Sum=;SumEND返回目录100181614121Sum每循环一次，FLAG乘以-1，改变其正负性32第32页，共42页。

23、11.3 循环结构循环结构 WHILEWEND循环循环 格式：WHILE WEND 作用与DO WHILELOOP完全相同：条件表达式成立时执行循环体，否则执行WEND下面的语句。返回目录33第33页，共42页。11.3 循环结构循环结构 WHILEWEND循环循环 例：有现金1000.00元，假定银行利率为2.5%，多少年后本金可以增加一倍?DIM P AS CURRENCY,Year AS INTEGERDIM I AS SINGLEREM P为本金，I银行利率，Year为年限P=1000:Year=0:I=0.025WHILE P=2000 P=P*(1+I)Year=Year+1WEN

24、DPRINT P=;P;,Year=;YearEND返回目录货币型34第34页，共42页。11.3 循环结构循环结构 双重循环与多重循环双重循环与多重循环双重循环：循环体内使用循环语句。例：返回目录DIM M AS INTEGER,N AS INTEGERFOR M=1 TO 7 M为外循环变量 PRINT TAB(10-M);每行输出的起始位置 FOR N=1 TO 2*M1 N为内循环变量 PRINT*;NEXT N PRINT 本行*输出完毕后换行NEXT MEND外层循环控制图案的行数(共7行)每行输出的起始位置逐行前移内循环的次数控制每行输出的*号的个数：2M-135第35页，共42

25、页。11.3 循环结构循环结构 双重循环与多重循环双重循环与多重循环注意：u内外循环不能交叉，不允许出现下列情况：FOR I=FOR J=NEXT INEXT Ju多重循环是更多循环语句的嵌套u任意一重循环语句可以是FOR NEXT、DO WHILELOOP或WHILE WEND返回目录36第36页，共42页。11.3 循环结构循环结构 双重循环与多重循环双重循环与多重循环多重循环例：输出所有的水仙花数。DIM A AS INTEGER,B AS INTEGER,C AS INTEGERDIM X AS INTEGERFOR A=1 TO 9A为百位数，从1开始 FOR B=0 TO 9B为十

26、位数 FOR C=0 TO 9C为个位数 X=100*A+10*B+C合成一个3位数 IF X=A*A*A+B*B*B+C*C*C THEN PRINT X;END IF NEXT C NEXT BNEXT AEND返回目录水仙花数是一个三位数，其各位数的立方和正好等于该数本身。程序输出：153 370 371 40737第37页，共42页。11.3 循环结构循环结构 循环结构程序举例循环结构程序举例 例1：验证正整数x是否为素数。DIM X AS INTEGER,I AS INTEGERINPUT X=,XFOR I=2 TO X-1 IF X MOD I=0 THEN EXIT FOR X

27、如被整除则出循环NEXT IIF I=X THEN PRINT X;is a prime number.“X是素数ELSE PRINT X;is not a prime number.“X不是素数END IFEND返回目录素数是只能被1和自身所整除的正整数从数学定义出发，让x分别除以2、3、x-1，一旦x被其中某一个数所整除，则x不是素数38第38页，共42页。11.3 循环结构循环结构 循环结构程序举例循环结构程序举例 例2：计算DIM I AS INTEGER,J AS INTEGERDIM e AS DOUBLE,F AS LONG,X AS DOUBLEe=0:I=0:X=1 X为式中

28、当前项的值，第一项为1e=e+XFOR I=1 TO 10 F=1 F保存阶乘的累乘值，其初值必须为1 FOR J=1 TO I F=F*J NEXT J X=1/F:e=e+X NEXT IPRINT e=;eEND返回目录!101!31!21!111e内层循环计算每项中的阶乘值外层循环完成各项的累加39第39页，共42页。本本 章章 小小 结结 1.顺序结构程序设计顺序结构最简单，程序只能从上往下执行。赋值语句的作用是将常量、变量或表达式的值赋给一个变量。INPUT是输入语句，在程序运行时，通过键盘将数据赋给变量。READ语句用DATA语句中的成批数据给一组变量赋值，RESTORE语句将数

29、据指针重新指向第一个数据PRINT是输出语句，输出常量、变量或表达式的值；分号和逗号起控制打印项间距的作用；对打印项位置更加精密的控制是使用TAB()函数。返回目录40第40页，共42页。本本 章章 小小 结结 2.选择结构程序设计选择结构根据条件表达式的值决定哪些语句执行，哪些语句跳过。逻辑运算符优先级顺序从高到低依次为NOT、AND和OR。QB的选择结构有行IF语句和块IF语句，不同之处在于后者是由IFTHENELSEENDIF组成的竖式结构，在条件成立或不成立时可以容纳更多的语句；IF语句可以嵌套。SELECT-CASE语句被称为多分支语句，根据表达式的值提供了多个出口。返回目录41第41页，共42页。本本 章章 小小 结结 3.循环结构程序设计循环结构用于重复执行某些语句。FOR NEXT循环用于循环次数已知的场合，DO WHILELOOP语句可用于循环次数未知的场合。EXIT FOR用于跳出FORNEXT循环；EXIT DO用于跳出DO WHILELOOP循环。双重循环与多重循环要注意的问题是出循环的顺序不能交叉。返回目录42第42页，共42页。