Question

pascal循环结构的嵌套的图形题

1、 * 2、 1
*** 121
***** 12321
******* 1234321
***** 123454321
***
*
我真的很急，拜托各位pascal高手帮忙解答一下！如果好，我还会加分的！快，一定要快！拜托各位大侠了！
第一题是菱形，第二题是三角形！

Answer 1

var
i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i-1 do
write(j,' ');
for j:=i downto 2 do
write(j,' ');
writeln(1);
end;
end.
先给第二个，第一个描述不太清楚啊
var
i,j,n,half:longint;
begin
readln(n);
half:=n div 2;
for i:=1 to half do
begin
for j:=1 to half-i+1 do
write(' ');
for j:=1 to i*2-1 do
write('*');
writeln;
end;
for i:=1 to n do
write('*');
writeln;
for i:=half downto 1 do
begin
for j:=1 to half-i+1 do
write(' ');
for j:=1 to i*2-1 do
write('*');
writeln;
end;
end.

这是读入棱形的最长边（只能为奇数），如果要可以读偶数就改成
var
i,j,n,half:longint;
begin
readln(half);
for i:=1 to half do
begin
for j:=1 to half-i+1 do
write(' ');
for j:=1 to i*2-1 do
write('*');
writeln;
end;
for i:=1 to n do
write('*');
writeln;
for i:=half downto 1 do
begin
for j:=1 to half-i+1 do
write(' ');
for j:=1 to i*2-1 do
write('*');
writeln;
end;
end.