pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 22:37:45
![pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一](/uploads/image/z/4325563-19-3.jpg?t=pascal%E8%BE%93%E5%85%A5%E4%B8%8B%E5%88%97%E8%8F%B1%E5%BD%A2%2C%E8%A1%8C%E6%95%B0n%E7%94%B1%E9%94%AE%E7%9B%98%E8%BE%93%E5%85%A5%2C%E4%B8%8B%E5%9B%BE%E4%B8%ADn%3D4.%2A++++++++++++++++++++++%2A%2A%2A++++++++++++++++++++++++++++++++++++++++++%2A%2A%2A++++++++++++++++++++++++%2A%2A+++++++++++++++++++++++++++++++%2A%2A%2A+++++++++++++++++++++++++++++++%2A%2A%2A+++++++++++++++++%2A%E7%AC%AC%E4%B8%80)
pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一
pascal输入下列菱形,行数n由键盘输入,下图中n=4.
*
***
***
*
*
***
***
*
第一个*应在***正中间.
pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一
Program diamond;
Var i,j,k,n:integer;
Begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for k:=1 to 2*i-1 do write('*');
writeln;
end;
for i:=n-1 downto 1 do
begin
for j:=1 to n-i do write(' ');
for k:=2*i-1 downto 1 do write('*');
writeln;
end;
End.