《VFP程序设计示例与练习(选择结构).doc》由会员分享,可在线阅读,更多相关《VFP程序设计示例与练习(选择结构).doc(2页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、适用班级:0614101/0615101/102 选择结构程序设计示例与练习 Q选择结构程序设计示例与练习2输反将积的数各构择使题题重嵌采请题做句 采习 ) ( (,:的 整 不一 二 ,:数数 = =/( =)0 =0/ = =)0/ 整位过入请 位数个编数位超入键输到按述对出序的从按个入输顺到从串两输出输小从数入输出输的从数个习, 为小 = = = :第请 :第请 数第输 出出的大数三盘”不数输则求若长的判;输为转该整位 度习 :值 !0度串误输? )( !长串,输 = = = 数个请 数个请 数一输 数小大出数三键法方、 试嵌语用语 用并语个采 此虚虚两方,实不的方则实个同相程则 判方出
2、)按,立程“出0,0数即立程虑根程求求按、系0 方二输习 ,=面的,=周角 ) + ”角成能据= + 边三形入 边条角输 :第角三 ”形构能据出,三构不三构断判。长形角条的三”求不数“则求若大数求(串为数将数000小个断判同字个输习 !是字, ) ,值 & = = :字个 ”母字母,误出,不母为母断要; 母,写入! “否 出,、时或, 被个如整个输)(输整被时除整 数断,正一从)(输除 是数,整入输”数的出输数出则若的 个判整一输习 年是, 年命命 一和,分尾第两成以,太因的闰两面=), ; ) ), :年请 果断判份这闰其断份入现实 请习 数数/ ) 数偶 /=( :一输 断判个输奇个断整正
3、盘练与设程 与正断个断 输 数 数 实断这份果 请 =闰因成尾, 是 习判 出输数入数 (正数 整(整被,、 “入母要断,出母 个:= , 字是 个同小0将为数若“三角。构不出构形 : 输边 边 据成+ )角=面 二 、求虑即0出立出 则个方不方虚个并语嵌、法出小 一 数 请 =A AND CH=Z?“字母&CH.的ASCII值是:”,ASC(CH) ELSE?输入错误,该字母不是大写字母!ENDIFRETURN【练习】(1)输入一个小写字母,做同样判断;(2)输入一个大小为10010000的整数,并将该数转换为字符串输出;(要求判断该数的大小,若不符合要求,则输出“输入数据不符合要求”)4.
4、输入三角形的三条边,求三角形的周长和面积。(要求判断是否能构成三角形,若不能构成三角形,则输出“数据有误,不能构成三角形”)CLEARINPUT 请输入三角形的第一条边: TO A INPUT 请输入三角形的第二条边: TO B INPUT 请输入三角形的第三条边: TO C IF A+B=C OR B+C=A OR A+C0,则输出方程的两个不同实根 若M0,则输出方程的两个不同虚根提示:此题可 a.采用多个IF语句并列b.采用DO CASE语句c.采用IF语句嵌套(请依次尝试上述a、b、c三种方法)5.从键盘输入三个数,求出最大数和最小数。SET TALK OFFINPUT 请输入第一个数
5、: TO A INPUT 请输入第二个数: TO B INPUT 请输入第三个数: TO C IF ABZDS=BZXS=AELSEZDS=AZXS=BENDIFIF ZDSCZXS=CENDIF?最大的数是:, ZDS?最小的数是:, ZXSSET TALK ON【练习】(1)从键盘输入二个数,求出最大数和最小数;(2)从键盘输入四个数,求出最大数和最小数;(3)从键盘输入两个字符串,求最大的串和最小的串;(4)从键盘输入三个字符串,求最大的串和最小的串。(要求上述各题都要采用IF语句,同时将其与前面“顺序结构”中第3题进行比较)6.任意输入一个长度为510的字符串,求该串的ASCII值;(
6、要求:若输入串的长度小于5,则输出提示“输入有误,该串的长度小于5!”;若输入串的长度大于10,则输出提示“输入有误,该串的长度大于10!”)clearACCEPT请输入一个长度为510的字符串:TO CHDO CASE CASE LEN(CH)10 ?输入有误,该串的长度大于10! OTHERWISE ?&CH 的ASCII值为:,ASC(CH)ENDCASE【练习】输入一个长度为25位的正整数,并将该数转换为字符串输出;(要求判断该数的长度,若不符合要求,则输出“输入数据不符合要求”)7.从键盘输入三个数,按从大到小的顺序输出。CLEARINPUT 请输入第一个数: TO A INPUT
7、请输入第二个数: TO B INPUT 请输入第三个数: TO C IF AB T=BB=AA=T ENDIFIF BC T=C C=B B=TENDIFIF A=1 M=5 CASE INT(N/1000)=1M=4 CASE INT(N/100)=1M=3 CASE INT(N/10)=1M=2 OTHERWISE M=1ENDCASE?这个数的位数是:,MSET TALK ON法二:SET TALK OFFINPUT 请输入一个不超过5位的正整数:TO N?这个数的位数是:,LEN(LTRIM(STR(N)SET TALK ON【练习】(1)请采用并列IF语句重做此题;(2)请采用IF嵌套结构重做此题;(3)请使用选择结构求出该数各位数字的和与积,并将该数反向输出