[教育] 初识Free.doc

第1课、初识Free-Pascal一、 安装FreePascal / FPascal4NOI-2kXP.exe二、 建立源程序目录三、 认识FreePascal工作环境(1) File文件NewSaveOpenExit(2) Run运行Run Ctrl+F9(3) Debug(调试)User Screen Alt+F5四、 程序输入运行通过三个例子的输入学习新建程序、保存程序、运行程序、观察运行结果、退出开发环境例子1program d1;beginend.例子2program d2;beginwrite(Welcome to FreePascal!);end.例子3program d3;var a,b:integer;begina:=5;b:=6;write(a*b);end.上机练习 见书五、 Pascal程序基本框架Program 程序名称;说明部分Beign执行部分End.第2课、初识write语句和常量一、 write语句1. 语法句型一：write(表达式表);句型二：writeln(表示式表);2功能显示表达式表的内容，句型一显示完成后不自动换行；句型二显示后自动换行。3实例write(This is a book.);writel(what is your name);或writeln(This is a book);writeln(what is your name);二、数值常量整数 表示一个整数如5,10,9等等writeln(5);writeln(10);可以参加的运算有+、-、*、/、div、modwriteln(5+7);writeln(10-5);writeln(12/6);writeln(12 div 5)writeln(12 mod 5);实数 表示一个带小数点的数如5.9,3.14,8.99,5.0等等writeln(5.0);writeln(3.14);可以参加的运算有+、-、*、/。Writeln(3.6+2.4);Writeln(12.0/6.0)Writeln(3.14*10);Writeln(5.7-3.2);三、字符型常量字符常量：由单引号引起的一个字符如a、B字符串常量：由单引号引起的一串字符如：Book、This is a book.可以参加的运算有+。四、布尔常量false表示假 treu表示真。五、常量的定义const 常量名称=常量;const pi=3.14;writeln(pi);六、单步运行f7可以单步跟踪程序的运行 第3课、初识变量和Read语句一、 read语句1. 语法句型一：read(变量表);句型二：read(变量表);2功能等待用户从键盘输入数据给变量表中对应的变量中，句型一输入时不用回车；句型二输入时要加入回车。3实例read(a);read(b)readln(a);readln(b);二、 程序跟踪观察变量ctrl+f7可以添加要观察的变量f7可以单步跟踪程序的运行。三、 变量的定义var 变量表:数据类型数据类型:整型数据:类型数值范围占字节数格式Shortint-128.1281带符号8位Inteter-32768.327672带符号16位Longint-2147483648.21474836474带符号32位Byte0.2551带符号8位Word0.655352带符号16位实型数据类型数值范围占字节数有效位数Real2.9e-39.1.7e38611.12Single1.5e-45.3.4e3847.8Double5.0e-324.1.7e308815.16Extended3.4e-4932.1.1e49321019.20comp-2*63+1.2*63-1819.20 布尔型 Boolean四、 实例实例1program d3;var a,b:integer;begina:=5;b:=6;write(a*b);end.实例2program d4;var a,b:integer;beginread(a);read(b);write(a*b);end.改写 write(a,+,b,=,a+b); 理解这句的含义。Pregram d5Const pi=3.14;Var r:real;BeginRead(r);Writeln(s=,pi*r*r:10:2);End.第4课 基本符号、关键字、标识符一、 基本符号1、 数学符号：0、1、2、3、4、5、6、7、8、92、 英文字母：大小写各26个3、 特殊符号：二、 关键字(36个)program constvarbeginendmod div三、 标识符定义：以字母或下划线开头的字母数字下划线序列。标准标识符标准的常量 false trun maxint(表示32767)标准的类型 integer,real,char,Boolean,text标准文件 input output标准函数 random标准过程 Read Readln write writeln randomize自定义标识符:注意事项：不能与保留字同名;避免与标准标识符同名；最好有一定的含义，增加程序的可读性；书写可用在写、小写及大小写字母混合使用。四、 顺序结构的程序设计练习题1.编写一个程序，输入两个实数a,b，求a,b的乘积。2.编写一程序，输入一个三位数的正整数，输出时反向输出。如：输入456,输出654。3.编写一程序，当程序执行时，输入以秒为单位的时间，输出形式为：“小时:分:秒”五、 阅读程序，写出程序的运行结果1. PROGRAM e_224 VAR x,y:integer; BEGIN x:=20; x:=x+x; writeln(x) ;y:=x+x; writeln(y); x:=x+y; writeln(x); y:=x+y;writeln(y) END. 2 progarm e34;var a,b,c:integer;beginread(a,b);writeln(a=,a, b=,b);c:=a;b:=a;a:=c;writeln(a=,a, b=,b);end.输入 10,203 progarm e34;var a,b,c:integer;beginread(a,b);writeln(a=,a, b=,b);c:=a;a:=b;b:=c;writeln(a=,a, b=,b);end.输入 10,204 progarm e34;var a,b,c:integer;beginread(a,b);writeln(a=,a, b=,b);c:=a;a:=b;b:=c;writeln(a=,a, b=,b);end.输入 10,205 progarm e35;var a,b:integer;beginread(a,b);writeln(a=,a, b=,b);a:=a+b;b:=a-b;a:=a-b;writeln(a=,a, b=,b);end.输入 10,20第五课 If 语句第一课时一、 复习关系运算符1、 关系运算符及运算结果2、 实例分析55 54 5=4 5=4 假设a为10，b为20，c为 30 下例关系运算符的运算结果为什么?ab b=a a+b =c a+bc二、 逻辑运算符1、 逻辑运算符及运算结果And Or notNot (a0) 表示 不是a0(a0) and (b0) 表示 a,b同时都大于0(a0) or (b0) 表示 a或者b 大于 02、 实例分析三、 If语句1格式一 if 条件 then 语句1;2格式二 if 条件 then 语句1 else 语句2;功能：格式一的的执行过程是：若条件为真，则执行then后面的语句1。如果条件为假，将执行if语句的下一条语句。格式二的的执行过程是：若条件为真，则执行then后面的语句1。如果条件为假，将执行else后面的语句2。注意格式二中的语句1处没有分号。四、 实例分析实例1见书4-14实例2 输入一个判别该数是否的偶数是偶数输出”Yes”否则输出”No”实例3 输入a,b两个数输出其中最大的一个数。实例4见书4-15实例5输入a,b,c三个数，按从大到小的顺序输出。第二课时一、 if语句的嵌套条件语句中的语句1或语句2原则上说可以是任何语句，当然也可以是条件语句。当语句1或语句2是条件语句时，称为语句嵌套。形成嵌套的重要目的是为了解决较为复杂的、多种的条件出现的一些问题。例1计算下列函数 见书4-16分析：根据输入的x值，先分成x0与x0两种情况，然后对于情况x0，再区分x是小于0，还是等于0。源程序如下:program ex;varx:real;y:integer;begin wrtie(Input x:);readln(x);if x0then y:=1x0时，y的值为1else x0时if x=0then y:=0else y:=-1;writeln(x=,x:6:2,y=,y);end.显然，以上的程序中，在then子句中嵌套了一个型if语句。当然程序也可以写成如下形式：program ex;varx:real;y:integer;beginwrtie(Input x:);readln(x);if x=0then if x0then y:=1else y:=0else y=-1;writeln(x=,x:6:2,y=,y);end.但是对于本题，下面的程序是不对的。y:=0;if x=0then if x0 then y:=1else y:=-1;明显，从此人的程序书写格式可以看出，他想让else与第一个if配对，而事实上，这是错的。因为pascal规定：else与它上面的距它最近的then配对,因此以上程序段的逻辑意义就与题义不符。要使上程序段中esle与第一个then配对,应将程序段修改为：y:=0; 或者 y:=0;if x=0 if x=0then if x0 thenthen y:=1 beginelse if x0 then Y:=1;else y:=-1; endelse Y:=-1;例2输入一个年号,判断它是否是闰年。分析：判断闰年的算法是：如果此年号能被400除尽， 或者它能被4整除而不能被100整除，则它是闰年。否则，它是平年。源程序如下:program ex;var year:integer;beginwrite(Input year:);readln(year);write(year:6);if (year mod 400=0 )then writeln(is a leap year.)elseif (year mod 4=0)and(year mod 1000)then writeln(is a leap year.)else writeln(is not a leap year.);end.二、case语句上面我们知道可以用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。(一)、情况语句的一般形式：case of：语句1;：语句2;:：语句nend;其中case、of、end是Pascal的保留字， 表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。(二)、case语句的执行过程先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执行完语句后，跳到case语句的末尾end处。(三)、说明情况表达式必须是顺序类型的；情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型；情况常量出现的次序可以是任意的；同一情况常量不能在同一个case语句中出现两次或两次以上；每个分语句前可以有一个或若干个用逗号隔开的情况常量；如果情况表达式的值不落在情况常的范围内，则认为本case语句无效，执行case语句的下一个语句。turbo pascal中增加了一个否则的情况,即增加一个else子句，但也是可省的。每个常量后面只能是一个语句或一个复合语句。例2 根据x的值，求函数Y的值： 分析：利用case语句进行程序设计, 关键在于巧妙地构造情况表达式。本例中三种情况可用一个表达式区分出来：Trunc(x/100)。因为x在(0100)之间时表达式值为0；x在100,200)时表达式值为1 ；其余部分可用else子句表示。源程序如下:program ex;var x,y:real;beginwrite(Input x:);readln(x);case trunc(x/100) of0:y:=x+1;1:y:=x-1;else y:=0;end;end of casewriteln(x=,x:8:2),y=,y:8:2);end.三、选择结构的程序设计例4 判断1995年,每个月份的天数。分析：程序分为:输入月份,计算该月的天数,输出天数源程序如下：program days;var month,days:integer;beginwrite(Input month:);readln(month);case month of1,3,5,7,8,10,12:days:=31;4,6,9,11 :days:=30;2 :days:=28;else days:=0;end;if days0 then writeln(Days=,days);end.例5 期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。分析：对于以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为x div 4支。由于小q要把钱用完，故我们可以按以下方法将钱用完：若买完x div 4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完x div 4支4元钱的笔，还剩2元，则4元钱的笔