VFP程序设计题选

SET TALK OFF
CLEAR
S=1
FOR N=2001 TO 2100
S=S*1.03
IF S=2
LOOP
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：2024"
9、设等比数列：1，2，4，8，…。求使得此数列的前N项之和大于100000的最小的自然数N。
? B
SET TALK ON
RETURN
"运行结果：7"
12、求出20677和42067的最大公约数。
SET TALK OFF
CLEAR
A=20677
B=42067
FOR D=1 TO A
IF MOD(A,D)=0 AND MOD(B,D)=0
MAX=B
ENDIF
程 序 设 计 题 选
1、求100以内最大的自然数N，使得从1开始的连续N个自然数的倒数之和小于3.5。
SET TALK OFF
CLEAR
S=0
FOR N=1 TO 100
S=(S+1)/N
S=0
FOR N=1 TO 50
A=102+2*N
S=S+A
IF S>2000
LOOP
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：17"
5、 求出100以内使得算式1*2+2*3+…+N*(N+1)的值小于5000的最大的自然数N。
SET TALK OFF
CLEAR
S=0
FOR N=1 TO 100 STEP 2
A=1/N-1/(N+1)
S=S+A
IF S<0.68
EXIT
ENDIF
ENDFOR
? N-2
SET TALK ON
RETURN
"运行结果：35"
9、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。
ENDFOR
? N
SET TALK ON
RETURN
运行结果：44
19、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数N，使得此球从开始下落至第N次着地时在垂直方向所经过的总路程超过678米。
SET TALK OFF
CLEAR
SET TALK OFF
CLEAR
S=0
FOR N=1 TO 100
A=N*(N+1)
S=S+A
IF S<=6000
LOOP
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：26"
7、求出100以内使得算式1+(1+2)+…+(1+2+…+N)的值小于1000的最大的自然数N。
SET TALK OFF
CLEAR
A=1
S=0
FOR N=1
TO 100
S=S+A
IF S>=2345678
EXIT
ENDIF
A=2+A
ENDFOR
? N
SET TALK ON
S=SQRT(S+N)
ENDIF
ENDFOR
? ROUND(S,0)
SET TALK ON
RETURN
"运行结果：162"
14、求所有符合算式AB*BA=2701的最小的两位数AB（即A*10+B）。其中A、B是1~9之间的一位整数。
SET TALK OFF
CLEAR
SET TALK OFF
CLEAR
LETT=1
N=0
FOR K=1 TO 26
LETT=1/LETT+K
IF LETT<0.1
N=N+1
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
运行结果：16
21、求所有符合算式AB*BA=3627的最大的两位数AB（即A*10+B）。其中A、B是1~9之间的一位整数。
SET TALK OFF
CLEAR
A=1
S=1
FOR N=1 TO 100
S=S+A
IF S>100000
EXIT
ENDIF
A=2+A
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：17"
10、设等比数列：1，2，4，8，…。求使得此数列的前N项之和小于2345678的最大的自然数N。
H=100
S=0
FOR N=2 TO 100
H=H*3/4
S=S+H
IF S>678
EXIT
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
运行结果：13
20、设有用26个字母表示的26个表达式：A=1，B=1/(A+1)，C=1/(B+2)，…，Z=1/(Y+25)。试求出这26个字母中其值小于0.1的字母个数。
IF S>=3.5
LOOP
ENDIF
ENDFOR
? N-1
SET TALK ON
RETURN
"运行结果：18"
2、 求100以内最小的自然数N，使得从1开始的连续N个自然数的倒数之和大于3.6。
SET TALK OFF
CLEAR
S=0
FOR N=1 TO 100
SET TALK OFF
CLEAR
STORE 1 TO F1,F2,F3
N=0
FOR K=1 TO 25
F=F1+F2+F3
IF F>54321
N=N+1
ENDIF
F1=F2
F2=F3
F3=F1
ENDFOR
? N
SET TALK ON
RETURN
“运行结果：5"
? S
SET TALK ON
RETURN
"运行结果：74250"
S=S+1/N
IF S<=3.6
LOOP
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：21"
3、求50以内最大的自然数N，使得从102开始的连续N个偶数之和小于3000。
SET TALK OFF
CLEAR
S=0
FOR N=1 TO 50
SET TALK OFF
CLEAR
A=0
FOR N=0 TO 1000
IF A+N<6000
EXIT
ENDIF
A=A+N
ENDFOR
? A
SET TALK ON
RETURN
"运行结果：5996"
17、已知数列{F(N)}：F(1)=1，F(2)=4，当N=3,4,5,…时，F(N)=3*F(N-1)-F(N-2)。试求出100以内最小的自然数N使得此数列的第N项大于87654321。
FOR K=1 TO 25
F=F1/F2
IF F>0.618
N=N+1
ENDIF
F1=F2
F2=F1
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：20"
24、回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1421,4112]内所有回文数的和。
SET TALK OFF
CLEAR
DIMENSION F(100)
F(1)=1
F(2)=4
FOR N=3 TO 100
F(N)=3*F(N-1)-F(N-2)
IF F(N)<=87654321
LOOP
ENDIF
ENDFOR
? N
SET TALK ON
RETURN
"运行结果：20"
SET TALK OFF
CLEAR
S=0
FOR X=1421 TO 4112
A=X/1000
B=INT((X-A*1000)/100)
C=INT((X-A*1000-B*100)/10)