Pascal程序 用*打印一个三角形图案的程序（要有解说哦！）

无

以下是一个输出等腰空心三角形的程序。如果不要等腰或者空心的，可以根据注释来修改。

var

{}i,j,n:longint;

begin

{}readln(n);  //输出n行的三角形

{}for i:=n-1 downto 1 do begin  //先输出前n-1行的三角形

{}{}for j:=1 to i do write(' ');    //三角形前面留空，如果不是等腰的就去掉

{}{}write('*');  //输出第一个‘*’

{}{}for j:=1 to (n-i-1)*2-1 do write(' ');  //空心三角形的话中间要空格，如果是实心的话把空格改成‘*’就行

{}{}if i<>n-1 then write('*');  //预防第一行输出两个‘*’

{}{}writeln;  //最后要换行

{}end;

{}for i:=1 to n*2-1 do write('*');writeln; //最后一行的‘*’

end.

因为怕程序连成一行，所以我用{}来隔开，可以去掉，也可以把每个{}改成两个空格。