初学者的问题，关于PASCAL

Question

如何打出如下图形
                 *
                ***
               *****
              *******
               *****
                ***
                 *

Answer 1

会C么?和C的一样打印呀.
笨的办法是做两次循环.灵活的就一次够了.
Pascal里循环是
for i:=0 to X do
打印
write()

Answer 2

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('    *    ');
  writeln('   ***   ');
  writeln('  *****  ');
  writeln(' ******* ');
  writeln('  *****  ');
  writeln('   ***   ');
  writeln('    *    ');
  readln;
end.
嘿嘿，简单不简单～～

Answer 3

naughtyboy(一切都是为了明天)
佩服!!!和我想的一样,^_^

Answer 4

var
i,j,k,l:integer;
begin
i:=10;
j:=i div 2 ;
j:=j+1;
k:=j;
while k>0 do 
begin
  for l:=0 to k do 
    begin
      write(' ');
    end;
    //print'*'
end; 
k:=j;
while k<i+1 do
begin
  //same mothd print space or '*'
end;

Answer 5

做老了，把基本的东西扔了，也许我的DELPHI语法都不对，包含则个！

Answer 6

给　naughtyboy(一切都是为了明天) 加分，这种问题的回答，　精彩！

Answer 7

program   XXXXX
begin
  writeln('    *    ');
  writeln('   ***   ');
  writeln('  *****  ');
  writeln(' ******* ');
  writeln('  *****  ');
  writeln('   ***   ');
  writeln('    *    ');
 end.
这样应该可行吧!

Answer 8

是要用
for循环来写啊
怎么变成这样?????