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

 我来答
我是陈水蛋
推荐于2017-10-09 · 超过13用户采纳过TA的回答
知道答主
回答量:164
采纳率:0%
帮助的人:114万
展开全部
如果是 跳出 当前的循环 则用过程: 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
幻想v飞翔
2011-10-22 · 超过24用户采纳过TA的回答
知道答主
回答量:39
采纳率:0%
帮助的人:60.9万
展开全部
比如说 判断数组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;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2011-10-22
展开全部
跳出循环用break
在子程序中(函数(function)和过程(procedure)),要退出它们用exit
在主程序中要推出整个程序也用exit
追问
只要输入break就可以了吗
追答
en
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ydrsolok
2011-10-22 · 贡献了超过126个回答
知道答主
回答量:126
采纳率:0%
帮助的人:48.3万
展开全部
回答时间:2011-10-22 21:54:05 1.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. 是
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式