一道图形题目 — 编程爱好者社区

主题：一道图形题目

周洲 [专家分：0] 发布于 2005-01-09 15:30:00

打印如下图形
  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
我做不来,请高手解答,要用很巧妙的方法!要巧妙!!!!!!!!!

沙发

shiyr [专家分：390] 发布于 2005-01-09 18:34:00

sub p(w,y)
buf$ = ""
for k = 0 to w-1:buf$ = buf$ + str$((k+y) mod w +1):next
print buf$
end sub

input a
for i = 0 to a-1:p(a,i):next

应该不会错

板凳

rickone [专家分：15390] 发布于 2005-01-09 20:43:00

要巧妙的是吧，好：
for i=1 to 5
for j=i to i+4
if j>5 then ? j-5; else ? j;
next
?
next

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