主题：求图形编程的问题
蓝色的水晶
[专家分：90] 发布于 2006-11-15 09:34:00
编程:打印下边的图形;
1
121
12321
1234321
看到此论坛中都是高手,且问出的问题我都感到深奥无比。有时有许多自己难以解决的问题就羞于发贴，但几翻犹豫发贴后，大家的回贴都让我茅塞顿开，感到学到了知识，自己又向前走了一步。希望热心朋友加我QQ：87902661，以助我迅速成长。
回复列表 （共4个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2006-11-15 19:41:00
这个图形，最多到9行，再多就要用字母，比较麻烦。
代码如下：
Do
Input "请输入行数：",n
Loop Until n > 1 and n <10
For i = 1 To n
Print Tab(n - i + 1);
For j = 1 To i
Print LTrim$(Str$(j));
Next j
For j = i - 1 To 1 Step -1
Print LTrim$(Str$(j));
Next j
Print
Next i
end
另，推荐网页http://www.6edu.org.cn/news/readnews.asp?newsid=8058&page=2
《FP的QB教程》的第二篇
板凳
Lovely哆啦 [专家分：1360] 发布于 2007-03-30 21:52:00
楼上的太过于麻烦了
CLS
INPUT N
FOR I = 1 TO N
K = 0
PRINT TAB(N + 1 - I);
FOR J = 1 TO I * 2 - 1
IF J <= I THEN K = K + 1 ELSE K = K - 1
PRINT CHR$(48 + K);
NEXT J
PRINT
NEXT I
END
3 楼
爱丽斯LING [专家分：560] 发布于 2007-04-01 16:28:00
Do
Input "请输入行数：",n
Loop Until n > 1 and n <10
For i = 1 To n
Print Tab(n - i + 1);
For j = 1 To i
Print LTrim$(Str$(j));
Next j
For j = i - 1 To 1 Step -1
Print LTrim$(Str$(j));
Next j
Print
Next i
end
4 楼
小精灵LS [专家分：580] 发布于 2007-04-01 16:44:00
cls
input n
for i=1 to n
print tab(n+1-i);:k=0
for j=1 to i*2-1
if i<=j then k=k+1 else k=k-1
print using"#";k;
next j:print
next i
end
我来回复
您所在位置：