求个题 我是新手^_^"输出一个字母塔如下 A ABA ABCBA …… ABCDE…………EDCBA代码加点注释，谢谢了。可以加我QQ263741061 各位高手教教我^_^

这个程序太简单了，一目了然，我看不用加注释了吧？var c,d:char;beginfor c:='A' to 'Z' dobeginfor d:=succ(c) to 'Z' do write(' ');for d:='A' to c do write(d);for d:=pred(c) downto 'A' do write(d);writelnend;readlnend.

贴吧真会搞乱！楼上的(c)应该是括号里有个字母c。var c,d:char;beginfor c:='A' to 'Z' dobeginfor d:=succ( c) to 'Z' do write(' ');for d:='A' to c do write(d);for d:=pred( c) downto 'A' do write(d);writelnend;readlnend.

括号里写个字母c只要发到帖子上就变成了圆圈里有个c。

我试试(c)

哇,真的可以啊!

(c)

program pb;var n,i,j:byte;{n为小于26的整数 故使用byte}st1,st2:string[25];{控制输出 也可以用两个循环实现}c:char;{控制输出的字符}begin readln(n);//input for i:=1 to n do begin for j:=1 to n-i do write(' ');//行前空格 c:='a';st1:='';st2:='';//初始化 for j:=1 to i-1 do begin st1:=st1+c;//在st1和st2中添加字符 st2:=c+st2; inc(c);//控制字符进位 end; writeln(st1,c,st2);//输出 end;end.

abc

7楼的没3楼的省事。

(c)

（I）（c)

(C)

(c)

(a)

(c)

(c)

C

(c)

（c）