原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
P47 5.CLEAR INPUT “请从键盘上输入一整数” TO a IF a0 ?str(a,9)+”是正数!” ELSE IF a0 ?str(a,9)+”是负数!” ELSE ?str(a,9)+”是零!” ENDIF ENDIF RETURN 6. CLEAR INPUT “a=” TO a INPUT “b=” TO b INPUT “c=” TO c IF ab max=a min=b ELSE max=b min=a ENDIF IF cmax max=c ENDIF IF cmin min=c ENDIF 另解：6. CLEAR INPUT “a=” TO a INPUT “b=” TO b INPUT “c=” TO c IF ab IF ca ?c,a,b ELSE IF cb ?a,c,b ELSE ?a,b,c ENDIF ENDIF 7. STORE 0 TO na, nb, nc, nd DO WHILE .T. INPUT “请输入课程分数：” TO FS DO CASE CASE FS=85 na=na+1 CASE FS= 75 nb=nb+1 CASE FS= 60 nc=nc+1 OTHERWISE nd=nd+1 ENDCASE WAIT “还需统计课程分数吗？(Y/N)” TO AN IF UPPER(AN)=“Y” LOOP ELSE EXIT ENDIF ENDDO ?”A等：85～100分的人数是：”+STR(na, 2) ?”B等：75～84分的人数是：”+STR(nb, 2) ?”C等：60～74分的人数是：”+STR(nc, 2) ?”D等：60分以下的人数是：”+STR(nd, 2) 8. n=0 h=0.5 DO WHILE .T n=n+1 h=2*h IF h=8848000 EXIT ENDIF ENDDO ?”对折次数为：”，n RETURN 9.CLEAR ACCEPT “请输入一个字符串” TO char n=LEN(char) STORE 0 TO nc, nn, ns, no FOR i=1 TO n m=ASC(SUBSTR(char, i, 1)) DO CASE CASE (m=65 AND m=90) OR (m=97 AND m=122) nc=nc+1 CASE m=48 AND m=57 nn=nn+1 CASE m=32 ns=ns+1 OTHRERWISE no=no+1 ENDCASE ENDFOR ?”字母的个数为：”+STR(nc, 2) ?”数字的个数为：”+STR(nn, 2) ?”空格的个数为：”+STR(ns, 2) ?”其他字符的个数为：”+STR(no, 2) RETURN 10.CLEAR S=0 FOR n=1 TO 1000 T=1/(4*n-3)-1/(4*n-1) S=S+T ENDFOR ?”S=”,S 11. clear input Lines= to n dimen a(n,n) a(1,1)=1 a(2,1)=1 a(2,2)=1 FOR i=3 TO n a(i,1)=1 a(i,i)=1 FOR j=2 TO i-1 a(i,j)=a(i-1,j-1)+a(i-1,j) ENDFOR ENDFOR 12. CLEAR DIMEN AA(20), BB(20) FOR
文档评论（0）