许冠杰历届年演唱会:一个非常简单的程序,我这样结果不对,你们看看(可以修改,也可以重写)

来源：百度文库编辑：高校问答时间：2024/05/06 18:09:25

题目:
编程实现输入一个字母，输出一个菱形。该菱形中间一行由此字母组成，其相邻的上下两行由它前面的一个字母组成，按此规律，直到字母a出现在第一行和最末行为止。
例如：输入字母d，输出如下：
a
b b b
c c c c c
d d d d d d d
c c c c c
b b b
a

我的程序:
program g26;
var x:char;
a,b,i,j,m,n:integer;
begin
readln(x);
a:=ord(x);
for i:=1 to a do
begin
for j:=1 to (a-i) do
write(' ');
for j:=1 to (2*i-1) do
write(chr(j));
writeln;
end;
for i:=(a-1) downto 1 do
begin
for j:=1 to (a-i) do
write(' ');
for j:=i to (2*i-1) do
write(chr(j));
writeln;
end;
end.
!!!!!!!!!!!!!!注意!!!!!!!!!!!!!!
输出是菱形!!!!!
这里前面的空格被省略了!!!!!
!!!!!!!!!!!!!!注意!!!!!!!!!!!!!!

对的,我试过了

一个非常简单的程序,我这样结果不对,你们看看(可以修改,也可以重写) 简单的C++ 程序为何输出结果不对？求助：我的程序为什么编译后结果不对？一个非常简单的script程序错在那里？帮忙看一个非常简单的vb程序小学的简单程序，到底哪里不对？非常简单的程序编程 JSP高手入：一个简单的关于自定义标签的JSP程序，输出内容为何不对？ jbuilder怎样执行这样一个简单的程序？请问有谁有好用的TC啊，我的TC怎么调试成功后不显示结果，黑屏，然后没了，最简单的程序都是这样的