free pascal语言.打印下列图形(共4个).用循环.88888888881121123211234321#空空空空@#空空@@###@@@

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/01 14:03:19
free pascal语言.打印下列图形(共4个).用循环.88888888881121123211234321#空空空空@#空空@@###@@@

free pascal语言.打印下列图形(共4个).用循环.88888888881121123211234321#空空空空@#空空@@###@@@
free pascal语言.打印下列图形(共4个).用循环.
8
88
888
8888
1
121
12321
1234321
#空空空空@
#空空@@
###@@@

free pascal语言.打印下列图形(共4个).用循环.88888888881121123211234321#空空空空@#空空@@###@@@
for i:=1 to 4 do
begin
for j:=1 to i do write('8');
writeln;
end;
for i:=-5 to 5 do
begin
for j:=1 to 5-abs(i) do write(' ');
for j:=1 to abs(I)*2-1 do write('*');
writeln;
end;
for i:=1 to 4 do
begin
for j:=1 to 4-i do write(' ');
for j:=-i+1 to i-1 do write(i-j+1);
writeln;
end;
for i:=1 to 3 do
begin
for j:=1 to i do write('#');
for j:=1 to (3-i)*2 do write(' ');
for j:=1 to i do write('@');
writeln;
end;