主题：[原创]怎样让PASCAL死循环并且退不出来？
wywy
[专家分：340] 发布于 2005-10-13 13:26:00
怎样让PASCAL死循环并且退不出来？
回复列表 （共28个回复）
11 楼
cxxx401 [专家分：140] 发布于 2005-10-28 20:14:00
i:=1;
while i<>0 do
i:=1;
12 楼
cxxx401 [专家分：140] 发布于 2005-10-28 20:15:00
i:=1;
while i<>0 do
i:=1;
ctrl+break退出
13 楼
tujunqiang [专家分：150] 发布于 2005-10-31 08:06:00
f:=true;
repeat
...
...
until f=false;
14 楼
vvv832 [专家分：360] 发布于 2005-10-31 21:43:00
while i<>0 do
begin
i:=i+1;
end
你够毒的
15 楼
幽游の白玉 [专家分：140] 发布于 2005-11-02 20:32:00
哈哈`~~其实用过程也可以呀~~
procedure gc(n:integer);
begin
...
gc(n+1);
end;
嘿嘿~~只要中间不给结束语句就搞定了`~
函数也可以`~一样的道理~
16 楼
xuzhenyi [专家分：850] 发布于 2005-11-08 21:16:00
有没有办法 屏蔽Ctrl+Break那才叫厉害
17 楼
梦幻神兵 [专家分：600] 发布于 2005-11-12 16:48:00
i:=1;
repeat
until i=0
18 楼
lidaminy [专家分：60] 发布于 2006-02-09 19:30:00
假设编译后的exe是 a.exe
a.pas:
uses dos;
begin
while true do
begin
Exec('a.exe','');
end;
end.
19 楼
风清书阳 [专家分：60] 发布于 2006-02-15 11:59:00
var a:integer;
begin
a:=0;
repeat
a:=a+1;
until
a=0;
end.
20 楼
为啥学编程 [专家分：150] 发布于 2006-02-15 18:43:00
while true do
begin
……
end;
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — [原创]怎样让PASCAL死循环并且退不出来？