编程序打印出下列图案 用pascal的for循环做， 不要发错的过来，谢谢诶

平行四边形 等腰三解形　　菱形

　****** * 　 *

****** *** ***

****** ***** *****

****** ******* ***

****** ********* *

平行四边形：


var

i,j,n,m:integer;



begin

n:=3; m:=10; (*3行6列*)

for i:=1 to n do

begin

for j:=1 to n-i do write(' ');

for j:=1 to m do write('*');

writeln;

end;

end.


等腰三角：

var
i,j,n:integer;

begin
n:=5; (*5行*)
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to 2*i-1 do write('*');
writeln;
end;
end.


菱形：

var
i,j,n,k:integer;

begin
n:=5; (*5*2=10行的菱形*)
k:=1; i:=1;
while i > 0 do
begin
for j:=1 to n-i do write(' ');
for j:=1 to 2*i-1 do write('*');
if i=n then k:=-k;
inc(i,k);
writeln;
end;
end.


望采纳

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息