1、信息学奥林匹克培训讲座（三）信息学奥林匹克培训讲座（三）1、复习、复习 P1P662、复习基本知识：、复习基本知识：程序与指令、计算机发展史、语言程序与指令、计算机发展史、语言发展史、进制转换等。发展史、进制转换等。3、熟读资料、熟读资料“计算机基础知识计算机基础知识”。4、预习、预习6788练习false-23falsetruetrue true false truefalsetruetrue练习练习:求下列表达式的逻辑值求下列表达式的逻辑值:(1)3+68=90(2)(49)or(100/2=50)(3)Not(-5-3)(4)当当a=5,b=6,c=10时时,计算下列各题计算下列各题:(
2、a+b=c)and(c-ba)or(a+cb)not(a+b-cb)falsetruetruetruetrue例例4-2：如果某人去批发白糖，买：如果某人去批发白糖，买50袋（袋（1袋为袋为0.5千千克）以下，每袋克）以下，每袋3.2元，元，50袋以上，每袋少收袋以上，每袋少收0.7元，元，批发若干袋，应付多少钱？批发若干袋，应付多少钱？练习练习练习Program ex4_3;Var x:integer;beginWrite(x=);Readln(x);If x=0 then writeln(yes)else Writeln(no)End.Program ex4_4;Var A,B,C:int
3、eger;beginWrite(A,B,C=);Readln(A,B,C);If A+B+C=180 then writeln(yes)else Writeln(no)End.0(x=0 then y:=2*x else x:=0;End.Writeln(y=,y)Program ex4_5;Var x:integer;beginWrite(x=);Readln(x);If x=0 then writeln(x)End.Program lx4_2;Var A,B,C:integer;beginWrite(A,B,C=);Readln(A,B,C);If A+B+C=180 then write
4、ln(A=,A,B=,B,C=,C)End.Program lx4_3;Var A,B,C:integer;beginWrite(A,B=);Readln(A,B);If AB then begin C:=A;A:=B;B:=C end；End.分析：A，BWrite(A=A，B=，B);If AB then A,B的值互换Y=Program lx4_4;Var x,y:real;beginWrite(x=);Readln(x);If x0 then y:=0 else End.Writeln(y=,y:0:0)If x10 then y:=2*x else If x50 then y:=2*
5、x+1 else y:=x/2+50Y=Program lx4_5;Var x,y:real;beginWrite(x=);Readln(x);If x50 then else y:=x/2+50 End.Writeln(y=,y:0:0)If x10 then else y:=x*2+1 If x0 then y:=0 else y:=x*2 Program lx4_6;Var s,st,j,t:integer;beginWrite(s,st=);Readln(s,st);j:=(4*s-st)/2;T:=s-j;End.If j-trunc(j)0.0001 then begin writ
6、eln(ji=,j);writeln(tu=,t);Endelse writeln(no anwser);Program lx4_4;Var a,b,c,x:integer;BeginWrite(a,b,c=);Readln(a,b,c);If ab and bc then writeln(c:5,b:5,a:5);If ac and cb then writeln(b:5,c:5,a:5);End.Program ex4_6;Var a,b,s:real;ch1:char;beginWrite(Please input a,b=);Readln(a,b);Case ch1 of +:s:=a
7、+b;-:s:=a-b;*:s:=a*b;/:s:=a/b;end;End.Write(Please input (+,-.*,/);Readln(ch1);Write(a,ch1,b,=,s);(二二)、casecase语句的执行过程语句的执行过程先计算表达式（称为情况表达式）的值，如果它的值等于某一先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执行完语句后，跳到的语句，在执行完语句后，跳到casecase语句的末尾语句的末尾endend处。处。(三三)、说明
8、、说明情况表达式必须是顺序类型的；情况表达式必须是顺序类型的；情况常量是情况表达式可能具有的值，因而应与情况表达式情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型；具有相同的类型；情况常量出现的次序可以是任意的；情况常量出现的次序可以是任意的；同一情况常量不能在同一个同一情况常量不能在同一个casecase语句中出现两次或两次以上；语句中出现两次或两次以上；每个分语句前可以有一个或若干个用逗号隔开的情况常量；每个分语句前可以有一个或若干个用逗号隔开的情况常量；如果情况表达式的值不落在情况常的范围内，则认为本如果情况表达式的值不落在情况常的范围内，则认为本casecase语句无
9、效，执行语句无效，执行casecase语句的下一个语句。语句的下一个语句。turbo turbo pascalpascal中增加了一中增加了一个个 否则否则“的情况的情况,即增加一个即增加一个elseelse子句，但也是可省的。子句，但也是可省的。每个常量后面只能是一个语句或一个复合语句。每个常量后面只能是一个语句或一个复合语句。Program ex4_7;Var n:integer;beginWrite(n=);Readln(n);End.If n mod 20 then writeln(n,is jishu.)else writeln(n,is oushu.)Program ex4_8;V
10、ar y:integer;beginWrite(year=);Readln(y);End.If y mod 400=0 then writeln(yes)else if(y mod4=0)and(ymod1000)then writeln(Yes)编写一程序，输入某人编写一程序，输入某人的月收入，输出所得税的月收入，输出所得税税率、应缴所得税款以税率、应缴所得税款以及扣除所得税后的实际及扣除所得税后的实际收入。收入。Program ex4_9;Var t,r,m1,m2:real;beginWrite(Please input t=);Readln(t);Case t div 100 of 0
11、.7:r:=0;8,9:r:=0.05;10.14:r:=0.1;15.29:r:=0.15;Else r:=0.2 End;End.Write(shui=,m1,shou=,m2);M1:=r*t;m2:=t-m1;1 1、某超市、某超市为为了促了促销销，规规定：定：购购物不足物不足5050元的按原价付款，超元的按原价付款，超过过5050不足不足100100的按九折付款，超的按九折付款，超过过100100元的，超元的，超过过部分按八折付款。部分按八折付款。编编一程序完成超市的自一程序完成超市的自动计费动计费的工作。的工作。2 2、当当前小前小学学生的成生的成绩单绩单由以前的百分制改由以前的百
12、分制改为优为优秀、良好、合格、秀、良好、合格、不合格四不合格四个个等等级级的等的等级级制。制。编编一程序完成分一程序完成分数数的自的自动转换动转换工作。工作。转转换规则换规则如下：如下：6060分以下的分以下的为为不合格；不合格；6060到到6969分分为为合格；合格；7070到到8989分分为为良好；良好；9090分以上的分以上的为优为优秀。（提示：可以利用秀。（提示：可以利用DIVDIV运运算算来来使程序使程序更更简简明）明）3,3,期未来临了，班长小期未来临了，班长小Q Q决定将剩余班费决定将剩余班费X X元钱，用于购买若干支元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商
13、店里有三种钢笔，钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为它们的单价为6 6元、元、5 5元和元和4 4元。小元。小Q Q想买尽量多的笔（鼓励尽量多想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小的同学），同时他又不想有剩余钱。请您编一程序，帮小Q Q制订出制订出一种买笔的方案。一种买笔的方案。4 4输输入入两个两个正整正整数数a a，b b。b b最大不超最大不超过过三位三位数数，a a不大于不大于3131。使。使a a在左，在左，b b在右，在右，拼拼接成一接成一个个新的新的数数c c。例如：。例如：a a2 2，b b1616，则则c c2 21616；若；若a a1818，b b476476，则则c c1847618476。提示：求提示：求c c的公式的公式为为：c ca aK Kb b
