合肥精英学校专升本计算机基础复习资料 第 16 页 徐奇观编
3 5 8 2 1 6 4 BP= SP=
BIG SMALL
31. 输入10个数,求其中最大数和最小数及其在这批数据中的位置。 DIMENSION A(10) FOR I=1 TO 10
INPUT \ENDFOR BIG=A(1) SMALL=A(1) FOR I=2 TO 10
IF A(I)>BIG BIG=A(I) ELSE
IF A(I)
?\?\
32. 打印如下图形：
* ** *** **** *****
FOR I=1 TO 5
FOR J=1 TO I
??\ENDFOR ? ENDFOR
33. 打印如下图形:
***** ****
合肥精英学校专升本计算机基础复习资料 第 17 页 徐奇观编
*** ** *
FOR I=5 TO 1 STEP -1
FOR J=1 TO I
??\ENDFOR ? ENDFOR
34. 打印如下图形:
******* ***** *** * 方法一
FOR I=4 TO 1 STEP -1
??SPACE(5-I)
FOR J=1 TO 2*I-1
??\ENDFOR ? ENDFOR
35. 打印如下图形:
* *** ***** ******* FOR I=1 TO 4
?SPACE(6-I)
FOR J=1 TO 2*I-1
??\ENDFOR ENDFOR
36. 打印如下图形: * *** *****
******* ********* ******* ***** *** *
合肥精英学校专升本计算机基础复习资料 第 18 页 徐奇观编
FOR I=1 TO 5
? SPACE(10-I) FOR J=1 TO 2*I-1
??\ENDFOR ENDFOR
FOR I=4 TO 1 STEP -1
?SPACE(10-I)
FOR J=1 TO 2*I-1
??\ENDFOR ENDFOR
37. 打印如下图形: A BBB CCCCC
DDDDDDD CCCCC BBB
A
FOR I=1 TO 4
?SPACE(10-I)
FOR J=1 TO 2*I-1
??CHR(64+I) ENDFOR ENDFOR
FOR I=3 TO 1 STEP -1
?SPACE(10-I)
FOR J=1 TO 2*I-1
??CHR(64+I) ENDFOR ENDFOR
38. 打印如下所示的九九乘法表
合肥精英学校专升本计算机基础复习资料 第 19 页 徐奇观编
?? SPACE(4)+\FOR I=1 TO 9
?? STR(I,5) ENDFOR ?
FOR I=1 TO 50
?? ‘-’ ENDFOR ?
FOR A=1 TO 9
??STR(A,5) FOR B=1 TO A
??STR(A*B,5) ENDFOR ? ENDFOR
数组
a1,a2,a3,a4??an
A(1),A(2),A(3),A(4)??A(N) DIMENSION A(5) A(1)=3 A(2)=A(1)*2
合肥精英学校专升本计算机基础复习资料 第 20 页 徐奇观编
A(3)=A(1)+A(2) A(4)=A(1)*A(2) A(5)=A(4)-A(1)
A(1) 3 A(2) 6 A(3) 9 A(4) 18 A(5) 15 39. 求FIBONACCI数列的第8项与第18项。 DIMENSION F(18) F(1)=1 F(2)=1
FOR I=3 TO 18
F(I)=F(I-1)+F(I-2) ENDFOR
? “第8项是:”,F(8) ? “第18项是:”,F(18)