pascal入门培训笔记

1、PAGE PAGE 25第一章：计算机与程序设计简介一、计算机的三大功能计算功能；记忆功能；判断功能。二、计算机的发展世界上第一台计算机，1946年，美国，ENIAC三、计算机的组成结构由硬件和软件两部分组成。硬件结构的五个部分：输入设备：键盘、鼠标。输出设备：显示器、打印机。CPU中央处理器运算器控制器存储器：内存、外存四、计算机的语言低级语言机器语言：（0、1、代码）汇编语言：（符号指令）高级语言：（英文指令）（Pascal语言）五、Pascal程序的基本结构：例：小明每月存5元。问：四年他共存了多少元？首 部PROGRAM EX；说明部分VAR A,B：INTEGER;执 BEGIN行

2、A:=5；部 B:=A*12*4；分 WRITELN(B)； END.六、键盘指法：七、上机操作：、开机：显示器、主机、进入：TP环境（蓝白）在Windows界面上，双击MSDOS图标打TP、输入程序、执行程序：按CTRLF9、看结果（切换到输出屏幕（黑白）按ALTF5、新开一页（窗口）按ALTF选NEW命令、切换当前工作页面（窗口）按ALT页号、关闭当前窗口按ALTF3、退出TP环境按ALTE打X（选EXIT命令）、回Windows界面打EXIT、关机点击开始关闭系统关机Y关显示器上机程序：求自己两科的平均成绩PROGRAM EX2;VAR X,Y,S,P:INTEGER; BEGIN X:

3、= ;Y:= ; S:=X+Y; P:=S DIV 2; WRITELN(P=,P);END.第二章 顺序结构设计编程的“三步曲”：输入处理输出一、赋值语句（一）它能给变量一个数据如：A:=5;其中“:=”是赋值号、变量是可存放各种不同数据的“小盒子”（存储单元），在程序执行中，可改变它的值。、变量命名规则必须以字母开头，是字母、数字的组合如：BoxDA A125A A+B Pascal系统的“关键字”不能用如：Begin End练习：命名：长宽平均最大最小例句：A:=3;B:=-1;A:=5;重新赋值，则原值被冲掉B:=A;把A给B，A不变，B与A同值Pascal规定：变量在用之前，必须说明

4、它的类型。、四种简单标准类型：整数类型：INTEGER3276832767（MAXINT）（有序）用于：人数，物品个数实数类型：REAL即：带有小数的娄（无序）用于：金额、高度、重量实数有两种表示法：十进制如：123.45科学记数法：如：1234567890000 1.2345678900E+120.000012345 1.2345000000E-5字符类型：CHAR（有序）如：A、B、6、2序号范围：0255用于：文本信息处理布尔类型：（有序）BOOLEAN只有个值：TRUE（真）FALSE（假）序号：FALSETRUE如：为TRUE为FALSE用于：判断、变量说明的格式：VAR变量表：类型

5、；如：VARR:INTEGER；P:REAL;B:BOOLEAN;W:CHAR;BEGINR:=22;P:=86.5;B:=(P80);W:=N;B:=FALSE;END.练习：改正下列语句中的错误VARA,B:INTEGERS:REAL;BEGINA:=10:B:=A*12*3;S:=1.40;END.（二）赋值语句有计算功能如：B:=A*12*4;表达式用计算机的运算符、圆括号连接数和变量的算式。(A+B)2 (A+B)/2 (A-3)/(5*B)(A+1)B1B (A+1)*B+1)*B1/A+1/BPascal运算符：+、-、*、/整除：DIV求余：MOD练习：定义四种变量，写个赋值语

6、句（三）赋值语句的格式变量:=表达式；功能：将表达式的值赋给“:=”左边的变量。（四）应用举例例一：给A、B、C赋值万。直接赋值A:=10000; B:=10000; C:=10000;辗转赋值A:=10000; B:=A; C:=B;例二：累加与计数累加计数A:=0; A:=0; A:=A+5; A:=A+1; A:=A+10; A:=A+1; A:=A+30; A:=A+1; 例三：求A、B、C三科的平均成绩。已知：A98,B100,C97PROGRAM EX1;VARA,B,C:INTEGER;P:REAL;BEGINA:=98;B:=100; C:=97;P:=(A+B+C)/3;WR

7、ITELN(P:0:2);END.例四：把55给A，把16给B，然后交换A与B的值：用“冒泡法”PROGRAMEX2;VARA,B,C:INTEGER;BEGINA:=55;B:=16; C:=A;A:=B;B:=C;WRITELN(A,B:10);END.二、读语句：（一）它有三种类型READ(A,B);READLN(A,B);READLN;(二)功能：当执行到READ语句时，计算机会暂停下来，等待我们由键盘上输入数据。如：READLN(A,B); 输入：结果：AB作废READ(A,B)；输入：结果：AB（三）READ与READLN的区别：、READLN后面可以无输入项，表示只需要一个“”。

8、、READLN()读完所需的数据之后，会寻找“”符，而READ()读完所需的数据之后，不会寻找“”符。如：READLN(A);READLN(B,C)；输入：结果：A、作废B和C待输入如：READ(A);READLN(B,C);输入：结果；ABC（四）应用举例：例一：某水果店，水果每斤1.5元。编程输入：斤数输出：应付款（元）PROGRAM FRUIT;VAR J,Y:REAL;BEGINREADLN(J);Y:=J*1.5;WRITELN(Y:0:2);END.执行：输入： 输出：再执行：输入： 输出：例二：为某个同学计算三门学科的平均成绩。PROGRAMAVERAGE;VARA,B,C:IN

9、TEGER;P:REAL;BEGINREADLN(A,B,C);P:=(A+B+C)/3;WRITELN(P:0:1);END.执行：输入： 输出：再执行：输入： 输出：三、写语句（又称：输出语句）（一）它有三种句型：WRITE(A,B,C);WRITELN(A,B,C);WRITELN;（二）功能：它能计算并输出表达式的值对字符串可以按原样照印字符串用一对单引号括起来的一串字符如：ABC12例： A:=4; 输出： WRITELN(123);123 WRITELN(A); 4 WRITELN(A*12); 48 WRITELN(HELLO!) HELLO!（三）WRITE与WRITELN的区

10、别WRITELN后面可以无输出项，只是换行或空一行。WRITELN（）输出完之后，会自动换行。而WRITE（）输出完之后，不换行如：WRITE(12); 输出：1298WRITELN(98); AWRITELN(A);（四）输出格式用场宽控制、单场宽格式：WRITELN(X:n); X占n格宽，并靠右边对齐显示如：WRITELN(A:5,B:5);WRITELN(123:5);、双场宽格式（只用于实数）小数位整数位WRITELN(X:n1:n2);其中：n1总场宽n2小数位如：WRITELN(98.766);输出：9.8766000000E+01WRITELN(98.766:10:4); 98

11、.7660 WRITELN(98.766:10:2); 98.77 WRITELN(98.766:0:2); 98.77注意：如n2小于X的实际小数位数，则多出的位数按四舍五入处理。练习：编程：输入两个整数，求它们的和、差、积、商（五）应用举例：例：输入两个正整数A、B，求A+B，并打印出计算的横式和竖式。如：输入：A,B1234 56输出：1234+56=1290 1234 + 56 1290程序：PROGRAM EX1; VAR A,B:INTEGER; BEGIN WRITE(A,B=); READLN(A,B); WRITELN(A,+,B,=,A+B); WRITELN(A:20);

12、 WRITELN(+:15,B:5); WRITELN(:21); WRITELN(A+B:20); END.例：在屏中央打印图形*程序：PROGRAM EX2; BEGIN WRITELN(*:40); WRITELN(*:41); WRITELN(*:42); END.例：输入“秒”数，换算出它是多少分钟，多少小时。程序：PROGRAM EX3; VAR M:INTEGER; F,S:REAL; BEGIN WRITE(M=);READLN(M); F:=M/60;S:=F/60; WRITELN(F=,F:0:1); WRITELN(S=,S:0:2); END.练习：编程：输入两个正整

13、数，A,B求A-B。并打印计算的横竖式。输入“小时”数，换算出它是多少天，多少星期。在屏中央打印如下图形：EDCBACBAA第三章选择结构的程序设计条件语句：、两种句型：IF条件THEN语句；IF条件THEN语句ELSE语句；如果则否则功能：如果条件成立，则做语句，否则做语句。、“条件”的描述如：A = = 大于小于等于大于等于小于等于不等于如：N不超过100表达式为：N、=、=、如：A值之间(A0) AND (A0) OR (Y0)A不大于BNOT（AB）、条件语句例句：（设A、B为整数型）如果A和B都是正数，则打印它们的值。IF (A0) AND (B0) THEN WRITELN(A,B

14、:10); 如果A，B之和不低于，就在计数N当中加。IF A+B=180 THEN N:=N+1 如果A小于B，则把A的值给B，否则把B的值给AIF A(B/2) THEN WRITELN(DUO!); 如果A和B当中至少有一个是奇数，则打印A+B的值，否则打印A-B的值。IF (A MOD 2=1) OR (B MOD 2=1) THEN WRITELN(A+B) ELSE WRITELN(A-B);、应用：例一：输入一个整数，若它是的倍数，则打印“YES!”，否则打印“NO!” PROGRAM EX1; VAR A:INTEGER; BEGIN WRITE(A=);READLN(A); I

15、F A MOD 7=0 THEN WRITELN(YES!) ELSE WRITE(NO!) END. 例二：输入三个整数，将其中最小的选出来PROGRAM EX2; VAR A,B,C,X:INTEGER; BEGIN WRITE(A,B,C=); READLN(A,B,C); X:=A; IF XB THEN X:=B; IF XC THEN X:=C; WRITELN(X); END.例三：买西瓜。若买斤以内，则每斤西瓜八角，否则超出斤的那部分，每斤角。输入：斤数输出：应付款（元）PROGRAM EX3; VAR J,Y:REAL; BEGIN WRITE(J=);READLN(J);

16、IF J100 THEN Y:=100*0.8+(J-100)*0.5 ELSE Y:=J*0.8; WRITELN(Y:0:2); END.练习：输入一个整数，若它是奇数，则打“YES!”，否则打“NO!”。输入三个整数，将其中最大的选出来。二、复合语句：格式：BEGIN 语句；语句；语句N；END；例：输入A、B（整数），若A大于B，则交换A与B。PROGRAM EX1; VAR A,B,C:INTEGER; BEGIN WRITE(A,B=);READLN(A,B); IF AB THEN BEGIN C:=A; A:=B; B:=C; END; WRITELN(A,B:10); END

17、.三、情况语句：、格式：CASE 表达式OF 值情况表：语句； 值情况表N：语句N； ELSE语句； END;、功能：如果“表达式”的值出现在某个“值情况表”中，则做它后面的语句，否则做ELSE后的语句。、例一：输入XX年X月，输出该月有多少天。PROGRAM EX2; VAR N,Y,T:INTEGER; BEGINWRITE(N,Y=);READLN(N,Y);CASE Y OF 1,3,5,7,8,10,12:T:=31; 4,6,9,11:T:=30; 2:IF (N MOD 400=0) OR (N MOD 1000) AND (N MOD 4=0) THEN T:=29 ELSE

18、T:=28ELSE BEGIN WRITE(NO!); HALT; END;END;WRITELN(T);END.练习：输入一个整数A，根据A值分如下情况处理。若是，则打印“学数学”；若是，则打印“学电脑”；若是，则打印“学英语”；若是则打印“休息”否则打印“NO!”第四章循环结构的程序设计循环重复做一些事Pascal中有三种循环计数型循环（FOR）当型循环（WHILE）直到型循环（REPEAT）一、FOR循环有两种句型：、递增型FORI:=初值（小）TO终值（大）DO语句；如：FORA:=1 TO 10 DO WRITE(A:4);结果： 1 2 3 4 5 6 7 8 9 10如：FOR

19、I:=A TO F DO WRITE(I:2);结果： A B C D E F、递减型FORI:=初值（大）DOWNTO终值（小）DO语句；如：FOR A:=Z DOWNTO A DO IF AW THEN WRITE(A:2);结果： Z Y X如：FOR A:=10 DOWNTO 5 DO WRITE(A:4);结果： 10 9 8 7 6 5二、注意：控制变量必须是有序的数型。控制变量取值按其序号以递增或以递减。循环体只能是一个语句。若有多个语句，就用复合语句。若一开始“初值”就超过“终值”，则循环一次也不会做。三、应用：例：写结果：VAR I:INTEGER; BEGINFOR I:=

20、1 TO 10 DO WRITE (I*(I-1):4)；WRITELN;END. 0 2 6 12 20 30 42 56 72 90VAR K:INTEGER; BEGIN FOR K:=10 DOWNTO 5 DO WRITE(K+5:4); WRITELN; END. 15 14 13 12 11 10VAR C:CHAR; BEGIN FOR C:=A TO Z DO IF (CW) OR (CD) THEN WRITE(C:2); WRITELN; END. A B C X Y Z例二：计算1+2+3+100PROGRAM EX2; VAR A,H:INTEGER; BEGIN H

21、:=0; FOR A:=1 TO 100 DO H:=H+A; WRITELN(H); END.练习：、求5+6+7+65VAR A,H:INTEGER;BEGIN H:=0; FOR A:=5 TO 65 DO H:=H+A; WRITELN(H);END.、求(13)+(24)+(35)+(1012)VAR A,H:INTEGER;BEGIN H:=0; FOR A:=1 TO 10 DO H:=H+A*(A+2); WRITELN(H);END.例三：找出100中的奇数。VAR A:INTEGER;BEGIN FOR A:=1 TO 99 DO IF A MOD 2=1 THEN WRI

22、TE(A:4); WRITELN;END. 练习：输入A,B(INTEGER)，求A-B之间整数之和。求（12）+(23)+(1011)找出11000之间的的倍数。例：鸡兔同笼，已知有16个头，40只脚，鸡兔各有多少只？设：JI鸡TU兔循环：TU=110JI16-TU条件：TU*4+JI*2=40程序：PROGRAM EX4; VAR JI,TU:INTEGER; BEGIN FOR TU:=1 TO 10 DO BEGIN JI:=16-TU; IF TU*4+JI*2=40 THEN WRITELN(JI,TU:10); END; END.练习：有一份试卷上共26题，对一题得分，错一题扣分

23、，有同学全做了，但得分。做对、错各多少题？四、当型循环（while）语句使用for语句编写程序时需要事先知道循环次数，如果遇到不能确定循环次数的问题就无法使用了。当型循环语句提供了解决此类问题的方法。格式：while 布尔表达式 do 语句；例1 求 s=2+6+10+98的值。程序：program ex1;var s,x:integer;begin x:=2;s:=0; while x=98 dobegin s:=s+x; x:=x+4;end; writeln(s=,s);end.注意：为使while循环正常终止，布尔表达式中所含变量的值在循环体中一定要有所更改（如在例1中，布尔表达式中的

24、变量x:=x+4;），这样才能使布尔表达式的值发生变化，否则就会造成循环不能进行或者不能停止（也就是死循环）。例2 求两个自然数M、N的最小公倍数。Program ex2;Var n,m,i,s:longint;begin write(m,n=); readln(m,n); i:=1; s:=m*i; while s mod n0 dobegin i:=i+1; s:=m*i;end; writeln(s);end.练习：计算1+2+4+8+128+256。五、直到型循环（repeat）语句格式：repeat 语句1； 语句2； 语句n;until 布尔表达式；当程序执行到repeat语句时，

25、先执行repeat与until之间的语句序列，即语句到语句n。然后对布尔表达式进行判断，当布尔表达式值是假（条件不成立）时，重复执行语句到语句n的语句序列，直到布尔表达式的值是真（条件成立）时，退出循环，执行until语句下面的语句。注意：当型循环(while)是先判断后执行，直到型循环是先执行后判断。因此，直到型循环至少会被执行一次。例：某班准备挑选一名身材最高的同学参加学校篮球队，如何选出？程序：program ex;var n,h,m,l:integer;begin write(n=);readln(n);n为全班学生人数 writel(h=);readln(h);输入一名学生的身高数据

26、 m:=1;m表示已经参加过比较的学生数 repeatwrite(l=);readln(l);n为下一名学生的身高数据if lh then h:=l;比较高矮，并留下高的m:=m+1;参加过比较的学生数增加1 until m=n;判断是否所有学生都参加过比较了 write(h);end.练习：、输入整数A,B，求AB之间整数之和。、出11000之间的7的倍数。总复习标准常量：（个）MAXINT、TRUE、FALSE标准类型：（个）INTEGER、REAL、CHAR、BOOLEAN算术运算符符：（个）、*、 /、DIV、MOD布尔运算符：（个） 、 =、 、=、0 AND B0 THEN A:=

27、B;FOR I:=1 to 10WRITE(I:5);IF AB THENC:=A;A:=B;B:=C;3:=A;CASE I DO BEGIN1,2,3: X:=I; 4,5,6: Y:=I; END;FOR I:=10 DOWN 1 DO WRITE(I:5);IF AB THEN A:=B; ELSE B:=A;二、写结果VAR A:INTEGER;BEGINA:=2;A:=A+2;WRITELN(A);END. VARA,B:INTEGER;BEGIN A:=5;B:=6; B:=A; WRITELN(A,B:10);END.VAR X:INTEGER;BEGINWRITELN(X=,

28、10); WRITELN(X);END.VAR I:INTEGER;BEGIN FOR I:=1 TO 10 DO IF ODD(I) THEN WRITE(I:5);END.BEGIN WRITELN(*:40); WRITELN(*:41); WRITELN(*:42); END.VAR A,B,C:INTEGER; D:REAL; BEGIN A:=256; B:=A DIV 2; C:=A MOD 2; D:=A/B; WRITELN(A,B:5,C:5,D:8:2); END.VAR A:INTEGER; B:REAL; C:CHAR; D:BOOLEAN;BEGIN A:=1234; B:=5.678; C:=V; D:=FAL