请教:利用二维数组编写一个程序,建立并输出一个除了对角线元素为1,其余元素都为0的 ...

主题：请教:利用二维数组编写一个程序,建立并输出一个除了对角线元素为1,其余元素都为0的 ...

whj8820 [专家分：0] 发布于 2006-03-06 09:24:00

请教:利用二维数组编写一个程序,建立并输出一个除了对角线元素为1,其余元素都为0的 10*10 的矩阵.
谢谢了!我菜鸟一个,只是对QBASIC 感兴趣!

本帖地址： http://bbs.pfan.cn/post/145374.html

回复列表（共5个回复）

沙发

p1s [专家分：4100] 发布于 2006-03-06 10:48:00

双重循环，循环控制变量i和j为二维数组下标，循环中当i=j或者i=10-j时，该元素的值为1，否则为0

板凳

def [专家分：3380] 发布于 2006-03-26 15:07:00

dim c(10,10)
for i=0 to 10
c(i,i)=1
next
for i=10 to 0
c(10-i,i)=1
next
'也许是

3 楼

JRX [专家分：180] 发布于 2006-06-10 10:57:00

利用二维数组编写一个程序,建立并输出一个除了对角线元素为1,其余元素都为0的 10*10 的矩阵.
CLS
DIM A(10,10)
FOR I=1 TO 10
  A(I,I)=1
  A(I,10-I)=1
NEXT I
FOR I=1 TO 10
  FOR J=1 TO 10
    ? UISNG"###";A(I,J);
  NEXT J
NEXT I
END

4 楼

老大徒伤悲 [专家分：29120] 发布于 2006-06-10 20:54:00

DIM A(10,10)
FOR I=1 TO 10
  FOR J=1 TO 10
    IF I=J THEN
      A(I,J)=1
    ELSE
      A(I,J)=0
    END IF
  NEXT J
NEXT I

5 楼

diylym [专家分：30] 发布于 2006-07-26 12:31:00

DIM A(10,10)
FOR I=1 TO 10
  FOR J=1 TO 10
    IF I=J THEN
      A(I,J)=1
    ELSE
      A(I,J)=0
    END IF
  NEXT J

NEXT I
这样行吗？

我来回复

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

主题：请教:利用二维数组编写一个程序,建立并输出一个除了对角线元素为1,其余元素都为0的 ...

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教:利用二维数组编写一个程序,建立并输出一个除了对角线元素为1,其余元素都为0的 ...

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）