合肥精英学校专升本计算机基础复习资料 第 11 页 徐奇观编
T=S/N ENDDO PI=PI*4 ?PI
16. 键盘输入两个整数，求它们的最大公约数和最小公倍数。 INPUT \
INPUT \ M N T=MOD(M,N) M1=M 24 18 6 N1=N 18 6 0 T=MOD(M,N) DO WHILE T<>0 最大公约数 M=N 最小公倍数=24*18/N N=T
T=MOD(M,N) ENDDO
?\ 最大公约数为\
?\ 最小公倍数为\
17. 输出100 至 200之间所有能被5 或 7整除的整数，并输出它们的和。 SUM=0
FOR I=100 TO 200
IF MOD(I,5)=0 OR MOD(I,7)=0 SUM=SUM+I ?I ENDIF ENDFOR
?“SUM=”,SUM
18. 求 1*2+3*4+5*6+??+21*22
SUM=0
FOR I=1 TO 21 STEP 2 SUM=SUM+I*(I+1) ENDFOR
?\19. 求 N的阶乘。（N的值由键盘输入，应小于20 ） INPUT TO N P=1
FOR I=1 TO N
P=P*I ENDFOR
?N,”!=”,P
20. 打印ASCII中所有可打印字符（一行打印10个字符，字符间留三个空） CLEAR N=0
FOR I=33 TO 126
合肥精英学校专升本计算机基础复习资料 第 12 页 徐奇观编
IF MOD(N,10)=0
?SPACE(3)+CHR(I) ELSE
??SPACE(3)+CHR(I) ENDIF N=N+1 ENDFOR
21. 一个数如果恰好等于它的因子之和，这个数就称为“完数”，如：6=1+2+3，故6是完数。编程输出1000以
内的所有完数。
FOR I=2 TO 1000 S=0
FOR J=1 TO I-1 IF MOD(I,J)=0 S=S+J
ENDIF ENDFOR
IF S=I
?I,\是完数\ENDIF ENDFOR
22. 输入一个字符串，判断其中有多少个大写字母、小写字母、数字字符、空格字符以及其他特殊字符？ CLEAR
STORE 0 TO UPPER,LOWER,DIGIT,SPACE,SPECIAL INPUT “输入一个字符串” TO ST L=LEN(ST) FOR I=1 TO L
CH=SUBST(ST,I,1) DO CASE
CASE ASC(CH)>=65 AND ASC(CH)<=90 UPPER=UPPER+1
CASE ASC(CH)>=48 AND ASC(CH)<=57 DIGIT=DIGIT+1
CASE ASC(CH)>=97 AND ASC(CH)<=122 LOWER=LOWER+1 CASE ASC(CH) =32 SPACE=SPACE+1 OTHERWISE
SPECIAL=SPECIAL+1 ENDCASE ENDFOR
? “字符串中大写字母的个数是”, UPPER ? “字符串中小写字母的个数是”, LOWER
合肥精英学校专升本计算机基础复习资料 第 13 页 徐奇观编
? “字符串中数字字符的个数是”, DIGIT ? “字符串中空格字符的个数是”, SPACE ? “字符串中其他字符的个数是”,SPECIAL
23. 求如下级数前N项之和(X和N的值由键盘输入)
x2x3x4xn1?x???????????234n
S=1
INPUT TO X INPUT TO N FOR I=1 TO N-1 S=S+X^I/I ENDFOR
?”SUM=”,S
24. 输入一个大于2的整数,判断是否为素数? INPUT “请输入一个大于2的整数” TO J M=J-1 FLAG=.T. FOR I=2 TO M IF MOD(J,I)=0
FLAG=.F. EXIT ENDIF ENDFOR IF FLAG
? J,”是素数” ELSE
?J,”不是素数” ENDIF
25. 输出3到100之间所有的素数，并求其总和。 SUM=0
FOR J=3 TO 100 STEP 2
M=INT(SQRT(J)) FLAG=.T.
FOR I=2 TO M
IF MOD(J,I)=0
FLAG=.F. EXIT ENDIF ENDFOR IF FLAG
? J
SUM=SUM+J ENDIF
合肥精英学校专升本计算机基础复习资料 第 14 页 徐奇观编
ENDFOR
?”素数之和为”,SUM
26. 输入一个字符串，按其倒序输出。
INPUT \L=LEN(ST)
FOR I=L TO 1 STEP -1
??SUBSTR(ST,I,1) ENDFOR ?
RETURN
27. 从键盘输入一个二进制数，将其转换成等值的十进制数。
(1001001)B=1*2+1*2+1*2=64+8+1=73
SET TALK OFF CLEAR S=0
ACCEPT \L=LEN(N) FOR I=1 TO L
S=S+VAL(SUBSTR(N,I,1))*2**(L-I) ENDFOR ?\
SET TALK ON CANCEL
28. 从键盘输入一个十进制数，将其转换成等值的二进制数。
630
(34)10=(100010)2 2 34 〔0 2 17 〔1 2 8 〔0 2 4 〔0 2 2 〔0 2 1
合肥精英学校专升本计算机基础复习资料 第 15 页 徐奇观编
SET TALK OFF CLEAR
INPUT \BIN=\IF N=0
BIN=”0” ENDIF
DO WHILE N>0
R=MOD(N,2)
BIN= STR(R,1)+BIN N=INT(N/2) ENDDO ?BIN
SET TALK ON CANCEL
29. 100元钱买100只鸡，母鸡3元一只，公鸡2元一只，小鸡一元2只，问如何买鸡？ FOR M=1 TO 32
FOR G=1 TO 48
FOR X=2 TO 98 STEP 2
IF (M+G+X=100) AND (M*3+G*2+X*0.5=100)
?\ENDIF ENDFOR ENDFOR ENDFOR
30. 输出1000以内的水仙花数. FOR I=0 TO 9
FOR J=0 TO 9
FOR K=0 TO 9
M=I*100+J*10+K
IF M=I^3+J^3+K^3 AND M<>0
?M ENDIF ENDFOR ENDFOR ENDFOR
BIG 2 5 8 1 4 SMALL