pascal信息学竞赛教程.doc

第讲:第二讲:程序的基本结构第三讲:程序的调试第四讲:程序设计的方法第五讲:赋值语句第六讲:输入（读）read?语句七讲:输出（写）write?语句第八讲:条件?(?IF?)?语句第九讲:CASE多分支语句第十讲：REPEAT循环直到循环（REPEAT-UNTIL）类型 直到循环语句的语法格式是： repeat语句序列； 　 （循环体）? until 布尔表达式；? 其作用是：重复执行语句序列（循环体），直到布尔表达式的值为 TRUE为止。即，当执行完一次语句序列后，布尔表达式的值已经为 TRUE了，这时循环将不会再被执行，而转向执行 UNTIL语句以下的语句。 例：计算 M=1+2+3+4+……，直到 M的值大于 5050为止。 [例： 5、 1] var m,I:integer; begin ??? m:=0; ??? I:=0; ??? Repeat ??????? I:=I+1; ??????? M:=m+I; ??? Until m5050; ??? Writeln(I,’?? ’,m); End. 在上述程序中，我们使用了 PASCAL中的两个作用强大的概念：累加和循环。 累加：我们在上述程序中没定了两个累加器： I， M。累加器初值我们在第一句中设定了为 0，之后每次运行一次 I： =I+1后， I的值就比原来大 1。每运行一次 M： =M+I后， M的值就被 M+I所替代。 循环：这里我们使用的是直到循环，即重复执行循环体中的两个语句，直到 M5050这个条件满足为止（即这个布尔表达式的值为 TRUE为止）。 上述程序运行后，会在输出屏幕上显示两个值： 101 5151。即当 I的值为 101时，这时所算得的 M的值为 5151。亦即， 1+2+3+…… 101=5151。 象上述这种 X=1+2+3+……这种加法，我们就把它叫累加，这里的 X就是累加器，一般初值为 0。 而 N=1*2*3*4*5*6*……这种乘法我们把它叫累乘，这里 N就是累乘器，一般初值为 1（为什么？）。 一般的： 1*2*3*…… N，我们把这个式子的结果叫做 N的阶乘（ N！）。如： 4！ =1*2*3*4。 例：计算 １８！ [例 5、 2] var I:integer; ?? x:longint; begin ?? I:=0; ?? X:=1; ?? Repeat ????? I:=I+1; ????? X:=x*I; ?? Until I=18; ?? Writeln(x); End. ???????? 当程序开始时， I的初值被定为 0， X的初值被定为 1（累乘器）。然而开始进入循环，每次 I的值比原来增加 1，然后再乘进 X中去，直到 I等于 20时，最后一次把 I乘进 X后，这时 I=20这个条件已经满足（ I=20的值已经为 TRUE），所以循环就被退出，而程序转向执行 UBTIL以后的语句： WRITELN（ X）；。 请大家想一想，为什么 X要定义为 LONGINT型。 练习： 1、输入一个正整数N，把它分解成质因子相乘的形式。 　　 如：36=1 X 2 X 2 X 3 X 3； 19=1 X 19 　　 （提示：设因子为I，从2开始到N，让N重复被I除，如果能整除，则用商取代N，I为一个因子；如果不能整除，再将I增大，继续以上操作，直到I等于N。） 第十一讲：当（WHILE）语句第十二讲：FOR循环语句第十二讲：FOR循环语句第十三讲:一维数组第十四讲:二维数组第十五讲:字符与字符串处理综合练习一(顺序结构、分支结构、循环结构、数组)第十六讲:函数第十七讲:过程第十八讲:子程序中的参数第十九讲:集合与记录第二十讲:文件 第二十一讲:指针第二十二讲:数据结构二十三讲:数据结构之“串”二十三讲:数据结构之“串”第二十五讲:数据结构之链表第二十讲队 列第讲:树第讲:图第讲：算法概述第讲:排序算法第讲：列举（枚举）法第讲：递推算法第讲：递推算法第讲:搜索算法 第1页，共176页