查人人中国名人网债券违约原因:打印下列图形(pascal)
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 22:35:38
（1） ***** （2）*
***** * *
***** * * *
***** * * * *
以上作废，打印平行四边形和三角形如下图
***** *
***** * *
***** * * *
***** * * * *
***** * *
***** * * *
***** * * * *
以上作废，打印平行四边形和三角形如下图
***** *
***** * *
***** * * *
***** * * * *
只写关键部分：
procedure Q1();
var i:integer;
j:integer;
begin
for i:=0 to 3 do
begin
for j:=0 to i do{打印空格}
write(" ");
writeln("*****");
end
end
procedure Q2();
var i:integer;
j:integer;
begin
for i:=0 to 3 do{打印0~3行}
begin
for j:=0 to 3-i do{打印空格}
write(" ");
for j:=0 to i do
writeln("* ");
end
end