高校问答兔子喜欢吃的草图片:急求:我的一题pascal作业提急解
来源：百度文库 编辑：高校问答 时间：2024/04/27 17:47:54
1
2 2 2
3 3 3 3 3
4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
4 4 4 4 4 4 4
3 3 3 3 3
2 2 2
1
那位高手帮帮小弟
2 2 2
3 3 3 3 3
4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
4 4 4 4 4 4 4
3 3 3 3 3
2 2 2
1
那位高手帮帮小弟
var i,j:integer;{循环变量}
begin
for i:=-4 to 4 do begin
for j:=1 to 2*(5-abs(i))-1 do write(5-abs(i):2);{2是场宽，基础知识}
writeln;{千万记得换行}
end;
end.
测试过的，可以的。
const
n=5;
var
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to i*2-2 do write(i,' ');
writeln(i);
end;
for i:=n-1 downto 1 do
begin
for j:=1 to i*2-2 do write(i,' ');
writeln(i);
end;
end.
我的短!!!!!!!!!
var i,j:integer;
begin
for i:=-5 to 5 do
begin
for j:=1 to (2*(6-abs(i))-1) do;
write((j+1)div2:2);
writeln;
end;
end.
很简单的主要是两重循环
都回答过了，我就不说了