算法和程序设计.pptVIP

算法与程序设计 柯桥中学 吴建锋 1、pascal编程基础 2、完善程序 3、算法专题 1、PASCAL编程基础知识 1、常量、变量 2、数据类型（integer、real、byte、boolean、char） 3、常用系统函数和运算符（trunc,mod,div） 4、三种基本程序结构、复合语句 For循环、while循环、repeat循环、循环嵌套以及配合for循环使用的break、continue（其他中断命令还有exit、halt） 5、子程序的二种形式（函数和过程） 深入一下还有递归 6、关系表达式的真值，逻辑运算 举例 1、program test1; var a,b,c,tot:integer; begin tot:=0; c:=213-21*10; b:=21-2*10; a:=2; tot:=tot+a+b+c; writeln(tot); end. 输出： 解题关键 没有什么难度，关键是以下两点： 1、掌握赋值覆盖的特点 2、草稿纸上细致的书写赋值经过 2、PROGRAM EXAM1; VAR X,Y:BYTE; BEGIN READLN(X,Y); IF XY THEN WRITELN(X-Y) ELSE WRITELN(Y-X); END. 输入：24 36 输出： 要点分析： 1、掌握byte数据类型 2、分支结构语句的使用 3、program test1; var x,y,t:byte; begin readln(x,y); if xy then begin t:=x;x:=y;y:=t;end; writeln(x, ,y); end. 输入：34 52 输出： 要点 1、赋值覆盖特征下的变量值的交换 2、输出时注意二数之间有空格 4、PROGRAM EXAM2; VAR S,I:INTEGER; BEGIN S:=0; FOR I:=1 TO 10 DO S:=S+I; WRITELN(‘S=’,S); END. 要点 1、赋值覆盖机制下的累加器程序 2、for循环基本使用 3、‘s=’的字符串输出 5、PROGRAM test2; VAR s,x:integer; BEGIN x:=0;s:=0; WHILE S55 DO BEGIN X:=X+1; S:=S+X; END; WRITELN(X); END. 要点 1、while循环结合复合语句的使用 2、累加的难度在于复合累加 3、突破难度的二个方法 （1）结合草稿纸的模拟计算 （2）算法总结基础上的直接计算 4、容易出错的地方是10是否会参与累加？（循环边界状态的细致分析） 6、program test2; var i:integer; a:array[1..10] of byte; begin for i:=1 to 10 do a[i]:=i; for i:=1 to 10 do begin a[i]:=a[i]+1; write(a[i]:3); end; end. 输出： 要点 1、熟练复合语句（这里不是嵌套） 2、熟练的肯定会在总结算法基础上立刻求解 3、不熟练也有方法（列表法），不易出错 7、PROGRAM EXAM3; VAR S,I,J:INTEGER; A:ARRAY [1..10] OF BYTE; BEGIN S:=0;I:=0; FOR J:=1 TO 10 DO A[J]:=1; WHILE I=10 DO BEGIN I:=I+1; S:=S+A[I]; FOR J:=I+1 TO 10 DO A[J]:=A[J]+1; END; WRITELN(S=,S); END. 列表法 算法分析能力不是很强，而现在试题各种累加、累乘等的赋值运算比较多，所以掌握列表法也许是不变应万变之策。 I s a[i+1]……a[10] 1 1 2,2….,2 2 1+2 3,3,…3 3 1+2+3 4,4,…4 …… 9 1+2+…+9 10 10 1+2+3+…+10 内循环不执行 总结算法基础上的求解 1、第一次外循环结束时，i为1，s为1；以后第k次外循环结束时，i为k，s加上的值是a[k]，而a[k]是原来1基础上加上k-1所得值，所以程序实