主题：打印一个图形
小过
[专家分：0] 发布于 2006-06-06 17:59:00
V
V V
V V
V V
VVVVVVVVV
这个图形怎么打啊?
回复列表 （共9个回复）
沙发
求救 [专家分：40] 发布于 2006-06-06 21:46:00
for i=1 to 5
Print tab(6-i)；
FOR J=1 TO 2*I-1
IF J=1 OR J=2*I-1 THEN
PRINT "V"；
ELSE
IF I=5 THEN
PRINT "V"；
ELSE
PRINT " "； 带空格一个
END IF
END IF
NEXT J
NEXT I
END
板凳
ymxs [专家分：0] 发布于 2006-06-07 19:22:00
不行啊,最后那行错的
3 楼
老大徒伤悲 [专家分：29120] 发布于 2006-06-07 20:11:00
来简单一点：
n=5
PRINT tab(n)"V"； '第一行
for i=1 to n-1
Print tab(n-i)；"V"；tab(n+i-1)；"V" '其他行次
NEXT I
print tab(0);"V";
for i=1 to n '最后一行
print "VV";
next i
END
4 楼
zqnhlm [专家分：780] 发布于 2006-06-07 20:13:00
这不是QB书里的吗
5 楼
JRX [专家分：180] 发布于 2006-06-09 21:28:00
CLS
FOR I=1 TO 5
FOR J=1 TO 9
IF I=5 OR I+J=6 OR J-I=4 THEN
PRING "V";
ELSE
PRING " ";
ENDIF
NEXT J
PRING
NEXT I
END
(这是我自己编的,我运行过了,对了)
6 楼
小小傻瓜 [专家分：150] 发布于 2007-07-27 16:49:00
INPUT M,N
FOR I=1 TO M
FOR J=1 TO N
IF I=M OR I+J=M+1 OR J-I=M-1 THEN
PRING "V";
ELSE
PRING " ";
ENDIF
NEXT J
PRING
NEXT I
END
7 楼
我的电脑 [专家分：990] 发布于 2007-09-28 13:46:00
CLS
INPUT N
PRINT TAB(N);"V";
FOR I=1 TO N-1:PRINT TAB(N-I);"V";TAB(N+I-1);"V" :NEXT I
PRINT TAB(1);STRING$(2*N-1,"V")
END
8 楼
Lovely哆啦 [专家分：1360] 发布于 2007-09-28 21:29:00
cls
for i=1 to 5
if i=5 then
print string(9,"v")
else
print tab(6-i);"v":spc((i-1)*2-1):print "v"
end if
next i
end
9 楼
wx.psfx [专家分：10] 发布于 2007-10-17 11:41:00
cls
x1=4:x2=6
print tab(5);"v";
print
for i=1 to 3
print tab(x1);"v";tab(x2);"v"
x1=x1-1:x2=x2+1
next i
for i=1 to 9
print "v";
next i
end
我来回复
您所在位置：