第一题SET TALK OFFSTORE 0 TO X,YDO WHILE.T.X=X+1Y=Y+XIF X>=5EXITENDIFENDDOX,YSET TALK ON第二题SET TALK OFFDIMESSIN A(6)FOR K=1 TO 6A(K)=20– 2*KENDFORK=5DO WHILE K>=2A(K)=A(K)- A(K – 1)K=K – 1ENDDOA(1),A(3),
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 13:33:06
![第一题SET TALK OFFSTORE 0 TO X,YDO WHILE.T.X=X+1Y=Y+XIF X>=5EXITENDIFENDDOX,YSET TALK ON第二题SET TALK OFFDIMESSIN A(6)FOR K=1 TO 6A(K)=20– 2*KENDFORK=5DO WHILE K>=2A(K)=A(K)- A(K – 1)K=K – 1ENDDOA(1),A(3),](/uploads/image/z/10201073-41-3.jpg?t=%E7%AC%AC%E4%B8%80%E9%A2%98SET+TALK+OFFSTORE+0+TO+X%2CYDO+WHILE%EF%BC%8ET%EF%BC%8EX%3DX%2B1Y%3DY%2BXIF+X%3E%3D5EXITENDIFENDDOX%2CYSET+TALK+ON%E7%AC%AC%E4%BA%8C%E9%A2%98SET+TALK+OFFDIMESSIN+A%EF%BC%886%EF%BC%89FOR+K%3D1+TO+6A%EF%BC%88K%EF%BC%89%3D20%E2%80%93+2%2AKENDFORK%3D5DO+WHILE+K%3E%3D2A%EF%BC%88K%EF%BC%89%3DA%EF%BC%88K%EF%BC%89-+A%EF%BC%88K+%E2%80%93+1%EF%BC%89K%3DK+%E2%80%93+1ENDDOA%EF%BC%881%EF%BC%89%2CA%EF%BC%883%EF%BC%89%2C)
第一题SET TALK OFFSTORE 0 TO X,YDO WHILE.T.X=X+1Y=Y+XIF X>=5EXITENDIFENDDOX,YSET TALK ON第二题SET TALK OFFDIMESSIN A(6)FOR K=1 TO 6A(K)=20– 2*KENDFORK=5DO WHILE K>=2A(K)=A(K)- A(K – 1)K=K – 1ENDDOA(1),A(3),
第一题
SET TALK OFF
STORE 0 TO X,Y
DO WHILE.T.
X=X+1
Y=Y+X
IF X>=5
EXIT
ENDIF
ENDDO
X,Y
SET TALK ON
第二题
SET TALK OFF
DIMESSIN A(6)
FOR K=1 TO 6
A(K)=20– 2*K
ENDFOR
K=5
DO WHILE K>=2
A(K)=A(K)- A(K – 1)
K=K – 1
ENDDO
A(1),A(3),A(5)
SET TALK ON
这个 是VF程序 请直接给出答案
第一题SET TALK OFFSTORE 0 TO X,YDO WHILE.T.X=X+1Y=Y+XIF X>=5EXITENDIFENDDOX,YSET TALK ON第二题SET TALK OFFDIMESSIN A(6)FOR K=1 TO 6A(K)=20– 2*KENDFORK=5DO WHILE K>=2A(K)=A(K)- A(K – 1)K=K – 1ENDDOA(1),A(3),
此题一般是笔试题,应该用人算,当然机器更方便,如果考试的时候能用的话·····
1.x=5,y=15
2.A(1),A(3),A(5)分别为18,-2,-2
不信可以用机器:(我改过的···)
SET TALK OFF
STORE 0 TO X,Y
DO WHILE .t.
X=X+1
Y=Y+X
IF X>=5
EXIT
ENDIF
ENDDO
?X,Y
SET TALK ON
####################
SET TALK OFF
DIME A(6)
FOR K=1 TO 6
A(K)=20-2*K
ENDFOR
K=5
DO WHILE K>=2
A(K)=A(K)- A(K-1)
K=K-1
ENDDO
?A(1),A(3),A(5)
SET TALK ON