[工学]第5章 程序设计基础.docVIP

二、填空题 1.如下程序是求1~100所有整数的平方和并输出结果，请填空。 SET TALK OFF CLEAR S = 0 X = 1 DO WHILE X = 100 S = S + X * X X = X + 1 ENDDO ?S RETURN 2.有如下程序： STORE 0 TO N,S DO WHILE .T. N = N + 1 S = S + N IF N = 10 EXIT ENDIF ENDDO ?”S=” + STR(S, 2) 本程序实现的操作是 1 + 2 + …… + 9 + 10 。 3.阅读下列程序，并给出运算结果： SET TALK OFF CLEAR STORE 0 TO X,Y DO WHILE .T. X = X + 1 DO CASE CASE INT(X/2) = X/2 LOOP CASE X = 10 EXIT OTHERWISE Y = Y + X ENDCASE ENDDO ?Y SET TALK ON RETURN 运行结束Y的值是 25 。 4.下面的程序是输入整数M和N，用辗转相除法求它们的最大公约数，请在程序中填空。 SET TALK OFF INPUT “输入M” TO M INPUT “输入N” TO N ?M, N K = 1 DO WHILE K 0 K = MOD(M, N) M = N N = K ENDDO ??M SET TALK ON RETURN 5.程序说明：将16个正整数按如下方阵存入数组X(4, 4)中， 1 5 9 13 2 6 10 14 3 7 11 15 4 8 12 16 求出主对角线上元素（即X(1, 1)、X(2, 2)、X(3, 3)、X(4, 4)）之和存入内存变量Z1，再求出另一条对角线上元素(即X(1, 4)、X(2, 3)、X(3, 2)、X(4, 1))之和存入内存变量Z2。 请将程序补充完整： SET TALK OFF DIMENSION X(4, 4) W = 0 J = 1 DO WHILE J = 4 I = 1 DO WHILE I = 4 W = W + 1 X(I, J) = W I = I + 1 ENDDO J = J + 1 ENDDO STORE 0 TO Z1,Z2 I = 1 DO WHILE I = 4 J = 1 DO WHILE J = 4 IF I = J Z1 = Z1 + X(I, J) ENDIF IF I + J = 5 Z2 = Z2 + X(I, J) ENDIF J = J + 1 ENDDO I = I + 1 ENDDO ?”Z1=”,Z1 ?”Z2=”,Z2 SET TALK ON 6.下列程序的功能是通过字符串变量操作竖向显示“伟大祖国”，横向显示“祖国伟大”，请填空。 SET TALK OFF STORE “伟大祖国” TO XY CLEAR N = 1 DO WHILE N 8 ?SUBSTR(XY, N, 2) N = N + 2 ENDDO ?SUBSTR(XY, 5, 4) ??SUBSTR(XY, 1, 4) RETURN 7.阅读下列程序，并给出运行结果。 SET TALK OFF CLEAR STORE 0 TO X, Y, S1, S2, S3 DO WHILE X 5 X = X + 1 DO CASE CASE INT(X/2) = X/2 S1 = S1 + X/2 CASE MOD(X, 3) = 0 S2 = S2 + X/3 CASE INT(X/2) X/2 S3 = S3 + 1 ENDCASE ENDDO ?S1 + S2 + S3 SET TALK ON RETURN 运行以上程序后，屏幕显示 6.0000 。 8.请阅读下列判断一个自然数是否为质数的程序，并将程序填写完整。 SET TALK OFF INPUT “请输入一个大于1的自然数：” TO N K = 0 K的值为0表示所输入的自然数是质数，为1表示不是质数 J = 2 DO