Question

求高手帮忙字母金字塔pascal

打印字母塔
A
ABA
ABCBA
ABCDCBA
.........
ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFECBA
请附上详细说明好吗？编码有些无法理解
前面有空格的，请详细解释一下好吗？谢谢

Answer 1

var j:char;
i:integer;
begin
for i:=1 to 26 do
begin
write('':(26-i));{打印空格}
for j:='A' to chr(ord('A')+i-1) do write(j);{从小到大打印字母}
if i>1 then {判断需不需要从大到小打印}
for j:=chr(ord('A')+i-2) downto 'A' do write(j);{从大到小打印字母}
writeln;{换行}
end;
end.

{这是现编的虽然跟前面的人有点类似，但我可是自己做的。而且我的程序效率应该比第一个人的高。他的程序每次打印都要读ASCII码表，而我的只要读一次。}

Answer 2

var
i,j:integer;
begin
for i:=1 to 26 do
begin
for j:=1 to (26-i)do
write(' ');{打印前面的空格}
for j:=1 to i do
write(chr(ord(a)+j-1));{从小到大打印字母}
for j:=(i-1) downto i do
write(chr(ord(a)+j-1);{从大到小打印字母}
writeln;
end;
end.