《repeat语句.docx》由会员分享，可在线阅读，更多相关《repeat语句.docx（2页珍藏版）》请在三一办公上搜索。
1、repeat语句repeat语句 语句格式： repeat 语句1； 语句2； 语句2; 语句n until 条件表达式 repeat语句与while语句都可以实现循环结构，但有四点不同： 在repeat循环中，是先执行语句，后判断条件，而while循环是先判断后执行语句。 while语句中的指定语句只能是一条语句或一条复合语句，repeat语句中的指定语句可以是多条语句，无需用begin和end。 在repeat语句中条件不成立时重复执行，而while语句中当条件成立时重复执行 。 在repeat语句中无论条件是否成立，总要执行一次指定语句序列。而while语句当条件一开始就不成立时，则不执
2、行循环中的指定语句。 例题1 从N个数中挑选最大的数。 程序: Program exp34; var n,x,m,y:integer; begin write(输入共需参加比较的总数：); readln(n); write(先将N个数的第一个数输入给变量X); readln(x); m:=0; repeat write(输入一个其它参加比较的数); readln(y); if x=y then x:=y; m:=m+1; until m=n; write(n,个数中最大的是：，x); end. 例题2 验证哥德已赫猜想：任一充分大的偶数，可以用两个素数之和表示。 例如：4=2+2 6=3+3
3、8=3+5 98=19+79 程序: Program golbah; var n,p,q,j:integer; flagp,flaq:boolean; begin reead(n); while n mod 2=1 do read(n); p:=1; repeat p:=p+1; q:=n-p; flagp:=true; for j:=2 to round(sqrt(p) do if p mod j=0 then flagp:=false; flagq:=true; for j:=2 to round(sqrt(q) do if q mod j=0 then flagq:=false; until flagp and flagq; write(n,=,p,+,q) end.
