全国青少年信息学奥林匹克联赛NOI初赛培训指导.ppt

例2： 某全自动加油站a,b,c三种汽油的单价(元/kg)分别是1.50、1.35和1.18，也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。编一个程序，用户输入加油量、汽油品种和服务类型(f-自动，m-自己，e-协助)，然后计算应付款。 var????oil,help:char;???? kg,total:real;begin???? write(Enter the amount in kilograms(kg):); readln(kg);???? write(Which type of the gasoline(a,b,c):); readln(oil);???? wirte(Which type for service(f,m,e):); readln(help);???? case oil of???????? a: total:=1.50*kg;???????? b: total:=1.35*kg;???????? c: total:=1.18*kg;???????? else writeln(Input Error!)???? end;{——————处理汽油的类型} ???? case help of???????? f:;???????? m: total:=total*(1-0.05);???????? e: total:=total*(1-0.10);???????? else writeln(Input Error!)???? end;{——————处理服务类型} ??? writeln;???? writeln(Total is ,total:10:2);end. 1、 输入两个数a,b，输出较大数的平方值。 2、 铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。 ?3、 某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。 ?4?、 输入a,b,c三个不同的数，将它们按由小到大的顺序输出。 13、 当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算来使程序更简明） ?5、 打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能被100整除；或者能被400整除的整数年份。B、利用MOD运算可以判断一个数能否被另一个数整除） 第二部分 PASCAL基本程序结构知识（笔试辅导1-2-3） 5.1 For语句 1.递增型FOR循环。? FOR 循环控制变量:=循环初值 TO 循环终值 DO 循环的语句（或语段）例： FOR I:=5 TO 10 DO WRITELN (I);?输出的结果为： 5 6 7 8 9 10 即循环一共执行了6次?如果要重复多个语句，一定要用BEGIN-END形式： 5.2 While语句 ?1.WHILE循环的执行形式 WHILE 布尔表达式 DO 语句???? 例如：???? k:=10;???? WHILE k0 DO???? BEGIN????????? Writeln (k);????????? k:=k-1???? END; 其中???? (1)WHIlE 和DO是PASCAL保留关键字，是WHILE循环语句的组成部分。???? (2)保留关键字DO后面的“语法”只能是一条语句，称为“循环体”；如果循环 体中需要包含多个语句则应该如上例所示，采用一条复合语句。? 5.3 Repeat-Until语句 1．REPEAT-UNTIL类型的循环的执行形式?REPEAT?语句1?语句2……?语句nUNTIL 布尔表达式?例如：以下循环求n=1+2+3+……+100?n:=0;t:=i;?REPEAT?n:=n+t; t:=t+1;?UNTIL t100; 1、计算下列式子的值：????（1）1+2+……+100????（2）1+3+5+……+97+99 2、输入一个四位数，求它各位上数字的和。 3、求水仙花数。所谓水仙花数，是指一个三位数abc，如果满足a3+b3+c3=abc，则abc是水仙花数。 4、宰相的麦子：相传古印度宰相达依尔，是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他想要什么。达依尔说：“只要在国际象棋棋盘