中科新闻网扬州大学吴洪海:pascal编程问题!急!!
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 03:15:21
输出由字母组成的“字母塔”。例如：输入C，则输出：
A
ABA
ABCBA
ABCDCBA
***A
**ABA
*ABCBA
ABCDCBA
*:为空格
A
ABA
ABCBA
ABCDCBA
***A
**ABA
*ABCBA
ABCDCBA
*:为空格
如果每行前面没有空格的话：
Var
i,j,c:Char;
Begin
Readln(c);
For i:='A' To chr(ord(c)+1) Do Begin
For j:='A' To chr(ord(i)-1) Do Write(j);
For j:=i downto 'A' Do Write(j);
Writeln;
End;
End.
考虑到百度知道会自动删除空格，那么保留每行前面的空格的程序是
Var
i,j,c:Char;
Begin
Readln(c);
For i:='A' To chr(ord(c)+1) Do Begin
For j:='A' To chr(65+ord(c)-ord(i)) Do Write(' ');
For j:='A' To chr(ord(i)-1) Do Write(j);
For j:=i downto 'A' Do Write(j);
Writeln;
End;
End.
o