fp01free pascal教程

1、对Pascal的基本认识

=*= .exe文件是二进制代码的可执行程序

=*= .Pas文件是人们能读董的Pascal源程序。我们通过Pascal源程序来控制计算机的运行。 =*= 我们用Pascal这个程序来处理 .Pas文件， Pascal会帮我们运行.Pas文件 2、试一试circle画圆程序。 （将k盘的circle.pas拷贝到C:\\FPC\\2.4.0\\bin\\i386-win32\\ A、双击桌面快捷方式Free Pascal IDE

B、 选择菜单[File]－[Open] - circle.pas] 现在，在free pascal的工作区里可以看到circle.pas源程序。 （快捷键F3）

C、选择菜单[Run]，看到红色的圆 （快捷键ctrl+F9） D、 按回车，回到Pascal编辑界面。

E、修改颜色：找到 Setcolor(red);，将red 改成 green F、 选择菜单[Run]，看到绿色的圆 G、 选择菜单[Save]保存刚才的修改 H、选择[File]－[Exit]退出 3、编写简单的程序

例. 1计算半径为R的圆面积S

program Area; {程序首部——Area是本程序的名称} const pi=3.14159; {常量说明部分——用pi代表3.14159} var s,r:real; {变量说明部分——用Ｓ，Ｒ为Real类型的变量} begin {执行部分} readln(r); {等待从键盘输入数字，并保存到变量r｝ s:=pi*r*r; {先计算pi*r*r的值然后保存到变量S，} writeln('s=',s); ｛往屏幕写字符串‘s＝’以及变量S的值｝ end. ｛程序结束｝ 试着编写以上的程序。 A、打开fp

B、输入以上程序代码。大括号里是说明部分，不会被执行不用写。 注意英文的拼写，每行最后的分号，:=冒号等号，?S=?，S的逗号， end后面有点，有些行前面要空2格。

C、保存文件[Save] 文件保存，文件名 Area.pas D、运行该程序[Run] E、运行后输入 6 回车

F、查看结果：[Debug - [OutPut]] (Alt+F5) 看结果是不是 S=1.1309724000E+02 Debug是“调试”的意思，Output是“输出”的意思，结果中E＋02代表 ×10的2次方

4、计算机最基本的功能是计算，我们先学会如何让FP为我们做一些计算题 1、 已知梯形的上底、下底和高，求梯形的面积。班级座号tixing.pas 上底，下底和高分别是50,36,21。输出格式：S＝结果

2、参考W1,编写一个能让我们输入半径，程序自动输出圆的面积和周长。程序保存到AreaLen.PAS” 程序名与文件名相同 要求输出的格式是 mian ji ＝ 结果 zhou chang ＝ 结果

（提示，增加一个变量L，增加一个计算周长的命令，增加一个输出周长的命令，输出的格式是mian ji ＝结果 请注意）

3、提高题。

将第一题改为能让用户自己输入上底、下底和高，然后算出梯形的面积。文件保存

本文来源：https://www.bwwdw.com/article/na6t.html