请摆出一个下面的图形。
freepascal编程的。输入一个n，就有一个倒立的字母三角形，n代表行数，例如n=5；就输出EDCBABCDEDCBABCDCBABCBABA本人已把不倒立的程序做出...
free pascal编程的。
输入一个n，就有一个倒立的字母三角形，n代表行数，例如n=5；就输出 EDCBABCDE
DCBABCD
CBABC
BAB
A
本人已把不倒立的程序做出来了。
如下：
var
k,i,x,n:longint;
begin
readln(n);
k:=n-1;
for i:=1 to n do
begin
for x:=1 to k do
write(' ');
for x:=1 to 2*i-1 do
write(chr(65+abs(x-i)));
writeln;
dec(k);
end;
end.
以上程序只需修改哪里？？？
另外，如果再用自己的方法做一遍就可以多加五十分！ 展开
输入一个n，就有一个倒立的字母三角形，n代表行数，例如n=5；就输出 EDCBABCDE
DCBABCD
CBABC
BAB
A
本人已把不倒立的程序做出来了。
如下：
var
k,i,x,n:longint;
begin
readln(n);
k:=n-1;
for i:=1 to n do
begin
for x:=1 to k do
write(' ');
for x:=1 to 2*i-1 do
write(chr(65+abs(x-i)));
writeln;
dec(k);
end;
end.
以上程序只需修改哪里？？？
另外，如果再用自己的方法做一遍就可以多加五十分！ 展开
- 你的回答被采纳后将获得：
- 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏30（财富值+成长值）
展开全部
这个程序极其简单，没必要用Abs这类函数和乘法运算，会降低程序运行效率。代码长未必代表程序运行效率不高，代码简洁不代表程序执行效率就上去了。Abs函数展开成汇编会较长，浮点运算效率远不如加法运算。
program Trial;
var
n, i, j: Integer;
begin
Readln(n);
for i := n downto 1 do
begin
for j := 1 to n - i do Write(#32); //打印空格
for j := i downto 1 do Write(Chr(j + 64)); //倒序打印字母
for j := 2 to i do Write(Chr(j + 64)); //正序打印字母
Writeln;
end;
Readln;
end.
program Trial;
var
n, i, j: Integer;
begin
Readln(n);
for i := n downto 1 do
begin
for j := 1 to n - i do Write(#32); //打印空格
for j := i downto 1 do Write(Chr(j + 64)); //倒序打印字母
for j := 2 to i do Write(Chr(j + 64)); //正序打印字母
Writeln;
end;
Readln;
end.
更多追问追答
追问
请问（#32）是什么意思啊？
追答
#32就是空格的ASCII字符啊，Write(#32)相当于Write(' ')。赶紧结贴...
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
