帮忙打一个星号代码

Question

图形如下:                    ***************
                     *************
                      ***********
                       *********
                        *******
                         *****
                          ***
                           *
用Delphi输入，代码怎么写?

Answer 1

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;
var
  I, J : integer;
  S: string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  I := 15;
  J := I;
  SetLength(S, I);
  while J>0 do begin
    FillChar(S[1], I, ' ');
    FillChar(S[(I-J)div 2 + 1], J, '*');
    WriteLn(S);
    Dec(J, 2);
  end;
  ReadLn;
end.

Answer 2

{上面是控制台的
 再来一个Form版的}
procedure TForm1.Button1Click(Sender: TObject);
var
  I, J : integer;
  S: string;
begin
  I := 15;
  J := I;
  SetLength(S, I);
  while J>0 do begin
    FillChar(S[1], I, ' ');
    FillChar(S[(I-J)div 2 + 1], J, '*');
    Self.Canvas.TextOut(20, (I-J)*5+10, S);
    Dec(J, 2);
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Font.Assign(Screen.MenuFont);
end;