循环结构while2.pptVIP

第四讲 循环结构 二 while case语句（分情况语句） 格式： case 表达式 of 情况1:语句1； 情况2:语句2； …… 情况n:语句n； else 语句n+1； end； for 控制变量:=表达式1 downto 表达式2 do 表达式1表达式2。 循环控制变量每次-1。 说明： 1、循环控制变量必须是顺序类型。 如：整数（integer,longint）、字符型 不能是实数型。 不能是int64型。 2、循环次数：终值-初值+1。 3、初始值不一定必须是1。 2、 输入自然数n (1=n=10)，求1!+2!+3!+…+n!的值。 已知： n!=1*2*3*…*n var n,i,s,sum:longint; begin readln(n); sum:=0; s:=1; for i:=1 to n do begin s:=s*i; sum:=sum+s; end; writeln(sum); end. 3、编程验证角谷猜想：“对于任意一个大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次变换，一定会使n变为1”。 输入： n 输出：变为1的过程。 var n,s:longint; begin readln(n); s:=0; while n1 do begin if n mod 2=1 then n:=3*n+1 else n:=n div 2; s:=s+1; writeln(s,:,n); end; writeln(s); end. 4、编程验证歌德巴赫猜想：“对于任意一个偶数n（=4），都可以表示成两个素数的和”。 4=2+2 6=3+3 8=3+5 98=17+79 输入： 偶数n 输出：和为n的两个素数。 如输入：98 输出：17 79 N=20，开始状态全为1 1、陶陶摘苹果（NOIP2006p） (apple.pas/c/cpp) 【问题描述】 陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。 现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。 【输入】 第1行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。 第2行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。 【输出】 输出包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。 【样例输入】 110 100 200 150 140 129 134 167 198 200 111 【样例输出】 5 var h,x,sum,i:integer; begin sum:=0; readln(h); h:=h+30; for i:=1 to 10 do begin read(x); if x=h then sum:=sum+1; end; writeln(sum); end. 【样例输入】 110 100 200 150 140 129 134 167 198 200 111 【样例输出】 5 2、灯的开关状态 有N个灯放成一排，从1到N依次顺序编号，开始时全部打开。有N个人也从1到N依次编号。1号人将灯全部关闭，2号人将凡是编号为2的倍数的灯打开；3号人将凡是编号为3的倍数的灯作相反处理(该灯如为打开的， 则将它关闭；如关闭的，则将它打开)。以后的人都和3号人一样，将凡是自己编号倍数的灯作相反处理。 编程实现：第N个人操作后，按顺序输出灯的状态。(1-表示灯打开，0-表示灯关闭) 输入：n(n=100)，灯的个数， 输出：灯的状态，01序列，中间无空格。 样例： 输入：2 输出：01 1 1 1 1 0 1 1 1 1 1 1 0 1 1 1 1 0 1 1 0 状态 20 19 18 17 16