主题：请教mltx老师，关于方阵输出的问题（急），谢谢！
lily123
[专家分：0] 发布于 2006-01-12 15:33:00
输入任意5个数放在数组中，假定输入5个数为1，2，8，2，10请用三种方法打印出以下方阵（一道作业题）
1 2 8 2 10
2 8 2 10 1
8 2 10 1 2
2 10 1 2 8
10 1 2 8 2
谢谢[em2]
回复列表 （共6个回复）
沙发
moz [专家分：37620] 发布于 2006-01-12 15:48:00
怎么我记得昨晚才写了给你的，现在就不记得去哪了？
你找的人好像没来过QB论坛喔。
a$=" 1 2 8 2 10"
for i=1 to 5
print a$
a$=right$(a$,12)+left$(a$,3)
next
板凳
lily123 [专家分：0] 发布于 2006-01-12 17:25:00
哦
不好意思
我看到了
因为要用不同的语言编写
还要用fortran编一下
非常感谢moz！！！
3 楼
飞鸟12 [专家分：2830] 发布于 2006-01-12 18:07:00
DIM a(0 TO 5) AS INTEGER
FOR i = 1 TO 5
READ a(i)
NEXT i
DATA 1,2,8,2,10
CLS
FOR j = 1 TO 5
FOR i = 1 TO 5
PRINT USING "###"; a(i);
NEXT i
PRINT
FOR i = 0 TO 4
a(i) = a(i + 1)
NEXT i
a(5) = a(0)
NEXT j
END
输出为：
1 2 8 2 10
2 8 2 10 1
8 2 10 1 2
2 10 1 2 8
10 1 2 8 2
4 楼
lily123 [专家分：0] 发布于 2006-01-15 08:53:00
[em2]谢谢各位高手的指点！
5 楼
困难 [专家分：50] 发布于 2006-01-15 10:45:00
input "abc=",a$
for i = 1 to len(a$)
print a$
next i
end
'这样是不是好点,输入几个数输出的都是方阵
6 楼
rickone [专家分：15390] 发布于 2006-01-17 21:22:00
我试试用QB
'data input
data 1,2,8,2,10
dim a(1 to 5)
for i=1 to 5
read a(i)
next i
'//input
'
'application start
for i=1 to 5
for j=1 to 5
t=i+j-1
if t>5 then t=t-5
print a(t);
next j
print
next i
'end
我来回复
您所在位置：