编写pascal程序 用循环结构时， 如何跳出这个程序，要什么语句?

Answer 1

如果是 跳出 当前的循环 则用过程： break
如果是 在 函数或过程里面用的话 用 过程：exit 可以跳出 函数和过程
如果 想直接退出程序 则用 过程：halt

以上所说的 过程可以直接使用 例如
for i:=1 to n d
for j:=i+1 to n do
begin
if {语句} then break;
a[i]:=a[j];
end;

像这样的话 break 后 就会跳出 J 这层循环，继续循环 i

还有一个过程 continue 这个用法是 直接继续循环当前循环 不执行下面的语句

比如
for i:=1 to n do
for j:=1 to n do
begin
if i=j then continue;
write('asdfasdf');
end;
这样的话 只要I=J 那么 就不执行 write 直接 继续循环J

Answer 2

比如说 判断数组a中是否有等于100的数
如果在主程序里面
Begin
for i:=1 to n do
if a[i]=100
then begin
writeln('Yes');
break;
end;
End.

在函数中
function right:boolean;
Begin
for i:=1 to n do
if a[i]=100
then begin
writeln('Yes');
exit(true);//或者写成两句： right:=true; exit;
end;
End.

过程中和函数差不多，但是不能写成exit(..)的形式，只能用exit；

Answer 3

跳出循环用break
在子程序中（函数（function）和过程（procedure）），要退出它们用exit
在主程序中要推出整个程序也用exit

追问

只要输入break就可以了吗

追答

en

Answer 4

回答时间：2011-10-22 21:54:051.var n,i,tmp:integer;ans,ans2:int64; begin readln(n); ans:=1; for i:=1 to n do begin read(tmp); ans:=ans*tmp; ans2:=ans2+tmp*tmp; end; writeln(ans);writeln(ans2); end. 2. var i,tmp:integer;zheng,fu,zero:integer; begin for i:=1 to 20 do begin readln(tmp); if tmp>0 then inc(zheng) else if tmp=0 then inc(zero) else if tmp<0 then inc(fu); end; writeln(zheng,' ',fu,' ',zero); end. 是