求一个Pascal样程

来源：百度知道 编辑：UC知道 时间：2024/07/08 00:37:08
利用循环嵌套读入打印行数n，打印n行如下图形（例图以n=7为例）：
1.
D
CDC
BCDCB
ABCDCBA
BCDCB
CDC
D
2.
ABCDCBA
BCDCB
CDC
D
CDC
BCDCB
ABCDCBA

最好两个都给，只给一个也行~！
急，在线等~
视回答给分~
只给一个就行了~~

题有问题，更正
2.
ABCDCBA
*BCDCB
**CDC
***D
**CDC
*BCDCB
ABCDCBA
1.
***D
**CDC
*BCDCB
ABCDCBA
*BCDCB
**CDC
***D

*为空格
相同的字母在同一直线上

//题目有点问题吧，比如6行，该输出什么？

program a2;
var
i,j,k,n:integer;
begin

writeln('input lines:');
read(k);
n:=(k+1) div 2;
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=n-i to n-1 do write(chr(65+j));
for j:=n-2 downto n-i do write(chr(65+j));
writeln;
end;
for i:=n-1 downto 1 do
begin
for j:=1 to n-i do write(' ');
for j:=n-i to n-1 do write(chr(65+j));
for j:=n-2 downto n-i do write(chr(65+j));
writeln;
end;
end.