主题：这题目很难！！！≈
XX龟
[专家分：40] 发布于 2005-08-26 09:08:00
用单元方法输出如图52所示的由字符组成的三角形！！
A
ABA
ABCBA
ABCDCBA
ABCDEDCBA
回复列表 （共12个回复）
沙发
我是一只鱼 [专家分：170] 发布于 2005-08-26 09:23:00
CLS
n$ = "ABCDEDCBA"
d = (LEN(n$) + 1) / 2
FOR j = 1 TO d
PRINT TAB(30 - j);
PRINT LEFT$(n$, j);
PRINT RIGHT$(n$, j - 1);
NEXT j
END
[em19][em19][em19]
板凳
dznick [专家分：60] 发布于 2005-08-26 10:12:00
CLS
a$ = "ABCDEDCBA"
FOR i = 1 TO 5
PRINT TAB(30 - i);
PRINT LEFT$(a$, i) + RIGHT$(a$, i - 1);
PRINT
NEXT i
END
3 楼
莹萍 [专家分：130] 发布于 2005-08-27 10:00:00
FOR i = 1 TO 5
PRINT TAB(10 - i);
IF i = 1 THEN
PRINT CHR$(64 + i);
ELSE
FOR j = 1 TO i
PRINT CHR$(64 + j);
NEXT j
FOR j = i - 1 TO 1 STEP -1
PRINT CHR$(64 + j);
NEXT j
END IF
PRINT
NEXT i
END
4 楼
spray [专家分：180] 发布于 2005-09-01 06:19:00
建议：请在标题中具体、明确点明主题，最好不用“小菜问题”、“跪求”之类的模糊标题。
5 楼
pkqs90 [专家分：100] 发布于 2005-09-03 13:31:00
CLS
n$ = "ABCDEDCBA"
d = (LEN(n$) + 1) / 2
FOR j = 1 TO d
PRINT TAB(30 - j);
PRINT LEFT$(n$, j);
PRINT RIGHT$(n$, j - 1);
NEXT j
END
第一楼写的程序很有问题，如果打出来的话，那么肯定不会空行。
6 楼
半杯果冻汁 [专家分：10] 发布于 2005-09-11 11:41:00
For i = 1 To 5
s = "A"
Print Tab(10 - i);
For j = 1 To i
s = Chr(64 + j)
Print s;
k = k + 1
If k < i Then t = s + t
Next j
k = 0
Print t
t = ""
Next i
7 楼
def [专家分：3380] 发布于 2005-09-11 17:52:00
不是很难
8 楼
lzh609754893 [专家分：20] 发布于 2008-11-30 09:35:00
[quote]CLS
n$ = "ABCDEDCBA"
d = (LEN(n$) + 1) / 2
FOR j = 1 TO d
PRINT TAB(30 - j);
PRINT LEFT$(n$, j);
PRINT RIGHT$(n$, j - 1);
NEXT j
END
第一楼写的程序很有问题，如果打出来的话，那么肯定不会空行。[/quote]
空了行好么
我试了一下
9 楼
天天和和 [专家分：1420] 发布于 2009-01-04 22:12:00
CLS
FOR I = 1 TO 5
PRINT TAB(6 - I);
K = 1
FOR J = 1 TO I * 2 - 1
PRINT CHR$(64 + K);
IF J >= I THEN K = K - 1 ELSE K = K + 1
NEXT J: PRINT
NEXT I
END
10 楼
三国风云 [专家分：140] 发布于 2009-01-05 15:23:00
暑假当中，妈妈让小慧帮忙修改英文资料，英文中还有一些统计数据（统计数据都是正整数，而且其前、后都有空格）。妈妈说：如果文档结尾处有“end”,则应当删除，文中所有的统计数据都要加上一个正整数m。你能编程序完成小慧的任务吗？
输入：m
待修改后的文档（字符串）
输出：修改后的文档（字符串）
例如：输入：13
There are 45 students in 32class.end
输出：There are 58 students in 32class.
我来回复
您所在位置：