作业帮 > 综合 > 作业

pascal提问[j11]打印图形5Time Limit:1000MS Memory Limit:65536KTotal

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 07:02:20
pascal提问
[j11]打印图形5
Time Limit:1000MS Memory Limit:65536K
Total Submit:16 Accepted:6
Description
输入个数N,打印图形.
Input
输入只有一行,包括1个整数.(N
表示看样例找不到规律
用for循环就行了
program a001;
var
i,j,k,n:integer;
begin
readln(n);
for i:= 1 to n+1 do
begin
for j:= 1 to n-i+1 do write(' ');
write('*');
if i = 1 then
begin
writeln;
continue;
end;
for j:= 1 to i-2 do write(' ');
write('*');
for j:= 1 to i-2 do write(' ');
writeln('*');
end;
end.
不知道是不是这样