结构化程序设计应用举例.ppt

* * * 实验九 结构化程序设计综合实例 * *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)=0 P=.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. ?I S=S+I T=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 99 if prime(m) n=10*mod(m,10)+int(m/10) if prime(n) ?m P=P+1 S=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 99999 L=LEN(ALLT(STR(N))) if n=mod(n^2,10^L) ?n endif 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 10000 SUM1=SUM1+2^N S=S+SUM1 SUM2(N)=S ?SUM2(N) IF S6000 EXIT ENDIF ENDFOR ?S=,SUM2(N-1) RETURN * *2求S=1+1/1!+1/2!+1/3!+……+1/n! SET TALK OFF CLEAR S=1 T=1 FOR N=1 TO 25 T=T*N S=S+1/T ENDFOR ?S=,ROUND(S,4) SET TALK ON RETURN * *3求[100，900]之间相差为12 的素数对的个数SET TALK OFFCLEARdime a(400)k=0p=0FOR M=100 TO 900 IF PRI(M) k=k+1 a(k)=m * ?A(“+allt(str(K))+)=,A(K) ENDIFENDFOR *?K * for i=2 to K if a(i)-a(i-1)=12 * ?a(i),a(i-1) p=p+1 endif endfor ?p=,p SET TALK ON RETURN * FUNC PRI PARA N J=2 FL=.T. X=INT(SQRT(N)) DO WHILE J=X AND FL IF MOD(N,J)=0 FL=.F. EXIT EN