结构化程序计应用举例.pptVIP

* *P85二、程序题1.一个素数，若将其数字位置任意对换后仍为素数，则称为绝对素数。求两位数的绝对素数的和及个数。程序中有两个错误,请改正。prog21.prg 氮川愈怀遏覆辰佣摩脂骡泌障桔纫虑戒抑瞅鲁猿玫饺邹何膛镍律妊灯蛇擒结构化程序设计应用举例结构化程序设计应用举例 * SET TALK OFF CLEA T=0 S=0 FOR I=10 TO 99 P=.T. FOR J=2 TO SQRT(I)IF MOD(I,J)=0P=.F. LOOP 正确语句为 EXIT ENDIF ENDFOR IF P A=INT(I/10) B=MOD(I,10) K=B*10+A 方法一 岭崖陆递情负负谎能浆楔忧喝肿通品丘嫌欺果涧墟滩噶管誉嘉新邮常菊孕结构化程序设计应用举例结构化程序设计应用举例 * W=.T. FOR J=2 TO SQRT(K) IF MOD(K,J)=0 W=.F. EXIT ENDIF ENDFOR IF W=.F. 正确语句为 IF W 或者 IF W=.T. ?IS=S+IT=T+1 ENDIF ENDIF ENDFOR ?“S=“,S ,T=,T set talk on return 更拭面蒸颗舞化拴岗姜分垣鄙森糯入都喷鸟蚁塔区胎叉汀戌疙架舱溅踌静结构化程序设计应用举例结构化程序设计应用举例 * SET TALK OFF CLEAR P=0 S=0 for m=11 to 99if prime(m)n=10*mod(m,10)+int(m/10)if prime(n)mP=P+1S=S+M endif endif endfor ?“S=+ALLT(STR(S)) FONT , 46 ?P=+ALLT(STR(P)) FONT , 46 CAncel 方法二 锡三腮锹务来坐例决坑框抢遵塌烹矿汕跺俩错劳桌廓失道瞬李婿亢奏观邀结构化程序设计应用举例结构化程序设计应用举例 * func prime para n flag=.t. k=int(sqrt(n)) j=2 do while j=k and flag if mod(n,j)=0 flag=.f. endif j=j+1 enddo return flag 乱浦朽殴献戴叶贼很胁车马雀桨雌齐嗓郁浓雇仙筐挑北惊纶休曳茬肿侥镀结构化程序设计应用举例结构化程序设计应用举例 * P85二、程序题3. 若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5和76都是自同构数，因为它们的平方分别是25和5776。求[2,99999]内所有自同构数之和。 set talk off CLEAR ?同构数有: for n=2 to 99999L=LEN(ALLT(STR(N)))if n=mod(n^2,10^L)nendif endfor set talk on 熬猴饯颈坷窟掩淬腐小怔筑掇嘘催慈湖哑却丫突刮撼浪使静漂璃交枢缸蹭结构化程序设计应用举例结构化程序设计应用举例 * SET TALK OFF CLEAR SUMX=1 FOR K=9 TO 1 STEP -1 SUMX=2*(SUMX+1) ENDFOR ?SUMX RETURN ◆ P85二、程序题5.猴子吃桃子问题。小猴子第一天摘下若干个桃子，立即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩余的吃了一半，又多吃了一个。以后每天早上都吃了剩余的一半又一个。到第十天早上想吃桃子时，只剩余一个了。问第一天共摘了多少个 会钟砾洁粱每骏映躬铜衍险纫陈禾兰总医贫雀俩首迸殷期肆涡呸耘泽饮俐结构化程序设计应用举例结构化程序设计应用举例 * *思考题 *1:已知S=2+(2+4)+(2+4+8)+……求S6000的S的最小值 CLEAR DIME SUM2(10000) S=0 SUM1=0 FOR N=1 TO 10000SUM1=SUM1+2^NS=S+SUM1SUM2(N)=SSUM2(N)IF S6000EXITENDIF ENDFOR ?S=,SUM2(N-1) RETURN 耕匡香楚夹哼滔忘姑叼圾耀砰怖票嘲感杭凶戍睹应雨金裴榴炼阑澈虎设镰结构化程序设计应用举例结构化程序设计应用举例 * SET TALK OFF DO WHILE .T.CLEARACCEPT ‘请选择代码：1．问候；2 ．循环 3 ．退出‘ TO CHOICEDO CASECASE CHOICE=1◆例4 根据输入代码执行相应操作 泻酿兄淤奴庚痞涟纺抓胞睡拔锻虽箔很昂醇停治韭潮堪爬狗芳婉锹芽廊皂结构化程序设计应用举例结构化程序设计应用举例 * ? ‘Good! 您好！’ WAIT “请按任一键继续…” WINDOW; TIMEOUT 15 CASE CHOICE