Freepascal培训(初级)教程.ppt

Pascal 语言 （小学版）;Pascal是什么;第一阶段培训目标;一、计算机的基础知识;第一台计算机 1946年美国，名字埃尼阿克，由1800个电子管组成，重30吨。 计算机的成长史 第一代：电子管 第二代：晶体管 第三代：集成电路 第四代：大规模集成电路 ;计算机硬件的组成;主机;计算机的存储容量;计算存储量;;预防计算机中毒;数制：计算机是怎样处理信息的？;二进制与十进制的区别;十进制与二进制转化;十进制化为二进制;二进制转化为十进制;二进制转化为十进制;二进制转化为十进制;比较数的大小;计算机语言;二、认识 FreePascal;Pascal 的窗口界面;标题栏 菜单栏 当前程序文件名 编辑区 滚动条 状态栏;退出FreePascal;退出FreePascal;怎样编写Pascal程序;体验Pascal;三、pascal语言基础知识;Pascal的基本符号;Pascal保留字;Pascal标识符;Pascal的数据类型;实数（带小数点）类型;字符类型;字符串类型;布尔类型;常量;变量;Pascal的标准函数;数学函数;转换函数;顺序函数;逻辑函数;Pascal的运算符;Pascal表达式;ASCII码（美国标准信息交换码） ;Pascal源程序的结构;四、pascal的简单语句;赋值语句;分析程序，说明各语句的作用;使用 := 要注意;计算变量的值;输入语句（read,readln);格式1：read(变量表）;格式1：read(变量表）;格式1：read(变量表）;格式2：readln[变量表];格式2：readln;Pascal的输出语句;Write（常数）;Write（常量）;Write（变量）;Write（表达式）;Write（字符串）;Write(输出表）编程计算5x7;Write(输出表）编程计算5x7;Write (输出表）编程计算5x7;设置输出场宽;设置输出场宽;设置输出场宽;设置输出场宽;Pascal的输出语句;写出下面程序的运行结果;Var  a,b:integer; c:real; d:char;begin a:=ord(‘A’)-1; b:=succ(sqrt(a)); a:=trunc(b/5); c:=(a+b)*0.01; d:=chr(a*10) ;write(‘a=‘, ’a’);writeln(‘b=‘:4, b);writeln(‘c=‘, c:2:1);writeln(d：4);end.;编程需要好算法;求100以内所有偶数的和;Program oushuhe; Var s:integer; Begin S:=(2+100)*25; Writeln(‘s=‘,s); End.;已知某等差数列的第一个数为a1,最后个数为an,相邻两个数的差值为b,求这个数列的和s。;怎样表述算法;输入两个整数，输出其中较大的数;顺序结构程序设计;;;算法： （1）用readln（a,b）语句输入长和宽的值。 （2）用赋值语句计算面积s; （3）用赋值语句计算周长c; （4）用writeln(s,c)语句输出面积和周长。;问题：已知一个圆的半径为3.5cm,求该圆的面积和周长。;问题：输出右边的图形;算法： （1）用readln（ch）语句输入字符。 （2）输出ch的序号; （3）输出ch的前导值; （4）输出ch的后导值。;选择结构程序设计;程序：输入一个整数，判断它是奇数还是偶数。;复合语句;程序：输入两个数，将其中大数存入变量a，小数存入变量b。;输入三个数，将其中最大数值输出;Var a,b,c,zdz:integer; begin readln(a,b,c); if ab then zdz:=a else zdz:=b; if czdz then zdz:=c; Writeln(zdz); End.;条件(if)语句嵌套;n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格;（2）else 后面接if 语句 格式： if 条件1为真 then 语句1 else if 条件2为真 then语句2(1) else 语句2(2) ;n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格;Var n:integer; begin readln(n); if n mod 2 =0 then