UC知道问个pascal问题 急！
来源：百度知道 编辑：UC知道 时间：2024/09/27 18:19:51
程序可以运行，但是输入什么n 图形都一样，是n=2 的图形 而n似乎是图形上下空的行数 请问怎么修改才可以输出菱形与n有关啊？谢谢！越详细越好 定追加悬赏至少30~~
var n,i,j:integer;
begin
readln(n);
for i:=-n to n do begin
for j:=1 to abs(i) do write(' ');
for j:=1 to 1+(2-abs(i))*2 do write('*');
writeln;
end;
end.
var n,i,j:integer;
begin
readln(n);
for i:=-n to n do begin
for j:=1 to abs(i) do write(' ');
for j:=1 to 1+(2-abs(i))*2 do write('*');
writeln;
end;
end.
var n,i,j:integer;
begin
readln(n);
for i:=-n to n do begin
for j:=1 to abs(i) do write(' ');
for j:=1 to 1+(n-abs(i))*2 do write('*'); //把原来的2改成n
writeln;
end;
end.
//很难说清楚为什么 自己理解
//模拟一次就知道了