作业帮 > 综合 > 作业

pascal编程打印如下星号图形

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 17:08:30
pascal编程打印如下星号图形
【FOR】打印图形(七)
Time Limit:1000MS Memory Limit:65536K
Total Submit:19 Accepted:10
Description
打印如下类型的图案.
Input
输入一个数n.
Output
输出n*n大小的图形.
图例是n=7的情况.
只能用 for循环来~
var
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if((i=1) or (i=n) or (j=1) or (j=n) or (j=i) or (j=n+1-i) )then write('*')
else write(' ');
end;
writeln;
end;
end.