程序设计练习题(参考程序)..docVIP

程 序 设 计 练 习 题 1、求出102285和126201的最大公约数。（注：在数学上，常用(A,B)表示A和B的最大公约数。且有结论：若有等式A=B*Q+R，则(A,B)=(B,R)。例如，因为62=20*3+2且20=2*10+0，所以(62,20)=(20,2)=(2,0)=2 ） SET TALK OFF CLEAR A=102285 B=126201 FOR I=1 TO A IF MOD(A,I)=0 AND MOD(B,I)=0 MAX=I ENDIF ENDFOR ?MAX SET TALK ON RETURN 2、求S=1+(1+3)+(1+3+5)+……+(1+3+5+7+……+99)的值 SET TALK OFF CLEAR SUB=0 FOR N=1 TO 50 S=0 FOR I=1 TO N S=S+2*I-1 ENDFOR SUB=SUB+S ENDFOR ?SUB SET TALK ON RETURN 3、梅森尼数是指能使2^N-1为素数的数N，求[1，21]范围内最大的梅森尼数？ SET TALK OFF CLEAR FOR N=1 TO 21 M=2^N-1 FOR I=2 TO SQRT(M) IF MOD(M,I)=0