freepascal教程(freepascal 龙芯)

介绍： http://baike.baidu.com/view/914208.htm下载：www.freepascal.org使用：1．Free Pascal的安装Free Pascal是用户快捷安装Free Pascal开发环境的工具，该工具可以从网上搜索下载，也可以从OI爱好者（OIFans.cn）下载最新的版本。如果已经安装过旧版本的Free Pascal，安装新版本前，务必将已安装版本卸载。用户在下载完毕后，运行Free Pascal的安装文件，按照安装向导的提示即可完成安装过程。注意，在安装完成以后需要重新启动Windows，使Free Pascal生效。2．Free Pascal的启动在安装过程完成后，用户点击“开始”菜单，选择“程序”菜单项可以发现“Free Pascal”的快捷菜单，其中包含：fp、卸载Free Pascal两项。点击fp，可以直接进入Free Pascal IDE集成开发环境，屏幕上出现集成环境。用户可以在Free Pascal IDE开发环境下进行源代码编辑、程序编译、调试等开发工作，并可从Free Pascal IDE的在线文档中获取帮助。卸载Free Pascal用于卸载Free Pascal，点击后出现卸载向导，用户可以根据向导的提示方便的卸载Free Pascal。3． Free Pascal系统集成环境简介（1）新建程序窗口按F10进入主菜单或鼠标选择FILE菜单，执行其中New命令。建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。最顶上一行为主菜单。中间蓝色框内为编辑窗口，在这个编辑窗口内可以进行程序的编辑。最底下一行为状态说明行，显示出系统中常用命令的快捷键，如将当前编辑窗口中文件存盘的命令快捷键为F2，获得系统帮助的快捷键为F1，等等。（2）程序的输入、编辑与运行在当前程序编辑窗口中，一行一行的输入程序。事实上，程序窗口是一个全屏幕编辑器。程序的编辑与其它编辑器的编辑方法类似，这里不再重复。当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的第一行处显示第一个红色错误信息，按ESC键返回编辑窗口按照下面的错误信息提示修改程序。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5打开DEBUG菜单中的USER SCREEN命令，将屏幕切换到用户屏幕，按任意键返回到编辑窗口。4.程序的保存与打开当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)，用户可按自己的需要选择文件路径并输入文件名，然后按“OK”按钮确定。当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会弹出一个对话框，要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。5.程序的调试我们先编一个比较简单的程序，看看程序是如何调试的。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.该程序是输出300以内同时能被2，3，5整除的整数。 现在我们开始调试。 调试有多种方法，这里主要介绍单步执行法和断点法。1、先介绍一种单步执行法，单步执行法就是模拟计算机的运算，把程序每一步执行的情况都反映出来。Free Pascal用F8即执行RUN 菜单下的Step over这个选项来实现，不断地按F8，计算机就会一步步地执行程序，直到执行到最后的“end.”为止。如果再配合另外的一种调试的工具Debug 菜单下的watches，你就会发现单步执行法的用处。watches窗口可以让我们观察变量的变化情况，具体操作是在watches窗口内按Insert键：这时，屏幕上弹出一个菜单，我们输入所需要观察的变量名，分别输入i,a,b,c这4个变量名，于是watches窗口内就有如下的4个变量的状态：这时，再次使用单步执行法，我们会发现，这4个变量的状态随着程序的执行而不断变化，这样我们就可以方便地知道执行每一步之后，程序的各个变量的变化情况，从中我们可以知道我们的程序是否出错，在哪里出错，方便我们及时地修改。2、当我们遇到循环次数比较多或者语句比较多的时候，单步执行法用起来比较费时，下面我们介绍一种新的也是常用的调试方法——断点法。 所谓断点法，就是在程序执行到某一行的时候，计算机自动停止运行，并保留这时各变量的状态，方便我们检查，校对。我们还是以前面求同时能被2，3，5整除的3000以内的自然数为例，具体操作如下： 我们把光标移动到程序的第14行，按下ctrl+F8即执行Debug菜单中的BreakPoint选项，这时我们会发现，该行变成红色，这表明该行已经被设置成断点行，当我们每次运行到第14行的时候，计算机都会自动停下来供我们调试。注意：计算机是执行到断点行之前的一行，断点行并没有执行。 希望对你有所帮忙
你不妨尝试以下操作，可能管用： (1)建立快捷方式（有快捷方式就不用了）：在你希望的地方(比如说桌面上)单击鼠标右键“新建--快捷方式”，单击“浏览”，找到fp.exe选中，然后单击“打开”，再单击“下一步”，再单击完成；(2)设置：选中前面新建的快捷方式(应该叫FreePascalIDE吧)，单击右键，单击“属性”，点“选项”，从“当前代码页”中选择“437OEM美国”；然后点“字体”，选择“点阵字体”，大小为12*16；最后点“布局”，将缓冲区大小和屏幕大小都设为80（宽）、40（稿）。再单击“确定”就大功告成了。(3)运行：你想要运行FreePascal时，只要双击那个你建立起的快捷方式就可以直接在Win9X或Win2000下运行Free Pascal

第一章、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.五、标识符的作用域1、全局变量和局部变量1）、全局变量：在主程序中被说明，作用域：整个程序；2）、局部变量：在子程序中被说明，作用域：主程序及其下级的程序。2、子程序（function、precedure）的作用域一个子程序可以调用它的下一级了程序，或可以调用在它之前定义的同级子程序。[例]写出程序运行的结果。program range(input,output);varx,y:integer;procedure p1;varx,z:integer;beginx:=10; y:=y+1;z:=10;writeln(x,y,z);end;beginx:=1;y:=1;writeln(x,y);p1;writeln(x,y,z);end.结果为：(xyz)11102 1012 (error)3、在子程序中被改变值的变量可以回传的两种方法：a、变量参数procedure(var 变量名);b、在上一级程序定义了的，且在下一级程序未被重新定义的。 [注]如果主程序的变量在子程序被重新定义，在子程序中主程序的变量被稳藏，在主程序中子程序的变量无效。
百度搜索 " 网罗设计 " 这4个字就有图文.电子书.书籍.光盘.素材.视频教程打包下载

关于保存：直接点击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

(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)EXIT返回(9) program lt1;{程序首部}var {说明部分} a,b:integer; sum:integer;begin {执行部分}a:=3355;b:=789;sum:=a+b;writeln('sum=',sum);end.(10) 1.3 完整的Pascal程序结构一个完全的Pascal程序结构program 程序名；uses　　　已知单元说明；label 　　标号说明；const 　　常量说明；type 　　类型说明；var 　　变量说明；function　函数说明；procedure 过程说明；begin　语句；　语句；　……　语句;end. 　(11) round　　　　实型　　　四舍五入　　　　　　longint trunc　　　　实型　　　截断取整　　　　　　longint (12) 运算符　　运算　　运算对象　　　　　　　结果类型+　　　　加　　整型、实型　　只要有一个运算对象是实型，结果就-　　　　减　　整型、实型　　是实型，如果全部的运算对象都是整*　　　　乘　　整型、实型　　型并且运算不是除法，则结果为整型，/　　　　除　　整型、实型　　若运算是除法，则结果是实型。div　　整除　　整型　　　　　　　　　整型 mod　　取余　　整型　　　　　　　　　整型(13)⑴当程序开始把数据输出（写）到文件中去时，总是从文件的起始位置开始。也就是说不可能从文件 的中间位置开始存放数据。⑵输出的数据是一个接一个地存放在文件中的。⑶当程序从文件中输入（读取）数据到内存时，也总是从文件的起始位置开始。也就是说不可能从文 件的中间位置开始读取数据。⑷读数据时，也必须按存入文件时的顺序一个接一个的读入到内存中。⑸对同一个文件的读写操作不能交叉进行。即不能在读取文件的同时往文件里写，也不能在写入文件 的同时从文件里读。 (13) 1.适合于所有文件类型的标准过程和函数表 9.1适合于所有文件类型的标准过程和函数名字 过程或函数基 本功能 assign 过 程将一个外部文件名赋予文件变量 close过 程关闭一个已打开的文件eof 函 数返回文件结束状态 erase过 程删除一个外部文件 rename 过 程重新命名一个外部文件名 reset过 程打开一个已存在的文件 rewrite过 程建立并打开一个新文件 2.只适合于文本文件的标准过程和函数 表 9.2只适合文本文件的标准过程和函数名字 过程或函数基 本功能 append 过 程打开一个已存在的文件，从尾部增添元素eoln函 数返回文件的行结束状态read过 程从文本文件中读取一个或多个值赋予相应的变量 readln 过 程执行 read过程，然后跳到文件的下一行 write过 程将一个或多个值写入文本文件 writeln过 程执行 write 过程，然后写入一个行结束标志 3.只适合于类型文件的标准过程和函数 表 9.3只适合类型文件的标准过程和函数名字 过程或函数基 本功能read过 程从类型文件中读取一个或多个值赋予相应的变量 write过 程将一个或多个值写入类型文件中 filepos 函数返回指定文件的当前文件位置filesize 函数返回文件的当前长度，即文件中元素的个数seek过 程将文件指针移到指定的位置(14)在 Turbo Pascal 系统中，对于整型字符串的输出都是按数据本身长度输出，对于布尔型数据（只有 True和 False 两种值），TRUE 为 4 列，FALSE 为 5列，一律采用大写输出。而 real 型数据的输出时，则按 17列输出，其中第一列为符号位，正号不显示，后四位为 “E±nn”，中间的 12列为尾数部分。如： writeln(sqrt(75)); 则输出□8.6602540379E+00。(15)⑴指定单场宽. 格式：write(表达式 :N)或 writeln(表达式:N),其中 N 为 自然数，指定单场宽后，所有数据不再按标 准场宽输出，而按指定场宽输出。若数据实际长度小于指定场宽时，则一律“向右靠齐，左留空格”。 如 write(1234:8);write('abcdef':12); 输出结果 : □□□□1234□□□□□□abcdef 对于标准实型数据指定单场宽时，如果场宽大于标准场宽时，右靠齐按标准场宽格式输出17位，左 留空格。若场宽小于标准场宽时，第一位仍为符号位，最后四位仍为 “E±nn”，中间部分为尾数显示部分。 如果指定的宽度小于 8位，则数据按 8位格式“*.*E±nn ”输出。 ⑵指定双场宽 如果输出项是实数时，如果希望输出的实数不用科学记数法输出,而用小数形式输出,可以用指定双场 宽方法输出。 双场宽输出格式为：write(实型表达式：m：n)，其中 m 和 n 都是 自然数，m 用以指定整个数据所 占 的宽度,n指定输出实数的小数位数。 如 : write(sqrt(75):9:4); 输出 :□□□8.6602 如果双场宽不能满足输出数据的最低要求, 系统 自动突破指定的场宽限制 ，按实际长度输出。 如 :write(sqrt(75):5:4); 要使小数点后有 4位数字，而总场宽为 5，是不可能的(因为还有一个小数点， 小数点前面还有一个数字)。它最低限度要有 6列，即输出为 : 8.6602

第一章、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 大量教程