free pascal语言.打印下列图形(共4个).用循环.
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/30 18:18:38
free pascal语言.打印下列图形(共4个).用循环.
8
88
888
8888
1
121
12321
1234321
#空空空空@
#空空@@
###@@@
8
88
888
8888
1
121
12321
1234321
#空空空空@
#空空@@
###@@@
![free pascal语言.打印下列图形(共4个).用循环.](/uploads/image/z/5997077-53-7.jpg?t=free+pascal%E8%AF%AD%E8%A8%80.%E6%89%93%E5%8D%B0%E4%B8%8B%E5%88%97%E5%9B%BE%E5%BD%A2%EF%BC%88%E5%85%B14%E4%B8%AA%EF%BC%89.%E7%94%A8%E5%BE%AA%E7%8E%AF.)
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;
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;