回 帖 发 新 帖 刷新版面

主题:求QBASIC文本作图问题

求助:文本作图问题:
       1
    1  2  1
 1  2  3  2  1
我对上面的文本作图问题是这样编程的:
cls
for i=1 to 3
   print tab(10-3*i);
   for j=1 to 2*i-1
       if j<=i then
          print j;
       else
          print 2*i-j;
       end if
   next j
   print
next i
end


而对如下程序:
       1
    1  2  1
 1  2  3  2  1
    1  2  1
       1

上面程序的编程如下其中空的地方,应该是输出语句,绞尽脑汁,想不出表达式,请大家帮我?
for i=-2 to 2
    print tab(3*abs(i)+1);
    for j=-(2-abs(i)) to 2-abs(i)
        




     next j
     print
next i
end


 

回复列表 (共1个回复)

沙发

print 3-abs(i)-abs(j);

我来回复

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