freepascal初级培训.ppt

Pascal语言(小学版)小小程序员社团活动培训教案2015年下学期编程需要好算法利用计算机解题的步骤分析问题设计算法编写程序执行程序把实际问题转化为数学问题设计求解的方法和步骤用pascal语言实现算法在计算机上调试和运行程序好的算法确定性可行性输入输出求100以内所有偶数的和算法1:算法2:算法3:共执行49个步骤2+46+612+820+1030+122450+100第48次后求1+2+3+……+48+49+50求(1+2+3+……+49+50)x21+50(1+50)*25(1+50)*25*2共执行3个步骤求2+4+6+……+96+98+1002+100(2+100)*25共执行2个步骤Programoushuhe;Vars:integer;BeginS:=(2+100)*25;Writeln(‘s=‘,s);;Vars:integer;BeginS:=(2+100)*50div2;Writeln(‘s=‘,s);,最后个数为an,相邻两个数的差值为b,求这个数列的和s。Programshulie;Varx,a1,an,b,s:integer;BeginReadln(a1,an,b);x:=(an-a1)divb+1;S:=(a1+an)*xdiv2;Writeln(s);、自然语言如:将“变量a赋值为100”,写成“a←100”输出变量a的值,写成“输出a”2、流程图3、N-S图ABPABAA顺序结构选择结构当型循环直到型循环是是是当P1直到P2输入两个整数,输出其中较大的数分析问题:定义两个整数型变量a,b,用readln语句给变量赋值,比较变量a和b的值,如果a的值大就输出a,否则(如果b的值大)就输出b。N-S图读入(a,b)a>b是否输出a输出b顺序结构程序设计有2辆汽车,A车装50箱苹果,B车装100袋大米。想把两车内货物交换,试编写程序。分析问题交换车内货物需要借助第3个空间。AAABBB算法1:设A车为变量a,B车为变量b,空地为变量c,并将a,b,c定义为整数。(1)用赋值语句对a,b赋值(相同于装货):(2)交换a,b的值:c:=b;b:=a;a:=c;(3)输出结果:writeln(a,b);程序1:vara,b,c:integer;Begina:=50;b:=100;c:=b;b:=a;a:=c;Writeln(‘a=‘,a);Writeln(‘b=‘,b);CAAABBB算法2:设A车为变量a,B车为变量b,空地为变量c,并将a,b,c定义为整数。(1)用输入语句对a,b赋值(相当于装货):(2)交换a,b的值:c:=b;b:=a;a:=c;(3)输出结果:writeln(a,b);程序2:vara,b,c:integer;Beginreadln(a,b);c:=b;b:=a;a:=c;Writeln(‘a=‘,a);Writeln(‘b=‘,b);End.