PASCA教程.ppt

《PASCA教程.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、关于竞赛集训班学习的几点说明1.学习的目标集训班的课主要针对参加信息学奥林匹克小学组竞赛而开设，获奖名额有限，不是人人都能获奖，但就是不获奖或名次不理想，通过这一阶段的学习，使思维更加清晰、完整、严密，对今后的进一步深造肯定大有帮助。2.教学的方法学习有难度，上课采用边讲边练，请同学紧跟老师的上课内容上机操作，这样更易掌握，脱课或不听讲将马上影响后面的学习。3.课堂的纪律上课严格禁止玩游戏，违反者名字在黑板上列出，放学后不准离开，由家长前来领走。课间休息二次，每次8~10分钟。4.作业的检查每次课都有4题作业，请家长督促完成，下一次上课前

2、请先插入电脑打开，以便老师检查。第一课竞赛中的输入输出信息学竞赛中，对输入输出要求严格，尤其是进入中学组竞赛，全部使用电脑阅卷，对输入输出更是苛刻。近年来，每次都有相当一部分同学没有注意（哪怕多一个空格或句号）而整题得0分！目前上海市小学组竞赛还没有采用电脑阅卷，但我们要从初学阶段就养成按照题目要求来进行输入输出。请先做以下题目:输入两个正整数，输出它们相减的差式。输入输出样例：输入：456123输出：456-123=333第一课竞赛中的输入输出信息学竞赛中，对输入输出要求严格，尤其是进入中学组竞赛，全部使用电脑阅卷，对输入输出更是苛刻。

3、近年来，每次都有相当一部分同学没有注意（哪怕多一个空格或句号）而整题得0分！目前上海市小学组竞赛还没有采用电脑阅卷，但我们要从初学阶段就养成按照题目要求来进行输入输出。请先做以下题目:输入两个正整数，输出它们相减的差式。输入输出样例：输入：456123输出：456-123=333Vara,b,c:integer;Beginreadln(a,b);c:=a-b;writeln(a,’-’,b,’=’,c);readln;End.第一课竞赛中的输入输出以下是根据2007年上海市小学组竞赛题改写的题目，为了减少难度，突出输入输出，略去了还不能做

4、的部分。我们一起来完成.一、数字与字母输入一个小写字母的ASCII码N(98≤N≤121)，输出其对应的英文小写字母及前后的两个字母。如N=102，其对应的英文小写字母是f，其前后的两个字母是e和g，输出应该是efg输入输出示例：输入：N=98输出：abc序号函数:ord(字符)例:ord(‘a’)=97;ord(‘A’)=65字符函数:chr(序号)例:chr(122)=‘z’;后续函数;succ(字符)例:succ(‘a’)=‘b’;succ(‘A’)=‘B’前趋函数:pred(字符)例:pred(‘b’)=‘a’第一课竞赛中的输入输

5、出以下是根据2007年上海市小学组竞赛题改写的题目，为了减少难度，突出输入输出，略去了还不能做的部分。我们一起来完成.一、数字与字母输入一个小写字母的ASCII码N(98≤N≤121)，输出其对应的英文小写字母及前后的两个字母。如N=102，其对应的英文小写字母是f，其前后的两个字母是e和g，输出应该是efg输入输出示例：输入：N=98输出：abcVarn:integer;c:char;Beginwrite(‘N=‘);readln(n);c:=chr(n);writeln(pred(c),c,succ(c));readln;End.序号

6、函数:ord(字符)字符函数:chr(序号)后续函数;succ(字符)前趋函数:pred(字符)Varn:integer;Beginwrite(‘N=‘);readln(n);writeln(chr(n-1),chr(n),chr(n+1));readln;End.第一课竞赛中的输入输出二、时分秒大家都熟悉的计时单位是时分秒，现在需要把分和秒化为以小时为单位。输入小时H（1≤H≤12），分钟M（0≤M≤59）和秒S（0≤S≤59），输出以小时为单位一个实数，结果保留四位小数。输入输出示例：输入：H=8M=10S=59输出：8.183130

7、分=0.5小时30分/60分=0.5小时15/60=0.2530秒=0.5分=0.5/60小时30秒/3600秒=0.008333小时输入：H=3M=30S=30输出：3.5083输入：H=0M=10S=0输出：0.1667第一课竞赛中的输入输出二、时分秒大家都熟悉的计时单位是时分秒，现在需要把分和秒化为以小时为单位。输入小时H（1≤H≤12），分钟M（0≤M≤59）和秒S（0≤S≤59），输出以小时为单位一个实数，结果保留四位小数。输入输出示例：输入：H=8M=10S=59输出：8.183130分=0.5小时30分/60分=0.5小时1

8、5/60=0.2530秒=0.5分=0.5/60小时30秒/3600秒=0.008333小时Varh,m,s:integer;t:real;Beginwrite(‘H=‘);readln(h)