实验五循环结构及过程程序设计.doc

实验五 循环结构和过程程序设计（实验指导书86页）
1.
CLEAR
USE D:\VFP素材\KSCJ
STORE 0 TO N,S
SCAN
S=S+数学
N=N=1
ENDSCAN
? "所有学生的数学总分：", S
? "所有学生的数学平均分：",S/N
USE
CANCEL
2.
CLEAR
ACCEPT "输入一个英文字符串：" TO X
N=0
FOR I=1 TO LEN(X)
IF SUBSTR(X,I,1)=" B"
N=N+1
ENDIF
ENDFOR
?"英文字符B个数：",N
CANCEL
3.
CLEAR
S=0
FOR I=1 TO 1000
S=S+(-1)^(I-1)*(1/(2*I-1))
ENDFOR
?"S=",S
CANCEL
4.
CLEAR
S=0
INPUT "N=" TO N
FOR I=1 TO N
T=0
FOR J=1 TO I
T=T+J
ENDFOR
S=S+T
ENDFOR
?"S=",S
CANCEL

5. clear
s=0
input "n=" to n
for i=1 to n step 3
t=1
for j=1 to i
t=t*j
endfor
s=s+t
endfor
?"s=",s
Cancel
6.
CLEAR
FOR I=1 TO 5
?SPACE(6-i)
FOR J=1 TO i
?? "*"
ENDFOR
ENDFOR
CANCEL
7.
* 主程序
CLEAR
USE D:\VFP素材\KSCJ
STORE 0 TO S,N
DO D:\ VFP素材\GC
?”总分：”,S
?”平均分：”,S/N
USE
CANCEL

* 过程 D:\ \VFP素材\GC.PRG
SCAN
S=S+数学+语文+英语+地理+化学
N=N+1
ENDSCAN
RETURN
8. CLEAR
DIMENSION A(4)
FOR I=1 TO 4
INPUT "第"+STR(I,1)+"个数" TO A(I)
ENDFOR
STORE A(1) TO SMAX,SMIN
FOR I=1 TO 4
IF SMAX<A(I)
SMAX=A(I)
ENDIF
IF SMIN>A(I)
SMIN=A(I)
ENDIF
ENDFOR
?"SMAX=",SMAX
?"SMIN=",SMIN
CANCEL