freepascal教程(freepascal安卓版)

在网上可搜索“信息学奥赛辅导教程”、“Free_Pascal教程”、“一天学会Free_Pascal.ppt”、“Pascal_教程.pptx”， 可下载到相关的doc或ppt文件。
http://zhidao.baidu.com/link?url=ULw-5oNCSVSKU9qJ2cuo2fmrO-R_gXmVr5wLMdh_wJOFSh83_zAOWXtIPl0soHkYhBpePbvSHbgXLr3X9LU6TK

第一节Pascal 程序结构和基本语句 (1)程序首部由保留字Program开头，后面跟一个程序名(如:Exl1)；其格式为:Program程序名；程序名由用户自己取，它的第一个字符必须是英文字母，其后的字符只能是字母或数字和下划线组成，程序名中不能出现运算符、标点符和空格。(2)说明部分程序中所用的常量、变量，或类型、及过程与自定义函数，需在使用之前预先说明，定义数据的属性（类型）。[例1.2] 程序中 Var S，R，C: Real； 是变量说明，此处说明S，R，C三个变量均为实数类型变量。只有被说明为某一类型的变量，在程序中才能将与该变量同类型的数值赋给该变量。变量说明的格式为:Var变量表：类型；(3)语句部分指由保留字 Begin (开始)至 End. (结尾)之间的语句系列，是解决问题的具体处理步骤，也是程序的执行部分。Pascal程序不管是哪部分，每句末尾都必须有分号(；)，但允许最接近 End 的那个语句末尾的分号省略；程序结束的End末尾必须有圆点(. )，是整个程序的结束标志。程序中花括号“{}”之间的部分为注释部分。Pascal程序结构可归纳用如下来表示：Program程序名；程序首部标号说明； (Label)常量说明； (Const)说明部分类型说明； (Type)变量说明； (Var)过程或函数说明；Begin程序体 (主程序)语句系列；语句部分End.把处理问题的步骤编成能从上到下顺序执行的程序，是简单程序的基本特征。再来分析下面两道例题的Pascal程序结构和继续学习基本语句。程序中Pi是Pascal提供的标准函数，它返回圆周率的近似值：3.1415926…。(:=)是赋值符号，赋值语句的格式为:变量:=表达式；赋值语句的作用是将:=右边表达式的值记录到左边的变量中。Writeln是输出语句，输出语句有三种格式:① Write (输出项1，输出项2) ； ｛执行输出后光标不换行｝② Writeln (输出项1，输出项2) ； ｛执行输出后光标换到下一行｝③ Writeln ｛仅输出空白且光标换到下一行｝Writeln语句后面的圆括号以内部分均为输出项，可以是多项，各项间用逗号分隔； 对单引号里的内容按照引号内的原样(字符)输出显示。如果输出项是表达式，则只输出表达式的值，而不是表达式本身。执行本程序中第一个Write语句，输出其引号以内的一串提示信息，是给紧接着的输入语句提供明确的提示(要求)，有“一目了然，人机对话”之效果。Readln是一个特殊的输入语句，要求输入一个回车(换行)才能往下执行。Readln是输入语句，它的一般格式为:① Read (变量1，变量2)；② Readln (变量1，变量2)；③ Readln前两种格式均要从键盘给变量输入数据，输入时，所键入的数据之间以空格为分隔，以回车为输入结束。若多输入了数据(即数据个数超过变量个数)，Read语句读完数据之后，能让后续的读语句接着读取多下来的数据；而Readln 语句对本行多输入的数据不能让后续语句接着读取多下来的数据。为了防止多输入的数据影响下一个输入语句读取数据，建议尽量使用Readln语句输入数据。第三种格式不需输入数据，只需按入一个回车键。细心观察，会发现本程序语句的顺序很关键。此例用反推顺序(逆序)，按步骤正确推算出各变量的值。当然，有的问题可按正序步骤编程，这类程序都称为顺序程序。本程序Writeln语句的输出项含有('' :4 )，这里的冒号用来指定该项显示所占宽度，此处是输出4个空格即(空格项占4格)。：语句；因此，上面程序中的情况常量表可以写成如下程序中表示形式：Program Exam22_1；Var x,p: integer；tax: real；BeginWrite('Number=') ； readln(x) ；P:=trunc(x/1000) ；if P＞9 then P:=10；CasePof0 : tax:=0；1..4 : tax:=x*0.2；{ 从1至4作为同一情况处理 }5..9 : tax:=x*0.3；{ 从5至9作为同一情况处理 }10 : tax:=x*0.5end；Writeln('tt='，tt:5:2) ；ReadlnEnd.程序中的trunc(x)为取整函数，是Pascal的算术标准函数之一。Pascal常用的算术标准函数有19个:(1) abs(x) 求x的绝对值(|x|)；(2) exp(x) 求ex的值； （e为无理数2.71828…）(3) frac(x)求x的小数部分；(4) int(x) 求x的整数部分(不舍入，函数值为实型)；(5) ln(x)求以e为底的x的对数（log ex)；(6) odd(x) 判断x的奇偶数(当x为奇数时odd(x)值为true，否则为false)；(7) ord(x) 求x的序号，结果为整型(x为有序类型量)；(8) piπ值(3.1415926535897932…)；(9) pred (x) 求x(有序类型)的前趋值；(10) succ(x) 求x(有序类型)的后继值；(11) random 随机函数，产生0～1的随机值；(12) random(n)产生0～n的随机数(n为word类型，先执行randomize， 才能得到随机整数)；(13) round(x) 求x的四舍五入整数；(14) trunc(x) 求x的整数部分(截掉小数部分，结果为整型)；(15) sqr(x) 求x的平方值(x2 )；(16) sqrt(x) 求x的开平方根值( )；(17) sin(x) 求x的正弦函数(x为弧度)；(18) cox(x) 求x的余弦函数(x为弧度)；(19) arctan(x) 正切的反三角函数(x为数值)；习题2.21.运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:如果S＜250公里；运费为标准运价的100%如果250公里＜＝S＜500公里，运费为标准运价的98%；如果500公里＜＝S＜1000公里，运费为标准运价的95%；如果1000公里＜＝S＜2000公里，运费为标准运价的92%；如果2000公里＜＝S＜3000公里，运费为标准运价的90%；如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。2. 输入考试成绩，如果获85分以上为 A等，获60分～84分为B等，60分以下为C等，编程输出考试等级。3. 某车间按工人加工零件的数量发放奖金，奖金分为五个等级：每月加工零件数N < 100者奖金为10元；100 < = N < 110者奖金为30元；110 < = N <120 者奖金为50元；120 < = N <130 者奖金为70元；N > 130者为80元。请编程，由键盘输入加工零件数量，显示应发奖金数。第三章 循环程序在编程中经常遇到需要多次规律相同的重复处理，这就是循环问题。Turbo Pascal采用不同的循环方式来实现，常用的环循有三种:for、repeat、while.第一节 for 循环for循环是一种自动计数型循环。程序中的变量yse为布尔(或逻辑)类型(Boolean)。布尔值只有两个：True(真)False(假)布尔值与条件判断结果为真(条件成立)或为假(条件不成立)的作用相同，常用于条件语句和循环语句中。上面程序中用 if yes and (t mod 7=0) then writeln；实现每行打印七个素数换行，程序中布尔变量yes为真，在逻辑上表示是素数；关系式（t mod 7=0) 的值为真时，表示该行输出素数巳是7个；用and将这两个“条件”连起来是作一种布尔(逻辑)运算。Pascal 共有四种逻辑运算符：① and (与)两条件都为True时，其结果值为True；否则为False；② or (或) 两条件中只要有一个为True ；其结果值为True；否则为False；③ xor (异或) 两条件的逻辑值不相同时，其结果值为True；否则为False；④ not (非) 条件为True时，其结果值为False；否则为True；(取反)第二节 repeat 循环Repeat循环是直到型循环。程序中的Repeat循环格式为:repeat循环体语句；until 条件表达式； ｛直到条件为真｝Repeat循环首先执行由Repeat和Until括起来的循环体语句，然后检查Until后面的条件表达式：如果表达式结果为假，则继续执行循环体，接着继续检查Until后面的条件表达式，如此反复执行直到这个表达式结果为真时结束循环。Repeat循环体语句必须有能改变Until后面条件表达式值的语句，并最终使这个条件表达式的值为真，使循环自动结束。程序中inc (a) 指令相当于a: =a+1，常用的同类指令格式如下:(1) inc(x)等同 x:=x+1；(2) inc(x, n)等同 x:=x+n；(3) dec(x) 等同 x:=x—1；(4) dec(x，n) 等同 x:=x—n；第三节 While 循环While循环是当型循环。程序中采用While当型循环，While循环语句的格式为:While 条件式 do 语句;其中do后面的“语句”是被重复执行的,称为循环体;若循环体是多个语句, 必须用begin--end包起来成为复合语句。While循环首先判断条件式，当条件式的值为真就执行do 后面的语句（循环体）。While的循环体内也必须包含能改变控制变量取值语句, 影响条件式的值, 最终使条件式为false (假), 才能结束循环。 Pascal语言的三种基本循环方式,for循环对循环范围有明确规定, 且循环变量只能是递增加1或递减1自动计数控制; 而repeat--until循环和while--do循环比较灵活, 只要对条件表达式的值能控制满足一定要求就能组成循环, 但在循环体中必须有改变循环变量值的语句, 使条件判断（逻辑值）最终为True或flase, 让循环能够终止。
你接处过编程没有呢！有但不会pascal语法，我可以说说。没有看1楼的吧。（假如你没有，1楼的你也看不懂呢！） 输入输出：read（v1，v2，...，vn）换行：readLn（略）只换行不读：readLnwrite（v1，v2，...，vn），其他同上close（file）；关闭文件：Assign（input，file1);Reset(input);建立输入与file1的联系（即输入即从f1读）；从头读；输出把in改out，reset改rewrite即可（此时输出文件被清空）赋值是 ：=不等于是<>优先级看着试试就行编小游戏是不是要图形教程？下面这个可以的。（Turbo P~和Free P~没什么区别，2.4语法也和原来一样！，速度比2.3慢了呢）下面是一个图形教程http://wenku.baidu.com/view/646847ec102de2bd96058858.html

第一章 开始编写pascal语言程序 1.下载Turbo Pascal6.0(1)下载turbo pascal(2)属性设置2.Turbo Pascal 6.0环境介绍(1)进入与退出(注意:退出时必须使用文件菜单中的退出命令或Alt+X)(2)编辑程序光标移动键的使用Backspace键:删除光标前一个字符Ctrl+N:在光标前插入一行Ctrl+Y:删除光标所在行Home:光标移到行首End:光标移到行尾PageUp/PageDown:上下翻页Insert:插入与改写状态切换(3)编译程序(Compile):Alt+F9(4)运行程序(Run):Ctrl+F9(5)保存程序(Save):F2(6)打开原有的程序:F3(7)查看程序运行结果:Alt+F5(8)调试时增加观察项:Ctrl+F71.2 简单Pascal程序的结构例1下列是一Pascal源程序:program lt1;{程序首部}var {说明部分}a,b:integer;sum:integer;begin {执行部分}a:=3355;b:=789;sum:=a+b;writeln('sum=',sum);end.1.3 完整的Pascal程序结构一个完全的Pascal程序结构program 程序名；uses 已知单元说明；label 标号说明；const 常量说明；type 类型说明；var 变量说明；function 函数说明；procedure 过程说明；begin语句；语句；……语句;end.作业：1.熟悉Pascal编辑环境.2.记住快捷键的使用.3.编写78*67的值的Pascal程序并运行.第二章Pascal语言基础知识2.1 Pascal的字符与符号2.2 Pascal数据类型2.3 常量与变量2.4 标准函数2.5 运算符和表达式练习与作业2.1 Pascal字符与符号1．标识符(1) 标识符的定义：标识符就是以字母开头的字母数字序列，有效长度为63个字符，并且大小写等效。可以用来标示常量、变量、程序、函数等。例如例1.1中的Area(程序名)，pi(符号常量)，s、r(变量名)都是标识符。(2) 标识符的分类：a.保留字(关键字)所谓保留字是指在Pascal语言中具有特定的含义，你必须了解它的含义，以便于正确的使用，否则会造成错误。标准Pascal语言中的保留字一共有35个，Turbo Pascal语言一共有51个。下面是Pascal语言的保留字:AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DOWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，IN，LABEL，MOD，NIL，NOT，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH等b.标准标识符：指Pascal语言预先定义的标识符，具有特殊含义。以下列举了Turbo Pascal语言部分常用的标准表识符：标准常量 FalseMaxint True标准类型 Boolean CharReal Integer标准函数 Abs Arctan Chr Cos EofEolnExpLnOdd Ord Pred Round Sin SqrSqrt SuccTrunc标准过程 Dispose Get New Pack PagePut ReadReadlnResetRewrite UnpackWrite Writeln标准文件 InputOutputc．用户自定义标识符：由你自己根据需要来定义。（1）选用的标识符不能和保留字相同。（2）语法上允许预定义的标准标识符作为你自己定义的标识符使用，但最好还是不要用。以下列举了你自己在定义标识符时可以用的字符：A——Z；a——z；0——9；+，-，*，/，=，<>，<=，>=，<，>，(，)，[，]，{，}，:=，，，；，.，：，..，'，^2.2 Pascal数据类型数据是程序设计的一个重要内容，其重要特征----数据类型，确定了该数据的形、取值范围以及所能参与的运算。Turbo Pascal 提供了丰富的数据类型，这些数据类型可以分为三大类：简单类型、构造类型和指针类型，其中简单类型可以分为标准类型（整型、实型、字符型和布尔型）和自定义类型（枚举型和子界型），构造类型可以分为数组类型、集合类型、记录类型和文件类型。这些数据类型中除了指针类型是动态数据类型外，其他的都是静态数据类型。在这些数据类型中的简单类型都是有序类型，除了实型以外的简单类型都是顺序类型，所谓顺序类型就是他们的值不仅是有序的而且是有顺序号。在这里主要介绍整型、实型、字符型和布尔型四种常用的数据类型。1.整型一个整型数据用来存放整数。Turbo Pascal支持五种预定义整型，它们是shortint（短整型）、 integer（整型）、 longint（长整型）、 byte（字节型）和 word（字类型），Turbo Pascal分别用相同的名字作为他们的标识符。每一种类型规定了相应的整数取值范围以及所占用的内存字节数。类型 数值范围占字节数格式shortint -128..1281带符号8位inteter -32768..327672 带符号16位longint -2147483648..2147483647 4 带符号32位byte0..255 1带符号8位word 0..65535 2带符号16位Turbo Pascal规定了两个预定义整型常量标识符maxint和maxlonint，他们各表示确定的常数值，maxint为32767， longint为2147483647，他们的类型分别是integer 和longint2.实型一个实型数据用来存放实数。Turbo Pascal支持五种预定义实型，它们是real（基本实型）、 single（但精度实型）、double（双精度实型）、extended（扩展实型）、comp（装配实型），Turbo Pascal分别用相同的名字作为他们的标识符。每一种类型规定了相应的实数取值范围、所占用的内存字节数以及它们所能达到的精度类型 数值范围占字节数 有效位数real2.9e-39..1.7e386 11..12single 1.5e-45..3.4e384 7..8double 5.0e-324..1.7e308 8 15..16Turbo Pascal支持两种用于执行实型运算的代码生成模式：软件仿真模式和80x87浮点模式。除了real可以在软件仿真模式下直接运行以外，其他类型必须在80x87浮点模式下运行。3.布尔型一个布尔型数据用来存放逻辑值（布尔值）。布尔型的值只有两个：false和true，并且false的序号是0，true的序号是1。false 和true都是预定义常数标识符，分别表示逻辑假和逻辑真。并且true=<常量>;...<常量标识符>=<常量>;常量标识符的类型由定义它的常量的类型决定。例如：const a=12 隐含说明a是整型；const r=3.21 隐含说明r是实型......(3)常量定义部分必须以保留字const开头，可以包含一个或几个常量定义，而且每个常量均以分号结束。(4)Turbo Pascal类型常量类型常量，又称变量常数，它是Turbo Pascal的一个扩充特性。类型常量的定义与标准Pascal规定的常数定义和变量说明有所区别。类型常量定义的语法格式：const<简单类型常量标识符>:简单类型=常数；例如：constcounter:integer=0;flag:boolean=true;index:0..100=0;2.变量(1)变量：在某个程序中的运行过程中其值可以发生改变的量(2)变量说明：变量说明出现在说明部分。它的语法格式是：var<变量标识符列表>:<类型>;...<变量标识符列表>:<类型>;其中，保留字var表示开始一个变量说明部分。变量标识符列表是一个用逗号隔开的标识符序列，冒号后面的类型是类型标识符。每个变量说明均以分号结束。例如：vara,b,c:integer;m,n:real;2.4 标准函数1.算术函数函数标识符自变量类型意义 结果类型abs整型、实型绝对值同自变量arctan 整型、实型反正切实型cos整型、实型余弦 实型exp整型、实型指数 实型frac整型、实型小数部分 实型int整型、实型整数部分 实型ln 整型、实型自然对数 实型pi 无自变量 圆周率实型sin整型、实型正弦 实型sqr整型、实型平方 同自变量sqrt整型、实型平方根实型例：abs(-4)=4abs(-7.49)=7.49arctan(0)=0.0sin(pi)=0.0 cos(pi)=-1.0 frac(-3.71)=-0.71int(-3.71)=-3.0 sqr(4)=16 sqrt(4)=22.标准函数函数标识符自变量类型 意义 结果类型odd 整型 判断奇数布尔型pred离散类型 求前趋 同自变量succ离散类型 求后继 同自变量例：odd(1000)=falsepred(2000)=1999succ(2000)=2001odd(3)=truepred('x')='wsucc('x')='y'3.转换函数函数标识符自变量类型 意义结果类型chr byte 自变量对应的字符字符型ord 离散类型 自变量对应的序号longintround实型 四舍五入longinttrunc实型 截断取整longint例：chr(66)='B' ord('A')=65 round(-4.3)=-5trunc(2.88)=24.杂类函数函数标识符自变量类型 意义 结果类型random 无自变量[0,1间的随机实数 realrandom word [0,自变量间的随机整数)wordrandomize无自变量 初始化内部随机数产生器 longintupcase 字符型使小写英文字母变为大写 字符型downcase字符型使小写英文字母变为大写 字符型2.5 运算符和表达式1.运算符和优先级(1)运算符是实型，如果全部的运算对象都是整型并且运算不是除法，则结果为整型，若运算是除法，则结果是实型a.算术运算符运算符运算运算对象 结果类型+加整型、实型只要有一个运算对象是实型，结果就-减整型、实型是实型，如果全部的运算对象都是整*乘整型、实型型并且运算不是除法，则结果为整型，/除整型、实型若运算是除法，则结果是实型。div整除整型 整型mod取余整型 整型b.逻辑运算符运算符 运算运算对象结果类型not 逻辑非布尔型 布尔型and 逻辑与布尔型 布尔型or逻辑或布尔型 布尔型xor 逻辑异或 布尔型 布尔型c.关系运算符运算符 运算运算对象结果类型=等于简单类型 布尔型<>不等于 简单类型 布尔型<小于简单类型 布尔型>大于简单类型 布尔型<=小于等于简单类型 布尔型>=大于等于简单类型 布尔型(2)优先级运算符优先级not 1(高)*,/,div,mod,and 2xor,+,-,or3in,=,<>,>=,<=,<>4(低)2.表达式(1)算术表达式：算术表达式是由算术运算符连接常量、变量、函数的式子。算术表达式中各个运算符的次序为： ( )-->函数-->*,/,div,mod-->+,1(2)布尔表达式：Turbo Pascal提供给布尔表达式以下基本操作：逻辑运算和关系运算。（3）数学上的表达式与pascal语言表达式的区别数学表达式 PASCAL表达式注意2a 2*a*号不能省略a÷b a/b除号的写法a≠b a<>b不等号的写法a≤b a<=b小于等于号的写法思考与练习：1、熟记Pascal的保留字和标准标识符，明确自定义标识符的定义要点。2、取整函数int与截断取整函数trunc有什么区别？举例说明。3、判断以下标识符的合法性：a33aa17 abcdex9.5αβ λ5、将下列的数学表达式改写成PASCAL表达式：b^2-4ac6、求下列表达式的值：20 mod 19 15 mod 9 7 div 819 div 3(4>5) and (7<8)(8>9) or ( 9<10)2 and ((3=3) or(3<7))第三章 顺序结构程序设计练习与作业3.1 赋值语句PASCAL有两个语句可以改变变量的值。赋值语句是其中之一（另一个是读语句）。赋值，顾名思义，就是把一个值赋予某个量。可以这理解：变量相当于装东西的容器，赋值的过程就是把东西放进容器的过程。赋值语句格式如下：变量：=表达式；写赋值语句有以下几点要注意：1、赋值号“：=”赋值号由两个字符构成，是一个运算符。如果把这两个字符拆开，那么这两个字符就是别的意思了：“：”是分隔符而“=”是关系运算符，判定两个对象是否相等。刚刚写程序的同学要特别注意这一点。例：a，b：integer；——是一个说明语句。“：”是变量表和变量类型的分隔符a=b——是一个表达式。它的值是一个布尔类型的量：TRUE或FALSEa：=3；——是一个语句。把整型常量值3赋给整型变量a2、变量要先说明在赋值号左边出现的变量，要在程序头的说明部先加以说明，否则编译时出错。3、表达式必须要有确定的值赋值号右边出现的表达式，必须是可以求值的。也就是说，经过运算之后，能得出一个具体的、确定的值出来。大家想一想，如果连表达式自己都不知道自己的值是多少，怎么还能把值“赋予”别人呢？4、赋值号两边的数据类型必须相同或相容我们知道，PASCAL中的量不管是变量还是常量都有一个属性称为“数据类型”。数据类型相同的或相容的才可以相互赋值。怎么来理解这句话呢？打个比方，我们沏功夫茶用的是小茶杯，装饭时用饭碗。如果用饭碗来泡功夫茶，用小茶杯来装饭，那情形一定很滑稽而且是不可行的。回到PASCAL中来，赋值号左边变量如果是整型，右边表达式的值的类型也要是整型；赋值号左边变量如果是字符型，右边表达式的值的类型也要是字符型……否则的话，也要出错了。这是数据类型相同的情况。对于数据类型相容的，我们也可以用一个例子来帮助理解。我们都喝过功夫茶，也喝过大杯茶。把功夫茶倒在大茶杯里，一般不会出什么问题；但如果把大杯里的茶倒在功夫茶杯里呢？可能小茶杯装不下大茶杯里的茶，茶“溢出”了。在PASCAL中也会出现这种情况。当一种数据类型的取值范围包含着另一种数据类型的取值范围时，就可能出现类型相容的情况。如实型与整型，整型、字符型与它们各自的子界类型……如果把整型值赋给实型变量，把整型子界值赋给整型变量，不会出错；但如果反过来，就会出现“溢出”，出错了。因些，我们在写赋值语句时，要注意两边的类型是否匹配。例：有程序如下：var a，b：integer；c：real；d：0..100；begina：=100；b：=a；{-------------以上是相同数据类型进行赋值}d：=100；b：=d；c：=b；{-------------以上是相容数据类型进行赋值}d：=b；a：=c；{-------------以上两个赋值语句都出现溢出，编译时出错}end.3.2 读语句读语句（read语句）和赋值语句一样，能够改变变量的值。与赋值语句不同，读语句从键盘或文件接收值赋予变量，而赋值语句则直接由程序语句获得。读语句格式如下：read(变量名表)；readln(变量名表)；readln；读语句是编程中用得最多的语句之一。在使用时有几点要注意：1、变量名表。写在括号中的变量，都要在变量说明中先预以说明；变量与变量之间，以“,”分隔；例：var a,b:integer;read(a,b);2、从键盘接收数据时，要注意各种不同数据类型数据的分隔符不同。所谓分隔符就是两个完整的数值之间的标记，也可以这样理解，当计算机从键盘读入数据时，一旦碰到分隔符，就认为当前的数据读入已完成，可以把它赋给相应的变量了。各种数据类型的分隔符如下：数值型（包括整型、实型以及它们的子界类型）以空格或回车符作为分隔符；字符型不需分隔符（因为字符型数据的长度固定，只有一个）；字符串以回车符作为分隔符。3、注意read与readln的区别例：有两段程序有相同的变量说明如下，不同的读语句，我们可以通过比较它们执行结果的异同来理解read与readln的区别。变量说明var a,b,c,d:integer； 执行结果abcd程序段一read(a);readln(b,c);read(d);1236程序段二readln(a);read(b,c);read(d) 1678输入数据1 2 3 4 56 7 8在程序段一执行时，“read(a);”语句接收了第一个数据1并将它赋给变量a；接着执行第二个语句“readln(b,c);”，接收了第一行数据中的2、3并把它们分别赋给变量b,c，同时，把本行其它数据全部屏蔽掉，也就是宣布它们全部作废。程序段二的执行情况也是如此。因此，我们可以得出结论：语句read只管接收数据，语句readln接收完数据后，还把同行的其它数据全部宣布作废。4、“readln;”语句从键盘接收一个回车符。这个语句通常用在需要暂停的地方。如输出时用来等待程序员看清结果。3.3 写语句写（write）语句是Pascal中唯一能将运算结果送出显示在显示器屏幕的语句。格式如下：write(输出量表)；{输出后不换行}writeln(输出量表)；{输出后换行}writeln；{输出一个回车符}使用写语句时也有一些小问题需要注意。1、输出量可以是：变量。输出变量的值。输出多个变量时，变量间用“,”分隔。表达式。输出的是表达式的值。常量。直接输出常量值。2、场宽的限制在输出不同格式的数值时的作用：例1：输出多个空格。write(''：n);句子的意思是以n个字符宽度输出冒号前数据项，如果数据项长度不足n，则前面以空格补齐；如果数据项长度大于n，则以实际长度输出。如上语句句输出n个空格。例2：数据项间隔。如输出最多四位的数据：write(x:5)。则数据间至少分隔一个空格。例3：实型数据小数位数的确定。实型数据不带格式限制时，以科学计数法的形式输出，和我们的一般书写习惯不同。如果加上场宽的限制，则可以有不同的效果：var a:real;begina:=15/8;writeln(a);{输出 1.8750000000E+00}wiiteln(a:0:2);{输出 1.88 整数部分按实际位数输出，小数部分保留两位小数，末位四舍五入.}writeln(a:0:0):{输出 2 只输出整数部分，小数部分四舍五入}end.3、“writeln;”语句通常用于输出多组数据时在屏幕上输出空行来分隔数据组。思考与练习：1、 用字符输出一个猪锦佳的头像。2、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成）4、 从键盘上读入小写的"pascal"，利用CHR（）和ORD（）函数，输出大写的"PASCAL"。5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数，输出该实数本身、整数部分、小数部分、四舍五入后的值。要求：分三行输出 ；输出实数本身时，格式与读入时相同；整数部分、小数部分在同一行输出；其它各占一行。6、 从键盘上读入长方形的边长a,b，计算它的面积和周长，输出。7、 输入一个时、分、秒，把它转换为一个秒数。12.1 单步执行任何一个天才都不敢说，他编的程序是100%正确的。几乎每一个稍微复杂一点的程序都必须经过反复的调试，修改，最终才完成。所以说，程序的调试是编程中的一项重要技术。我们现在就来掌握一下基本的程序调试。 我们以下的示范，是以时下比较流行的Borland Pascal 7.0为例子，其他的编程环境可能略有不同，但大致上是一致的。我们先编一个比较简单的程序，看看程序是如何调试的。program tiaoshi;var i:integer;beginfor i:=1 to 300 dobeginif i mod 2 = 0 thenif i mod 3 = 0 thenif i mod 5 = 0 thenwriteln(i);end;end.该程序是输出300以内同时能被2，3，5整除的整数。 现在我们开始调试。 调试有多种方法，先介绍一种，权且叫步骤法，步骤法就是模拟计算机的运算，把程序每一步执行的情况都反映出来。通常，我们有F8即STEP这个功能来实现，如图： 不断地按F8，计算机就会一步步地执行程序，直到执行到最后的“end.”为止。可能你还没有发现F8的威力，我们不妨把上面的程序略微修改一下，再配合另外的一种调试的利器watch，你就会发现步骤法的用处。program tiaoshi;var i:integer;a,b,c:boolean;beginfor i:=1 to 300 dobegina:=false;b:=false;c:=false;if i mod 2 = 0 then a:=true;if i mod 3 = 0 then b:=true;if i mod 5 = 0 then c:=true;if a and b and c then writeln(i);end;end.如图，我们单击菜单栏中debug选项，里面有一项叫watch的选项，我们单击它。就会出现一个watch窗口：watch窗口可以让我们观察变量的变化情况，具体操作是在watches窗口内按Insert键：这时，屏幕上弹出一个菜单，我们输入所需要观察的变量名，我们分别输入i,a,b,c这4个变量名，于是watches窗口内就有如下的4个变量的状态：这时，我们再次使用步骤法，我们会发现，这4个变量的状态随着程序的执行而不断变化，比如：这样我们就可以方便地知道执行每一步之后，程序的各个变量的变化情况，从中我们可以知道我们的程序是否出错，在哪里出错，方便我们及时地修改。 下一次，我们介绍另外的一种方法，断点法。12.2 断点发在前面我们已经学习了基本的程序调试方法——步骤法。步骤法有一个缺点，就是在遇到循环次数比较多或者语句比较多的时候，用起来比较费时，今天我们来学习一种新的也是常用的调试方法——断点法。所谓断点法，就是在程序执行到某一行的时候，计算机自动停止运行，并保留这时各变量的状态，方便我们检查，校对。我们还是以前面求同时能被2，3，5整除的3000以内的自然数为例，具体操作如下：我们把光标移动到程序的第14行，按下ctrl+F8，这时我们会发现，该行变成红色，这表明该行已经被设置成断点行，当我们每次运行到第14行的时候，计算机都会自动停下来供我们调试。我们必须学以致用，赶快运用刚学的watch方法，看看这家伙到底有多厉害。请记住，计算机是执行到断点行之前的一行，断点行并没有执行，所以这时b:=true这一句并没有执行。 断点行除了有以上用处之外，还有另外一个重要用处。它方便我们判断某个语句有没有执行或者是不是在正确的时刻执行，因为有时程序由于人为的疏忽，可能在循环或者递归时出现我们无法预料的混乱，这时候通过断点法，我们就能够判断程序是不是依照我们预期的顺序执行。
告诉我你的邮箱，或者你发邮件过来，我的邮箱是acqc1@163.com，我们用的一个教程，十分详细，本人韶关市一中电脑培训班的。
http://58.61.34.206/down?cid=40168D62DB367215969232759B7E525239EAA785&t=3&fmt=- 这里有
我有，是一个文件来的。 QQ：464828678
你的邮箱，我的邮箱是zfz1995@126.com,可能不好用，或者找QQ:381972794,这里有解答,ppt版

第一章、pascal介绍 一、pascal的基本语法单位1、基本符号A——Z；a——z；0——9；+，-，*，/，=，<>，<=，>=，<，>，(，)，[，]，{，}，:=，，，；，.，：，..，'，^注意：pascal语言除了能使用以上规定的基本符号外，不得使用任何其它符号。2、保留字AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DIWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，LABEL，MOD，NIL，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH。注意：所起的文件名不能与保留字相同。3、标识符以字母打头的字母数字串，长度小于等于8。标准标识符（共三十九个）：标准常量：false,true,maxint标准类型：integer,real,char,boolean,text标准文件：input,output标准函数：abs,arctan,chr,cos,eof,eoln,exp,ln,odd,ord,ored,round,sin,sqr,sqrt,succ,trunc标准过程：get,new,pack,page,put,read,readln,reset,rewrite,unpack,write, writeln二、程序结构1、由三大部分组成：程序首部，说明部分，语句部分。PROGRAM 程序名(input,output)；{……} 解释CONSTpi=3.14159；VARr,l,s:real;BEGINwrite('input r:');read(r);l:=2*pi*r;write('l=',l,'s=',s);END;2、大量使用标点符号，保留字后不加标点符号（END除外）。第二章、顺序结构程序设计一、标准数据类型1、实型(real)小数表示法、指数表示法2、整型(integer)正、负整数和零maxint=32767pred：前导；succ：后继[例]：pred(3)=2；succ(3)=4；pred(true)=false；succ(false)=true3、字符型(char)是指在两个单引号中的一个字符。ord：取序数[例]：ord('A')=654、布尔型(boolean)false；true用于布尔型的运算：NOT、AND、ORord(true)=1；ord(false)=0二、常量和变量的定义常量的定义：CONSTpi=3.14159；blank=''；变量的定义：VARr,l,s:read；cl:char；三、表达式及赋值语句[例]：b2-4ac 写成：sqt(b)-4*a*c赋值：<变量>：=<表达式>四、输入输出语句1、输入语句：read(<变量表>)；readln(<变量表>)注：表达式里面变量与变量之间用逗号隔开；readln表示下一个语句将从下一行开始操作；输入时，整型或实型用空格或回车隔开，字符型之间无需分隔，一个接一个输入。2、输出语句：write(<输出表>)；writeln(<输出表>)注：对real或integer限定场宽：write('a=',a:2:0) {a为real型}第三章、选择结构程序设计一、if 语句格式：IF<条件>THEN<语句1>ESLE<语句2>注：1、ELSE与最近的并且未被配对的ELSE配对；2、复合，如果THEN或ELSE带有多个语句，则要用BEGIN——END括起来。二、CASE语句格式：CASE <表达式> OF<值表1>：<语句1><值表2>：<语句2>……<值表n>：<语句n>[ELSE<语句>]END注：1、值表的三种表达方式：“1：”；“2，4，6：”；“10..100：”2、CHAR，INTEGER，BOOLEAN有序第四章、循环结构程序设计一、FOR语句格式：1、FOR <循环变量>：=<初值> TO <终值> DO <语句>；2、FOR<循环变量>：=<终值> DOWNTO <初值> DO <语句>。[例1]：输入10个数，求最大值、最小值、和、及平均值。PROGRAMten(input,output);VARa,s,max,min,avg:real;i:integer;BEGINwrite('please input:');read(a);s:=a;max:=a;min:=a;FOR i:=2 TO 10 DOBEGINread(a);s:=s+a;IF a>max THENmax:=aELSEIF a DO<循环体>[例1]：输入一串字符串，求第一个“，”前的大小写字母个数和其它字符个数。program string(input,output);varch:char;c,s,o:integer;beginwrite(……);read(ch);c:=0;s:=0;o:=0;while ch<>',' dobeginif (ch>='A')and(ch<='Z') thenc:=c+1else if (ch>='a')and(ch<='z') thens:=s+1elseo:=o+1;read(ch);end;write(……)；end.三、REPEAT语句格式：REPEAT<循环体>UNTIL[例]：以字符(char)的形式读入一实数，以实形(real)输出该数。第五章、函数与过程程序设计一、函数（包括标准函数和自定义函数）1、函数的定义格式：FUNCTION 函数名（<形参表>）：返回值类型；VAR<变量说明>BEGIN<函数体>END[注]：1、形参表每个参数都写明其类型；2、有且只有一个返回值，并且要将返回值赋值给函数名。[例]：求五边形的面积function area(a,b,c:real):real;varp:real;beginp:=(a+b+c)/2;area:=sqrt(p*(p-a)*(p-b)*(p-c);end;2、函数的调用1）、函数的调用必然出现在表达式中（等号的右边），不能以单独地在语句出现2）、调用时，将每个实参传递给对应的形参program ml_area(input,output);varl1,l2,l3,l4,l5,l6,l7,s:real;function area(a,b,c:real):real;varp:real;beginp:=(a+b+c)/2;area:=sqrt(p*(p-a)*(p-b)*(p-c);end;beginwrite('input');readln(l1,l2,l3,l4,l5,l6,l7);s:=area(l1,l2,l6)+area(l2,l6,l7)+……;writeln('s=',s:10:3);end.二、过程格式：PROCEDURE<过程名>(<形式参数表>)VAR<说明部分>BEGIN<过程体>END；[例1]某过程的形参表为（var a,b:real;c,d:integer;var e:char)；主程序中有如下变量说明：x,y:real; m:integer; next:char；则以下实参表中合法的有：(1、2、3)1、(x,y,m+3,70,next)2、(y,x,m,m,next)3、(y,x,35,m DIV 10,next)4、(m,x,30,10,next)5、(x,y,m,10)6、(35,0,y,m,10,next)7、(x,y,m,m/10,next)8、(A,B,30,10,next)[例2]求程序输出的结果。program ex(input,output);varx,y,z:integer;procedure s(x:integer; var y:integer);varz:integerbeginx:=5;y:=6;z:=7;end;beginx:=1;y:=2;z:=3;s(x,y);writeln(x,y,z);end.输出结果：163[例3]：求五个数中的最大值。program max_in_5(input,output);varn1,n2,n3,n4,n5:integer;procedure lagest_in_three(a,b,c:integer;var e:integer)begine:=a;ifb>e thene:=b;if c>e thene:=c;end;beginwrite('……');readln(n1,n2,n3,n4,n5);lagest(n1,n2,n3,n1);lagest(n1,n4,n5,n1);write(n1);end.三、嵌套[例]：计算、program Cmn(input,output);function fax(x:integer):integer:vari:integer;beginfac:=1;for i:=1 to x dofac:=fac*i;end;function c(a,b:integer):real;beginc:=fac(a)/fac(b)*fac(a-b)end;beginwriteln('c(9,3)=',c(9,3));writeln('c(8,5=',c(8,5));end.四、递归函数或过程调用它本身，称为递归。[例1]、用递归计算n!{=m!/n!(m-n)!}program fac_n(input,output);varn:integer;function fac(n:integer):integer;beginifn=1 then fac:=1else fac:=n*fac(n-1);end;[例2]、用递归计算1)、function power(a,b:integer):integer;beginif b=1 then power:=aelse power:=a*power(a,b-1);end;2)、procedure power(a,b:integer;var c:integer);beginifb=1 then c:=aelse power(a,b-1,c);c:=a*c;end;[例3]、输入一串字符串（以‘.’结束）按逆顺输出program revers(input,output);procedure rever;varc:char;beginread(c);ifc<>'.' then rever;write(c);end;beginrever; end.
lipoqil:已发，请查收
淘宝上有 free pascal 语言与基础算法
我也想要一份资料：邮箱1411929486@qq.com谢谢
入QQ群33677951 大量教程

关于保存：直接点击file（文件）下拉菜单，选择save或save as【另存为】（这个应该会吧？） 保存路径可以这样解决：直接输入d:xx.pas(xx是文件名)，然后你再点开d盘，把那个文件复制到你想要的位置就行了，打路径很麻烦的……调试时，先用compile编译，如果要看错误原因及位置，在编译后点f5就行（如果没通过）如果要调试非语言错误，可以点击f7（分步运行），你点一次程序就运一行，便于你观察各个变量的变化——这个功能一定要配合“watch”使用，就在debug下面有一个“watch”选项，点开之后会出来一个空白的框框，在框框里点击右键选择“add watch”就可以添加你想要的变量了~~，运行过程中会显示每个变量当前的值至于考试的注意事项……应该和普通的考试差不多。就是注意试机的时候看看键盘有没有哪个键按不起(最好每个都敲一遍)，注意不要重启计算机（有的考场可能不会），还有一定要把文件后缀名改成可视的（有人就是设置成了‘隐藏后缀名’，然后程序名就成了xx.pas.pas……0分），一定要注意文件夹路径（考试最后几分钟最好检查一下），还有如果上午有人考过，最好把原来遗留的程序删除了。开始之前可以随便编一个程序（排序什么的），活动手指。最好配备巧克力和牛奶。 还有心态。
保存的话save到指定文件夹比如d:xxxxx.pas 但是我都是直接保存测试好以后 再把pas文件copy到指定文件夹 noip主要过程 休息-进机房-测试fp有没有问题（一般编个快排什么的）-发试卷-考试3个小时-出去-等结果-有问题的可以重测-省选……
free pascal 和TUBUR PASCAL相比,FREE PASCAL 可以定义更大的数组,不用考虑空间问题,而TUBUR PASCAL 的内存只有64KB,并且FREE PASCAL中有表,不用出去看时间.但是FREE PASCAL 没有帮助,这是他的缺点(CTRL+F1只出一空白对话框)
http://baike.baidu.com/view/26358.html?wtp=tt
http://mdj6z.mdjedu.net/noi/noi/6-1.asp