作业帮 > 综合 > 作业

vfp二级题目.分多多.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 02:52:52
vfp二级题目.分多多.
INPUT "M=" TO M
DIME A(M,M)
FOR I=1 TO M
FOR J=1 TO M
IF I=J
A(I,J)=' 1'
ELSE
A(I,J)=' 0'
ENDIF
A(I,J)
ENDF
ENDF
当m=3时,输出结果为1 0 0
0 1 0
0 0 1 这是为什么?
INPUT "M=" TO M
DIME A(M,M) && 定义数组 M 行 M 列
FOR I=1 TO M
? && 每行换行
FOR J=1 TO M
IF I=J && 数组每逢 I=J 即数组的 \ 对角线 为 1, 否则为 0
A(I,J)=' 1'
ELSE
A(I,J)=' 0'
ENDIF
? A(I,J) && 输出数组的一行
ENDF
ENDF