FreePascal的使用.ppt

Free Pascal的安装与使用,Free Pascal的安装,如果已经安装过旧版本的Freepascal For NOI，安装新版本前，务必将已安装版本卸载。 用户在下载完毕后，运行Freepascal For NOI的安装文件，按照安装向导的提示即可完成安装过程。 注意，在安装完成以后需要重新启动Windows，使Freepascal For NOI生效。 在安装过程完成后，用户点击“开始”菜单，选择“程序”菜单项可以发现“Freepascal For NOI”的快捷菜单，其中包含：fp、卸载Freepascal For NOI两项。 点击fp，可以直接进入Freepascal IDE集成开发环境，用户可以在Freepascal IDE开发环境下进行源代码编辑、程序编译、调试等开发工作，并可从Freepascal IDE的在线文档中获取帮助。 卸载Freepascal For NOI用于卸载Freepascal For NOI，点击后出现卸载向导，用户可以根据向导的提示方便的卸载Freepascal For NOI。,文件,编辑,查找替换,运行,编译,调试,工具,选择项处理,窗口,帮助,菜单栏,Free Pascal IDE,Free Pascal的菜单,Free Pascal的使用,1.注意： 在做题时，先进入Windows命令行环境，务必在进入程序源代码所在目录后，再执行fp命令启动Free Pascal集成开发环境。 Windows 2000、XP下，点击：开始-运行，输入cmd，点击“确定”，即可启动命令行环境； Windows 98下，点击：开始-运行，输入command，点击“确定”，即可启动命令行环境； 需要调整窗口布局，如果窗口布局错乱，可以删除fp同一目录下的fp.dsk（感谢sceoy想出该方法）,用Free Pascal编写程序的过程,2新建程序窗口 按F10进行主菜单，选择FILE菜单，执行其中NEW命令，就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。 3程序的输入、编辑与运行 在当前程序窗口中，一行一行的输入程序。当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的第一行处显示第一个红色错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。 程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。,5程序的保存与打开 当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。 当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会弹出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。,Free Pascal常用快捷键汇总,错误信息,具体内容情参考有关书籍,补充,如何把我的程序编译成.exe文件？ 如果你在编译或运行程序后，并没有生成相应的.exe可执行文件，那么你使用的应是Turbo Pascal。Turbo Pascal默认在内存中编译和运行程序，这样当你在软盘上编写程序时就可以节省一些时间。你可以在菜单Compile - Destination中选择Disk，这样在编译和运行程序时就会生成相应的.exe文件了。 程序首部的参数Input和Output是什么意思？ 它们代表默认输入输出设备，但只在老式的Pascal语言中有存在意义。在Borland/Turbo Pascal和Free Pascal中，程序首部不需要任何参数，但为了兼容旧式的Pascal程序，编译器会忽略程序首部的所有参数。,作业一、完成下面程序的输入、编译、运行、保存，熟悉Pascal的集成环境。,1输出图形,program ex1(input,output); var h,k:integer; begin for h:=1 to 8 do begin write(:20-h); for k:=1 to 2*h-1 do write(); writeln; end end.,program ex2(input,output); var n,ge,shi,bai,qian:integer; begin writeln(input a number:): readln(n); qian:=n div 1000; bai:=n div 100 mod 10; shi:=n mod 100 div 10; ge:=n mod 10; n:=ge*1000+shi*100+bai*10+qian; writeln(n); end.,2输入一个四位整数，将这个数反向输出。（例：输入为1367，输出为7631）,3猜数程序,program ex3(input,output); var x,n,k:integer; begin randomize; x:=random(100); n:=0; repeat write(please input a number(0-100):); read(k); n:=n+1; if k=x then writeln(You are right!); if kx then writeln(Too big.Please try again!); if kx) then writeln(You are fail.The number is ,x) end.,作业二、独立完成以下题目,1、求两个数的最大公约数 输入整数a和b，输出a和b的最大公约数 2、计算今天星期几 按照 年 月 日 的格式输入今天的日期。计算和输出今天是星