第6章程序设计基础.docx

1、第6章程序设计基础 二、填空题1. S = S + X * X X = X + 1 2. 1 + 2 + + 9 + 10 3. 25 4. , 1 , right(X,(LEN(X)-2) 5. X(I, J) = W I = J I + J = 5 6.24SUBSTR(XY, 5, 4)7. TRPN 8. FEDCBA9. X%3=0 10. 21 11.13 21 注意：12至16如果不把题中的ThisForm.Text1.Value=.T.改为ThisForm.Text1.Value=T，则答案均为T，一下为修改后的答案。12.2013.314.915.1016.12317.REP

2、LACE 等级 WITH “优秀”18.通过19.编号%8=120.153421.97+i22. a%i=0 AND b%i=023.a*b STEP 124.i/100 i%1025.= 二.选择题1.有如下程序： A = 10 IF A = 10 S = 0 ENDIF S = 1 ? S上面程序的执行结果是（B）。 A.0 B.1 C.程序出错 D.结果无法确定2.有如下程序： SET TALK OFF STORE 2 TO S, K DO WHILE S 14 S = S + K K = K + 2 ENDDO ? S, K SET TALK ON RETURN程序运行后的输出结果是（

3、C）。A.22 10 B.22 8 C.14 8 D.14 103.有如下程序： SET TALK OFF DIME A(6) K = 2 DO WHILE K = 2 A(K) = A(K) / (A(4) 10) K = K 1 ENDDO ? A(1), A(6) ?A(2) SET TALK ON RETURN程序运行第一个？的输出结果是（D）。 A.10 4 B.10 8 C. .T. D. .F. 84.阅读下面这段程序： SET TALK OFF S = 0 I = 1 DO WHILE I M M = M + N N = N 10 ENDDO ? M, N RETURN程序运行

4、的结果是（D）。 A.0 10 B.10 90 C.90 100 D.100 906.阅读下列程序： SET TALK OFF CLEAR STORE 1 TO X STORE 20 TO Y DO WHILE X = Y IF INT(X/2) X / 2 X = 1 + X 2 Y = Y + 1 LOOP ELSE X = X + 1 ENDIF ENDDO ? X ? Y SET TALK ON RETURN运行结束X 和 Y的值分别是（B）。A. X= 10 Y = 22 B.X = 122.00 Y = 23C.X = 3 Y = 22 D.X = 2 Y = 217.运行以下程序

5、： SET TALK OFF INPUT “N=” TO N T = 1 K = 1 S = 0 DO WHILE K = 2 * N + 1 T = T * K S = S + T K = K + 2 ENDDO ?S RETURN当输入N=3时，输出S的值为（A）。 A.124 B.19 C.9 D.338.运行以下程序： SET TALK OFF N = 1 T = 1 S = 0 DO WHILE N = 9 T = T * N S = S + 2 * T N = N + 3 ENDDO ? S RETURN最后输出结果为（D）。 A.38 B.10 C.625 D.669.阅读一下程

6、序 SET TALK OFF S = 0 K = 1 DO WHILE K M M = M + N N = N 10 ENDDO ? M RETURN运行此程序显示M的值是（C）。 A.0 B.10 C.100 D.9911.阅读下列程序，其运行结果是（B）。 SET TALK OFF X = 153 A = STR(X, 3) I = 1 T = 0 DO WHILE I = 3 T = T + VAL(SUBS(A, I,1) * 3 I = I + 1 ENDDO ? IIF(X = T, YES, NO) SET TALK ON RETURN A. .T. B.YES C.NO D.出

7、错12.阅读下列程序，其运行结果是（C）。 SET TALK OFF DIME A(2, 2) A(1, 1) = 1 A(1, 2) = 2 A(2, 1) = 3 A(2, 2) = 4 I = 1 J = 1 DO WHILE J = 2 T = A(I, J) A(I, J) = A(J, I) A(J, I) = T J = J + 1 ENDDO I = I + 1 ? A(1, 2), A(2, 1) SET TALK ON RETURN A.1 2 B.2 3 C.3 2 D.4 213.阅读下列程序，其运行结果是（D）。 SET TALK OFF S = 0 I = -5 D

8、O WHILE I = 5 IF ABS(I) = 3 I = ABS(I) ENDIF J = 1 DO WHILE J = ABS(I) S = S + 1 J = J + 1 ENDDO I = I + 1 ENDDO ? S SET TALK ON RETURN A.5 B.4 C.9 D.2114.运行下列程序后S的值是（C）。 SET TALK OFF S = 0 P = 10 DO WHILE P = 5 EXIT ENDIF ENDDO ? X + Y RETURN输出的结果为（B）。 A.5 B.20 C.9 D.14 16.B 17.A 18.D 19.D 20.D 21.

9、B 22.A 23.D 24.C 25.C三、编程(16题以后是表单的题)1.铁路托运行李，从甲地到乙地，按规定，每张客票托运行李不超过50千克，按每千克0.35元计算运费，如果超过50千克，超过的部分按每千克0.65计算运费。请编写一个程序计算托运费。假设行李的重量为W千克，运费为F元。那么计算的公式为：SET TALK OFFCLEARINPUT请输入重量： TO WIF W = 50 F = 0.35 * WELSE F = 50 * 0.35 + (W - 50) * 0.65ENDIF?运费F为： + STR(F,10,2)SET TALK ONRETURN2.假设在运输货物时，每吨

10、货物每公里运费P与运输的距离S有关，路途越远，每吨货物运价越低，其公式如下：如果所付的总运费超过250元的，再给予九五折的优惠。从键盘输入货物的吨数和运输公里数，求应付的运费。SET TALK OFFCLEARINPUT 请输入货物的重量： TO WINPUT 请输入货物的运输距离： TO SIF W 0 .OR. S 0 EXITENDIFDO CASE CASE S = 100 .AND. S = 150 .AND. S = 200 .AND. S 250 COST = COST * 0.95ENDIF?总运费F为： + STR(COST, 10, 2)SET TALK ONRETURN3

11、.设计一个程序计算被3、4、5、6、7除都余2的最小4位数SET TALK OFFCLEARNUM= 1000DO WHILE MOD(NUM,420) 2NUM = NUM +1ENDDO?NUM = , NUMSET TALK ONRETURN4.有一堆核桃，每次往外边拿两个，最后还剩下一个单的，如果每次往外边拿3个、4个、5个、6个，都是剩下一个单的，问这堆核桃最少有多少个？提示：要解决这一问题，首先估计一下初值，题目中说拿6个，还能剩1个，所以最低限度应该有7个，然后看看这个值是否同样适合前几种情况，如果都符合，此数正是寻找的数，如果不符合，则令此数加1，再重新进行判定，直到正确为止。

12、SET TALK OFFCLEARN = 7DO WHILE .T. IF MOD(N, 2) 1 N = N + 1 LOOP ENDIF IF MOD(N, 3) 1 N = N + 1 LOOP ENDIF IF MOD(N, 4) 1 N = N + 1 LOOP ENDIF IF MOD(N, 5) 1 N = N + 1 LOOP ENDIF IF MOD(N, 6) 1 N = N + 1 LOOP ENDIF EXITENDDO?这堆核桃最少有 + STR(N, 4) + 个。SET TALK ONRETURN在若干数中，找出其中的最大值和最小值。SET TALK OFFCLE

13、ARINPUT 请输入数据的个数： TO NMAX_NUM = -9999999999MIN_NUM = 9999999999FOR I = 1 TO N INPUT 请输入第 + STR(I) + 个数: TO NUM IF NUM MAX_NUM MAX_NUM = NUM ENDIF IF NUM MIN_NUM MIN_NUM = NUM ENDIFENDFOR?最大值为：, MAX_NUM?最小值为：, MIN_NUMSET TALK ONRETURN5.设计程序求S = 1! + 3！+5！+19！。SET TALK OFFCLEARS = 0I =1TEMP = 1DO WHIL

14、E I=19 S = S + TEMPTEMP = TEMP *(I+1)*(I+2)I = I+2ENDFOR?S = , SSET TALK ONRETURN6.设计程序求S = 1! -1/3！+5！-+1/19！。SET TALK OFFCLEARS = 0I = 1TEMP = 1DO WHILE I = 19 S = S + TEMPTEMP = (-1)* TEMP/(I+1)/(I+2)I =I+2ENDDO?S = , SSET TALK ONRETURN7.提示：每次对折厚度为之前2倍：SET TALK OFFCLEARS = 0.5K = 0DO WHILE S 8844

15、000S = S*2K = K+1END DO?K = , KSET TALK ONRETURN8.分个、十、百3种情况讨论：SET TALK OFFCLEARFOR S = 1 TO 1000 TEMP = S*S IF S= 10 AND S100 AND MOD(TEMP,1000) =S ?S = , S ENDIFENDFORSET TALK ONRETURN9.搬砖问题：36块砖，36个人搬，男搬4，女搬3，2个小孩抬一块，要求一次全搬完，问男、女、小孩各需搬若干？* 设男孩为I个，女孩为J个，小孩为K个SET TALK OFFCLEARFOR I = 1 TO 9 FOR J =

16、 1 TO 12 FOR K = 2 TO 72 STEP 2 IF (I + J + K = 36) .AND. (I * 4 + J * 3 + K * 0.5 = 36) ?男孩为 + STR(I, 2) + 个; ?女孩为 + STR(J, 2) + 个: ?小孩为 + STR(K, 2) + 个. RETURN ENDIF ENDFOR ENDFORENDFORSET TALK ONRETURN10. 1000000 = 106=26*56，显然要让2个数中不含0，则这2个数不能同时被2跟5整除，所以这两个数为 26 和5611. SET TALK OFFCLEARGDP=1K =

17、0DO WHILE GDP 0 K = K+1 ENDIFENDFOR? KSET TALK ONRETURN13.每次反弹之后路程加高度的2倍SET TALK OFFCLEARH= 100S =100N = 1DO WHILE S N K = K-N ENDIF DO WHILE NOT FLAG(K) K = K+1 IF KN K = K-N ENDIF ENDDO FLAG(K)= .F.ENDFORFOR K=1 TO 50 IF FLAG(K) ?K EXIT ENDIFENDFORSET TALK ONRETURN方法2：SET TALK OFFCLEARN = 1M = 5K = 1DO WHILE N 50 N = N+1 K = K +1+ M K = MOD(K,N) IF K = 0 K = N ENDIFENDDO?N- KSET TALK ONRETURN=