某幼儿园里,有5个小朋友编号为1,2,3,4,5,他们按自己的编号顺序围.ppt

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,某幼儿园里，有,5,个小朋友编号为,1，2，3，4，5,，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从,1,号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着,2,号、,3,号、,4,号、,5,号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。,program,fentang,;,var,a,b,c,d,e:integer;begin,readln,(a,b,c,d,e);,a:=a div 3;b:=b+a;e:=e+a;1,号均分后，,1、2、5,号的糖果数变化情况,b:=b div 3;c:=c+b;a:=a+b;2,号均分后，,1、2、3,号的糖果数变化情况,c:=c div 3;b:=b+c;d:=d+c;3,号均分后，,2、3、4,号的糖果数变化情况,d:=d div 3;c:=c+d;e:=e+d;4,号均分后，,3、4、5,号的糖果数变化情况,e:=e div 3;d:=d+e;a:=a+e;5,号均分后，,4、5、1,号的糖果数变化情况,输出结果,writeln,(a=,a);,writeln,(b=,b);,writeln,(c=,c);,writeln,(d=,d);,writeln,(e=,e);,readln,;,暂停,end.,e,d,b,C,a,program ex1;,var,x,y,:integer;,begin,x:=0;y:=0;,while x32767,y:,longint,integer,-32768.32767,2,带符号,16,位,longint,-2147483648.2147483647,4,带符号,32,位,x,y,加数,和,20:,编程求,1+3+5+.+,n,Input,输入一行，只有一个整数,n(,1=n=9999,),这里,n,为奇数。,Output,输出只有一行,Sample Input 99,Sample Output 2500,编程求,1+2+3+1000,区别在哪里？,program xh_1;,var,t:integer;,s:,longint,;,begin,s:=0;,t:=1;,while t=,1000,do,begin,s:=s+t;,t:=t+1;,end;,writeln,(s);,end.,编程求,1+2+3+,1000,编程求,1+3+5+,n,n(1=n=9999),这里,n,为奇数,program xh_2;,var,t,n,:integer;s:,longint,;,begin,s:=0;,t:=1;,read(n);,while t=,n,do,begin,s:=s+t;,t:=t+,2,;,end;,writeln,(s);,end.,编程求1+3+5+.+,n,输入一行，只有一个整数,n(1=nb then,x:=a;y:=b,else,x:=b;y:=a;,if cx then x:=c;if cx then x:=d;if dx then x:=e;if ex then x:=f;if fx then x:=g;if gx then x:=h;if hx then x:=i;if imax then max:=a;,if amin then min:=a;,t:=t-1;,until t=0;,writeln,(max);,writeln,(min);,end.,a,max,min,5,1,7,8,0,11,-9,20,9,3,输入一串字符，以,?,结束，分别输出其中大写字母、小写字母，数字，其它的个数。,var,ch,:char;,a,b,c,d:integer;,begin,read(,ch,);,a:=0;,b:=0;,c:=0;,d:=0;,while,ch,?do,begin,case,ch,of,A.Z:a:=a+1;,a.z:b:=b+1;,0.9:c:=c+1;,else d:=d+1;,end;,read(,ch,);,end;,write(a:5,b:5,c:5,d:5);,end.,e,A./e55377EEw33?,判断与累加,d:=d+1,inc(d),d:=d+c,inc(d,c),d:=d-1,dec,(d),d:=d-c,dec,(d,c),题37,：任意输入一个整数，判断它是否为素数。是的话输出,T,不是的话输出,F.,Input,输入只有一行，包括,1,个整数。,Output,输出只有一行,.,Sample Input 57,Sample Output F,Hint,（,可以从定义,-,除了,1,与本身以外没有其它的约数）,n,整型,t,用来模拟约数,f,布尔型,program ex_37;,var,n,t:integer;,f:,boolean,;,begin,read(n);,f:=true;,t:=2;,while t,n,do,begin,if n mod t=0 then begin f:=false;,break,;end;,t:=t+1;,end;,if n=1 then f:=false;,if f=true then write(T)else write(F);,end.,5,2,3,4,对于任何输入的数，先假设它是素数，然后通过穷举，一旦能推翻，离开停止,Break,停止当前的循环,program ex_37;,var,n,t:integer;,f:,boolean,;,begin,read(n);,f:=true;,t:=2;,while t,n,do,begin,if n mod t=0 then begin f:=false;break;end;,t:=t+1;,end;,if n=1 then f:=false;,if f=true then write(T)else write(F);,end.,trunc,(,sqrt,(n),36,2,18,3,12,4,9,从2到,A,的平方根的范围内，没有一个数能整除,A，,则,A,是质数,求两个正整数,m,和,n,的最大公约数。,36,8,8,7,6,4,4是36与8,的,最大公约数,14567 358,求两个正整数,m,和,n,的最大公约数。,求两个正整数,m,和,n,的最大公约数。,分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：,分别用,m,n,r,表示被除数、除数、余数。,求,m/n,的余数,r.,若,r=0,则,n,为最大公约数,.若,r0,执行第步,.,将,n,的值放在,m,中,将,r,的值放在,n,中.,返回重新执行第步。,尼考曼彻斯法辗转相除法：,a,b,r（,余数）,1,158,36,14,2,36,14,8,3,14,8,6,4,8,6,2,5,6,2,0,2,r:=a mod b;,a:=b;b:=r;,求两个正整数,m,和,n,的最大公约数。,求两个正整数,m,和,n,的最大公约数。,分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：,分别用,m,n,r,表示被除数、除数、余数。,求,m/n,的余数,r.,若,r=0,则,n,为最大公约数,.若,r0,执行第步,.,将,n,的值放在,m,中,将,r,的值放在,n,中.,返回重新执行第步。,program ex4_4;,var,a,b,r:integer;,begin,readln,(a,b);,r:=a mod b;,while r0 do,begin,a:=b;b:=r;,r:=a mod b;,end;,writeln,(b);,end.,