回 帖 发 新 帖 刷新版面

主题:[原创]怎样让PASCAL死循环并且退不出来?

怎样让PASCAL死循环并且退不出来?

回复列表 (共28个回复)

沙发

repeat
....
until false;

板凳

i:=1;
while i>0 do
write(i)

3 楼

i:=1;
repeat
until i=0

4 楼

这些都不行,按ctrl+break就退出了.

5 楼

var
  a:real;
begin
  a:=0;
  repeat
    a:=a+1;
  until a=0
end.

6 楼

估计要调用中断了吧。。。至少在tc这种里面你写一个while(1);然后没有断点的话就死了。pascal这样似乎不行

7 楼

var a:integer;
begin
  a:=0;
  repeat
  a:=a+1;
  until
  a=0;
end.

8 楼

for i:=1 to 100 do begin
i:=1;
i:=2;
i:=3;
end;

9 楼

楼主你跟你电脑过不去啊??
  楼上的都贴出来了啊

10 楼

当然拉~~~HAHA~~~

我来回复

您尚未登录,请登录后再回复。点此登录或注册