语言补充内容caserepeat.pptxVIP

语言补充内容caserepeat;情况语句的一般形式：;case语句的执行过程;说明;例3.9根据x的值，求函数Y的值：;例3.10判断2006年,每个月份的天数。;例3.11期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。;程序如下：;例3.12试编写一个根据用户键入的两个操作数和一个运算符，由计算机输出运算结果的程序。;直到循环（REPEAT语句）;说明：

①repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环体。

②repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句，until是另一个语句。

③repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来，repeat和until已经起了begin和end的作用。while循环和repeat循环是可以相互转化的。;例4.13求两个正整数m和n的最大公约数。程序采用repeat-until循环实现。

Programex4_13;

varm,n,r:integer;

begin

readln(m,n);

repeat //辗转相除法

r:=mmodn;

m:=n;

n:=r;

untilr=0;

writeln(m);

end.;例4.14校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人?

【分析】①设校体操队为X人,根据题意X应是7的倍数,因此X的初值为7,以后用inc(x,7)改变X值；

②为了控制循环,用逻辑变量yes为真(True)使循环结束；

③如果诸条件中有一个不满足,yes的值就会为假(false)，就继续循环。

Programex4_14;

varx:integer;yes:boolean;

begin

x:=0;

repeat

yes:=true;inc(x,7);

ifxmod2<>1thenyes:=false;

ifxmod3<>1thenyes:=false;

ifxmod4<>1thenyes:=false;

ifxmod5<>1thenyes:=false;

ifxmod6<>1thenyes:=false;

untilyes;//直到yes的值为真

writeln('All=',x);readln

end.

程序中对每个X值，都先给Yes赋真值，只有在循环体各句对X进行判断时，都得到“通过”（此处不赋假值）才能保持真值。;例4.15求1992个1992的乘积的末两位数是多少？

【分析】积的个位与十位数只与被乘数与乘数的个位与十位数字有关，所以本题相当于求1992个92相乘，而且本次的乘积主下一次相乘的被乘数，因此也只需取末两位参与运算就可以了。

Programex4_15;

vara,t:integer;

Begin

a:=1;t:=0;

repeat

t:=t+1;

a:=(a*92)mod100;

untilt=1992;

writeln(a);

Readln;

End.;例4.16利用格里高公式求π。π/4=1-1/3+1/5-1/7+…，直到最后一项的值小于10-6为止.

【分析】解本题的关键就是求右边数值序列的和，序列有明显的特点：分母是从1开始的奇数，加、减号轮流出现，因此，我们可以用m=n+2表示序列数值的变化，用f=-f来设置它们知项的符号位。

Programex4_16;

varf:integer;n,t,pai:real;

begin

pai:=0;t:=1;n:=1;f:=1;

repeat

pai:=pai+t;

n:=n+2;

f:=-