输入长度，输出一个空心正六边形。
以下是程序，但为什么会输出超限。
var
n,i,s,p:integer;
begin
read(n);
write('*':n);
for i:=1 to n-1 do
write('*');writeln; p:=n-2;
repeat
inc(s);p:=p+2;
write('*':n-s);
write(' ':p);
writeln('*');
until s=n-1;
s:=0;
repeat
inc(s); p:=p-2;
write('*':s+1);
write(' ':p);
writeln('*');
until s=n-2;
write('*':n);
for i:=1 to n-1 do
write('*');
end.
Pascal什么情况会输出超限
答案:2 悬赏:50 手机版
解决时间 2021-02-06 06:38
- 提问者网友：蓝琪梦莎
- 2021-02-05 21:41
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-02-05 22:01
修改成这样就成：
var n,i,s,p:integer;
begin
read(n);
if n<2 then exit;
write('':n-1);
for i:=1 to n do write('*'); writeln;
p:=n-2;
repeat
inc(s); p:=p+2;
writeln('*':n-s,'':p,'*');
until s>=n-1;
s:=0;
repeat
inc(s); p:=p-2;
writeln('*':s+1,'':p,'*');
until s>=n-2;
if n<3 then exit;
write('':n-1);
for i:=1 to n do write('*'); writeln;
end.
var n,i,s,p:integer;
begin
read(n);
if n<2 then exit;
write('':n-1);
for i:=1 to n do write('*'); writeln;
p:=n-2;
repeat
inc(s); p:=p+2;
writeln('*':n-s,'':p,'*');
until s>=n-1;
s:=0;
repeat
inc(s); p:=p-2;
writeln('*':s+1,'':p,'*');
until s>=n-2;
if n<3 then exit;
write('':n-1);
for i:=1 to n do write('*'); writeln;
end.
全部回答
- 1楼网友：迟山
- 2021-02-05 22:30
期待看到有用的回答！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯