《程序设计上机练习》由会员分享，可在线阅读，更多相关《程序设计上机练习（73页珍藏版）》请在金锄头文库上搜索。
1、程序设计补充知识,字符串比较的规律：同规格的字母比较，按字母的顺序排列,后面的大；大小写字母比较，大写字母大于小写字母；数字字符比较，按数值的大小排列，数值大的大； 字母与数字比较，数字（09）均小于字母；空格比数字、标点、字母等常见符号都小。,程序设计例题,例1 某储户在取款机上提取x元现金，计算钞票总张数最少（假设x只能为50的整数倍）。 CLEAR INPUT 请输入取款金额： TO x Y1=INT( x/100 ) x= x-100*y1 Y2=INT( x/50 ) ? 100元钞票的张数： ,Y1 ? 50元钞票的张数： ,Y2,例2 设A = 10，B = 20，将它们的值互换
2、后输出。问题分析：交换两个变量的值需要借助第三个变量，例如建立一个临时变量T, 根据分析，写出程序如下： A = 10 B = 20 T = A A = B B = T ? A=,A ? B=,B CANCEL,程序设计例题,例3 问题的提出： 例如:铁路托运行李，从甲地到乙地，按规定每张客票托运行李不超过50公斤时，每公斤0.45元，如超过50公斤，超过部分按每公斤0.65元计算。,刚才提出的问题，铁路托运行李，从甲地到乙地，按规定每张客票托运行李不超过50公斤时，每公斤0.45元，如超过50公斤，超过部分按每公斤0.65元计算。我们可以编写如下程序加以实现：INPUT 请输入行李重量： T
3、O XIF X=50 P=0.45*50 + 0.65*(X-50)ELSE P=0.45*X ENDIF? 应付运费为：,P,元CANCEL,程序设计例题,例4 输入一个四位正整数，如果百位为6且可被3整除，输出该数 input 请输入四位正整数 to abcif substr(str(abc,4),2,1)=6 and mod(abc,3)=0 ?该数符合要求,abcendif,例5 判断输入的字符是属于字母、数字或特殊符号（字母、数字之外的符号） 编写代码如下： SET TALK OFF ACCEPT 请输入一个字符： TO cVar DO CASE CASE UPPER（cVar）=A
4、 ? cVar ,输入的是字母 CASE cVar=0 ?cVar,输入的是数字 OTHERWISE ?cVar,输入的是特殊符号 ENDCASE SET TALK ON,程序设计例题,例6 编写一个程序，使之能对输入的一个学生任意一门考试成绩输出是优秀、良好、中等、及格或不及格五个等级。具体要求：90100为优秀、8089为良好、7079为中等、6069为及格、059为不及格。,INPUT 请输入一个成绩（0100）： TO X DO CASE CASE X100 .OR. X=90 ? 优秀 CASE X=80 ? 良好 CASE X=70 ? 中等 CASE X=60 ? 及格 OTHE
5、RWISE ?不及格 ENDCASE CANCEL,例7 求 1 + 2 + 3 + + 99 + 100,问题分析：可以采用累加的方法，用循环变量x 来产生1、2、3、 99、100的数；用累加变量s保存累加和，从1 开始，每次增加1 ，送到累加变量s 中。,程序如下： CLEAR s = 0 x = 1 DO WHILE xB X=AELSE X=BENDIF? X,例9 从键盘输入10任意数，并将10个数按从小到大的顺序输出。CLEARDIMENSION X(10)FOR I=1 TO 10X(I)=0II=STR(I,2)Input 请输入第+II+个数据 to x(I)ENDFOR,
6、FOR I=1 TO 10FOR J=I+1 TO 10IF X(I)X(J)T=X(I)X(I)=X(J)X(J)=TENDIFENDFORENDFORFOR I=1 TO 10? X(I)ENDFOR,例10 计算并输出1100中整数的平方根，要求每屏20个数。CLEARNum=1DO WHILE Num100WAIT 继续吗（Y/N）? TO Anser WINDOWSIF UPPER(Anser)=NENDIFENDIFNum=Num+1ENDDO,例11 计算1-100之间所有奇数之和。CLEARs=0FOR x=1 TO 100 STEP 2s=s+xENDFOR? 1-100之间
7、所有奇数之和为： ，s,例12 编写程序显示学生基本信息中入学成绩在570分以上的学生人数。 STORE 0 TO X USE 学生 SCAN IF 入学成绩=570 X=X+1 ENDIF ENDSCAN ? X,例13 求 1！*3！*9！的值，要求使用DO while结构。m=1s=1do while m=9I=1p=1do while I=Mp=p*II=I+1enddos=s*pm=m*3enddo?1！*3！*9！=,s,例14 设计在学生中查找学号的程序，直到输入“#”停止use 学生accept 请输入要查找的学号 to xh do while xh!=#locate for
8、学号=xhif found()?学号,姓名else ?无此学号endifaccept 请继续输入要查找的学号 to xh enddo?谢谢使用此系统use,程序设计例题,例15 求020之间奇数之和、偶数之积。 STORE 0 TO N ,X STORE 1 TO Y DO WHILE N550 dispDo while not eof()ContinueDispEnddo,例17 求 1 + 2！+ 3！+ 4！+ + 20！,问题分析： 该题用循环嵌套（双重循环）来实现。 内循环求每个阶乘，外循环对每个阶乘进行累加。 程序如下： Clear S=0 N=1 Do while N=20 T=
9、1 I=1,程序设计例题,Do while IB X=AELSE X=BENDIF? X,程序设计例题,例24 从键盘输入10任意数，并将10个数按从小到大的顺序输出。CLEARDIMENSION X(10)FOR I=1 TO 10X(I)=0II=STR(I,2)Input 请输入第+II+个数据 to x(I)ENDFOR,程序设计例题,FOR I=1 TO 10FOR J=I+1 TO 10IF X(I)X(J)T=X(I)X(I)=X(J)X(J)=TENDIFENDFORENDFORFOR I=1 TO 10? X(I)ENDFOR,例25 计算并输出1100中整数的平方根，要求每屏20个数。 编写程序如下： SET TALK OFF CLEAR Num=1DO WHILE Num100 WAIT 继续吗（Y/N）? TO Anser WINDOWS IF UPPER(Anser)=N ENDIF ENDIF Num=Num+1ENDDOSET TALK ON,程序设计例题,例26 计算1-100之间所有奇数之和。 编写程序如下：CLEARs=0FOR x=1 TO 100 STEP 2 s=s+xENDFOR? 1-100之间所有奇数之和为： ，s,
