Question

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

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

Answer 1

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循环的公式我没有化简,是为了表示的更清楚些.

Answer 2

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;

Answer 3

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.

Answer 4

program
lk;
var
i,j:Longint;
begin
for
i:=5
downto
1
do
begin
for
j:=1
to
i
do
write(2);
writeln;
end;
end.