A
BBB
CCCCC
DDDDDDD
CCCCC
BBB
A
谢谢了

[此贴子已经被作者于2007-11-1 20:58:43编辑过]

用FOR循环
比如输出 *
***
*****
*******
就这样写
procedure TForm1.Button5Click(Sender: TObject);
var
i,j: integer;
s: string;
begin
for i := 1 to 4 do
begin
for j := 1 to 4-i do
s := s + ' ';
for j := 1 to 2 * i - 1 do
s := s + '*';
s := s + chr(13);
end;
showmessage(s);
end;

end.

怎么那个循环语句
老师今天刚刚讲Delphi

var
i,j,k,l: integer;
s,st: string;

begin

for i := 1 to 4 do
begin
for j := 1 to 4-i do
s := s + ' ';
for j := 1 to 2 * i - 1 do
begin
st:=chr(ord('A')+i-1);
s := s + st;
end;
s := s + chr(13);

end;
for k := 3 downto 1 do
begin
for l := 3-k downto 1 do
s:=s+'';{ 空格没打出来，看了半天才看出来 }
for j := 2*k-1 downto 1 do
begin
st:=chr(ord('D')-(4-k));
s:=s+st;
end;
s:=s+chr(13);
end;

showmessage(s);
end;

谢谢了 刚学这 你后半部分可不可以不用DOWNTO写 就用都TO怎么写 我脑筋不会把它变过来 太苯了我

看懂了 thank you !!!!!!
以后还会有问题请教的
不介意吧