急!如何利用Pascal程序打出一个三角形?

来源：百度知道 编辑：UC知道 时间：2024/05/05 00:33:47
怎么利用Pascal程序中的for语句循环来打出如下图形?
1111222222222
111112222222
11111122222
1111111222
111111112
"2"没有什么实际意义,"1"是程序中输出的空格,重要的是字符输出来以后是一个倒的金字塔形状,(好象要应用到场域的知识,而且好象得套三个for的循环)希望会的高手指教一下.

var i,j:longint;

begin
for i:=5 to 9 do begin
write(2:i);
for j:=1 to 13-5-2*(i-5) do write(2);
writeln;
end;
end.

是用到了场域,但只需要两重循环,三重循环肯定多了些无用的东西.j循环的公式我没有化简,是为了表示的更清楚些.

for i:=1 to n Do
Begin
For j:=1 to i+3 Do
write(' ');
For j:=1 to 11-2*i Do
Write('字符');
Writeln;
End;

var i,j,k,m,n:longint;
begin
m:=9;n:=4;
for i:=1 to 5 do begin
for j:=1 to n do write(' ');
for k:=1 to m do write(2);
m:=m-2;
n:=n+1;
writeln;
end;
writeln;
end.