回 帖 发 新 帖 刷新版面

主题:QB新入门的学员请教高手两道数组题

1, 从键盘输入n(0<n<10),输出对应的数字图形。例如N=5时,输出图形如下:
   1  2  3  4  5
   2  3  4  5  1
   3  4  5  1  2
   4  5  1  2  3
   5  1  2  3  4

2, 从键盘输入n (0<n<10) ,输入对应的数字方阵。例如 N=6时, 输出方阵如下:

   1   1   1    1   1   1
   1   2   1    1   2   1
   1   1   3    3   1   1
   1   1   4    4   1   1
   1   5   1    1   5   1
   6   1   1    1   1   6

回复列表 (共4个回复)

沙发

请教高手,多谢!!!盼回复!!!

板凳

答案出来了,请高手指教

1. OPTION BASE 1
DO
  INPUT "N="; N
LOOP UNTIL N > 0 AND N <= 10
DIM A(N, N)
FOR I = 1 TO N
  FOR J = 1 TO N
    A(I, J) = I + J - 1
    IF A(I, J) > N THEN A(I, J) = A(I, J) - N
  NEXT J
NEXT I
FOR I = 1 TO N
  FOR J = 1 TO N
    PRINT A(I, J);
  NEXT J
  PRINT
NEXT I
END

3 楼

2.
cls
do
  input "n=";n
loop until n > 0 and n < 10
for i = 1 to n
  for j = 1 to n
    a( i , j ) = 1
next j , i
for i = 1 to n
  a( i , i ) = i
  a( i , n + 1 - i ) = i
next i
for i = 1 to n
  for j = 1 to n
    print a( i , j );
  next j
  print
next i
end

4 楼

OPTION BASE 1?用这个干吗

我来回复

您尚未登录,请登录后再回复。点此登录或注册