NOIP(全国青少年度信息学奥林匹克联赛)复习Pascal.pptVIP

一、复习回顾;常量：指在程序执行过程中值不能改变的量。 ;常用函数：;表达式;基本语句：;例：从键盘输入两个数，交换后输出。;例：从键盘输入一个三位数，分离出百位、十位和个位并输出。;四、选择结构的程序设计 ;例：输入一个数X，要求不使用ABS函数，输出其绝对值。;例4、将输入的两个非负实数中较大的放在max里，小的放在min里，并输出。;If 语句嵌套;例5：输入两个数（不为0）及一个算术运算符，输出其运算结果。;例6、打印某年某月有几天。;循环结构;例7：计算1+2+3+…+100之和。;例8、编程找出四位整数abcd中满足下述关系的数： （ab+cd)(ab+cd)=abcd;当型循环;分析：(1)让一个变量I呈自然数列增长，即一开始I=1； (2)让m作为一个因子，I作为另一个因子进行乘法运算，可以得到积s，此时s必定是m的倍数； (3)再判断s是否能被n整除，若能整除转(5),否则执行下一步(4)； (4)I变量增长1,再去执行(2)； (5)输出s，此时s即为m,n的最小公倍数。 ;直到型循环;多重循环：循环套循环;例12、求100-999中的水仙花数。 （如三位数abc =a^3+b^3+c^3,则称abc为水仙花数。 ;例13 四个学生上地理课时，回答我国四大淡水湖大小时这样说。 甲说：“最大洞庭湖，最小洪泽湖，鄱阳湖第三”；乙说：“最大洪泽湖，最小洞庭湖，鄱阳湖第二，太湖第三”；丙说：“最小洪泽湖，洞庭湖第三”；丁说：“最大鄱阳湖，最小太湖，洪泽湖第二，洞庭湖第三”。其中每个学生仅答对一个，请编程确定湖的大小。; program ex_13(input,output); var dong,hong , bo, tai:integer; begin for dong:=1 to 4 do for hong:=1 to 4 do if hongdong then for bo:=1 to 4 do if (hongbo) and (dong bo ) then begin tai:=10-dong-hong-bo; if (ord(dong=1)+ord(hong=4)+ord(bo=3)=1 ) and (ord (hong=1) +ord(dong=4)+ord(bo=2)+ord(tai=3)=1) and (ord(dong=3) +ord(hong=4)=1) and (ord(bo=1)+ ord(tai=4)+ord(hong=2) +ord(dong=3)=1 then writeln(‘dong:’,dong,’hong:’,hong,’bo:’,bo,’tai:’,tai); end; end. ;例14 用5元钱买100只纽扣，其中金属纽扣每只5角，有机玻璃和每只1角，小揿扣1分钱买3个，编程求出各种纽扣各买了多少只？;Program ex_14(input,output); var x,y,z:integer; begin for x:=1 to 100 do for y:=1 to 100 do for z:=1 to 100 do if (x+y+z=100) and (150*x+30*y+z=1500 ) then write(‘金属扣：’,x,’有机扣：’,y,’揿扣：’,z) end.;法II 在法I的基础上改进，由方程（2）可知 1≤x≤10 、1≤y≤50 循环次数：10*50*100=50000次，是法I的5%，运行时间缩短了很多。;例15 已知faibonacci(费波那契数列)的前几个数分别为 0,1,1,2,3,5…,编程求此数列的前n项。;程序如下：;For / while / repeat/ 语句使用时注意：