初识pascal语言

//说明部分 //程序首部
s1 := 15*20;
s2 := 20*10; s3 := (s1-s2) div (20-10);
//15头牛20天所食的草量 //20头牛10天所食的草量 //每天新生的草量单位数
writeln(s3);
readln;
end.
程序结构可用如下的示意图来表示：
program 程序名； 常量说明； (const) … 变量说明； (var) begin 语句1； … 语句n； end. 程序首部 说明部分
=,>,<,>=,<= ,<>
And（与运算） Or（或运算） Not（非运算） Xor(异或运算)
逻辑运算符
例1.5 已知两个自然数a，b，输出a除以b的
商和余数？
【分析】设存储商和余数的变量名是c和d，类型是整
数类型。 ① 输入二个自然数a, b； ② 显示两数相除的数学表达式； ③ 求出a除以b的商c；
（2）说明部分，格式为： Var 变量表：类型；
程序中所用的常量、变量、类型及过程或是自定义
函数，在使用之前必须预先说明，定义数据的类型。如1.2 中的 var s,h,up,down:real；，此处说明s、h等是实数类型 的变量。被说明为某一类型后，程序中将与该变量同类型 的数值赋给该变量。
（3）语句部分
Pascal 教程
第一节
系统的启动

运行安装目录FPC\2.0.4\bin\i386-win32中的启动程 序fp.exe（默认安装时桌面上也有启动的快捷方式）启 动fp系统，运行后屏幕上出现如图所示的fp集成环境。
出现这样一片乱码，原因是操作系统“控制台窗口”中 语言默认为中文。 调整方法：在窗口最上面的标题栏上右击，在快捷菜单 中选择“默认值”，接着会弹出属性框，在最下面的“默 认代码页”的下拉菜单中选择“437 (OEM–美国)”。


控制台窗口属性框中语言改成英文后，再次打开fp后出 现如图所示的界面。 标题栏下方的一行为菜单栏。中间部分为编辑窗口。新 建文件后，在它的编辑窗口内可以编写程序。 最底部一行为提示栏，显示系统中常用命令的快捷键， 如文件存盘的命令快捷键为F2，编译程序的快捷键为F9， 执行程序快捷ctrl+F9等等。
运算符 +（加） - （减） 算术运算符 * （乘） / （实数除） 操作数类型 整型，实型 整型，实型 整型，实型 整型，实型 运算结果类型 整型，实型 整型，实型 整型，实型 整型，实型
div （整数除）
Mod （求余） 关系运算符
整型
整型 标准类型 布尔型 布尔型 布尔型 布尔型
整型
整型 布尔型 布尔型 布尔型 布尔型 布尔型
③ writeln；
//什么都不输出立即换行 writeln语句圆括号内的部分都是要输出的输出项，输出项是
多项时各项之间要用逗号隔开。如果输出项被单引号括住时，输出
项内容原样输出；如果输出项是表达式，输出表达式的结果，而不 是表达式本身。writeln比write多一个后缀ln,意思是line的缩写，

赋值语句 := 是赋值符号，赋值语句的格式为： 变量 := 表达式；
赋值语句的作用是将:=右边表达式的值赋值给
它左边的变量，也就说让变量的值等于表达式的值。

输出语句
writeln是输出语句，输出语句有三种格式： ① write(输出项1，输出项2，…)；
//执行输出后光标不换行
② writeln(输出项1，输出项2，…)； //执行输出后光标换到下一行
③输出总票价y的值。
程序如下：
Program ex1_3; var x,y : integer; begin readln(x); y := 10*x; //小朋友的数目 //计算总票价 //说明部分（定义变量） //程序首部
writeln('total=',y);
end.
//输出总票价
Pascal常用函数
Free Pascal系统集成环境简介
Free Pascal的菜单
Free Pascal的菜单
Free Pascal的菜单
Free Pascal的菜单
Free Pascal的菜单

新建程序 选择File菜单，执行其中New命令，建立一
个新的程序窗口（默认文件名为
Noname01.pas）。

程序代码的运行
运行程序：若编译无误，通过Run菜单中的Run命令
或按快捷键CTRL+F9，程序运行结束后回到Pascal系统的
集成环境，因此查看运行结果需要选择Debug菜单中的 User screen命令或按快捷键ALT+F5将编辑窗口切换到用 户屏幕(即结果输出屏幕)。 为了调试方便，可以在程序的结尾加上readln语句，
例1.1在屏幕上输出“Hello World!”。
程序如下： Program ex1_2; begin write(‘Hello World!’); readln; end.
这是学习任何一个程序设计语言的第一个程序。通守 这个简单程序的学习，希望大家的程序设计学习能有一个 良好的开端。
通过这个程序，我们来认识一下pascal程序的组 成： program ex1_2; //程序首部（可省略） begin //开始程序 write(‘Hello World!’); //程序体部分 readln; end. //程序结束
前两种输入语句的多项数据之间以空格隔开，输出完毕后敲回 车。使用read语句时，若输入的数据个数超过变量个数，则读完数
据之后，能让后面的输入语句接着读取剩下的数据；
而readln 语句不能让后面的输入语句接着读取本行剩下来的 数据项，因为已经回车换到下一行了。为了不受多输入的变量的影
响，一般选择该语句作为输入语句。
指从程序开始的begin标记到结尾end.之间的语句 系列，是解决问题的具体处理步骤，也是程序的执行部分。 在pascal程序中，每句末尾都必须有分号;（英文
状态下），但允许最接近end.的那个语句省略分号。程序
结束标记end末尾必须有圆点（即英文状态下的句号）。 在程序中用//标记单行注释；{ }标记多行注释。
第三种格式不需输入数据(其实输入任意内容的数据都被忽略)， 只需敲一个回车键。一般用于程序末尾，以方便回到编辑界面。
例1.4 已知一位小朋友的电影票价是10元，计算
x位小朋友的总票价是多少？
【分析】 假设总票价用y来表示，则这个问题可
以用以下几个步骤来实现：
①输入小朋友的数目x；
②用公式y=10*x计算总票价；
④ 求出a除以b的余数d；
⑤ 在表达式右边输出商和余数。
程序如下：
Program ex1_5; var
a,b,c,d : integer;
begin readln(a,b); c := a div b; d := a mod b; writeln(c,‘…',d); readln; 待按回车 //输入a,b //整除运算,取商的整数部分 //mod运算符是求二个数的余数 //输出后有换行 //运行后不立即返回编辑界面，等
end.
【上机练习】
1.输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 2.输入圆的半径R，求圆的面积和周长。 3.加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。 4.某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。
）
( 梯形面积公式为 S= 5. 已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。 6. 进入Fp，调试以下程序： program ex1_6; var s : string; begin write(‘Please input your name’); readln(s); writeln(s,’ is the best.’); end.
即输完内容后换到下一行。
练习
求右图所示边长为5.6的正方 体的表面积和体积。
例1.3
有一个牧场，牧场上的牧草每天都在匀
速生长，这片牧场可供15头牛吃20天，或可供20 头牛吃10天，那么，每天新生的草量是多少？
【分析】 解决这类问题的关键是利用牛吃的草量，最终
求出这片牧场每天新生长的草量，我们设1单位的草量
writeln(‘s=’,s ); readln； end.
//求出梯形的面积
//输出梯形的面积s=400 //执行后按Enter返回编辑 //结束整个程序
此程序结构完整，从中可看出一个Pascal程序由三个部分 组成： （1）程序首部，格式为：
Program程序名： Nhomakorabea程序名由自己取，它的第一个字符必须是英文字母，其后 的字符只能是字母或数字和下划线组成，程序名中不能出 现运算符、标点符和空格等非法字符。

程序代码的编译
编译：当程序编写完毕之后，通过Compile菜单中 Compile命令或按F9，对程序进行编译即生成计算机能够 执行的程序，扩展名为exe。若程序语法有误，窗口第一
行会显示红色错误信息；若无语法错误，窗口正中央会
出现一个对话框，提示编译成功，可以按任意键返回编 辑界面。程序编译成功后，接下来就可以运行程序了。
人有了知识，就会具备各种分析能力， 明辨是非的能力。 所以我们要勤恳读书，广泛阅读， 古人说“书中自有黄金屋。 ”通过阅读科技书籍，我们能丰富知识， 培养逻辑思维能力； 通过阅读文学作品，我们能提高文学鉴赏水平， 培养文学情趣； 通过阅读报刊，我们能增长见识，扩大自己的知识面。 有许多书籍还能培养我们的道德情操， 给我们巨大的精神力量， 鼓舞我们前进。
程序体 (主程序) 语句部分
把处理问题的步骤编成能从上到下顺序执行的程序，是 简单程序的基本特征。再来分析下面两道例题的程序结 构，同时继续学习基本语句。