简单的Pascal编程题

来源：百度知道编辑：UC知道时间：2024/05/03 20:27:58

要打印下面的图形，应该用什么语句？
*
***
*****
*******
*********
在百度知道里打空格没用，所以：
第一行场宽为5；第二行场宽为6；第三行为7；第四行8；第五行9。

一楼的，我知道要用for语句，可是怎么写呢？还有，场宽的问题怎么解决呢？

var
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5-i do write(' ');
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
end.
要改行数就改"5"

Program xxx;
Var
i,j:integer;
Begin
for i:=1 to 5 do
begin
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
End.

你可以在打*之后继续输出空格啊
for i:=1 to 5
begin
输出*
输出i+4个空格即可
换行
end;

for 语句就ok拉！