第2章+简单程序设计.pptVIP

例2.9 传说古代的叙拉古国王海伦二世发现的公式，利用三角形的三条边长来求取三角形面积。已知△ABC中的三边长分别为a,b,c，求△ABC的面积。(提示：海伦公式 ，其中p=(a+b+c)/2 ) 【分析】 公式中P是三角形周长的一半，求出P后直接代入海伦公式中求得面积。 程序如下： Program ex2_9; Var a,b,c,s,p : real; begin readln(a,b,c); //输入三角形的三边 p := (a+b+c) /2; //求出P s := sqrt(p*(p-a)*(p-b)*(p-c)); //根据P求面面积，sqrt是开方函数 write(s :8 :3); //输出面积，保留3位小数 readln; end. 【上机练习2.2】 1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 2.已知某圆的半径R=139，求该圆的周长C与面积S？ 3.输入长方形的边长a,b，计算它的面积和周长，输出。 4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f=9c/5+32 5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD函数) 6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。 第三节　常量和变量 常量 常量是指在程序中使用的一些具体的数、字符、字符串和布尔值。在程序运行过程中，其值不能被更改。如123,145.88,my name is,TRUE等。 （1）整型数：如3、-5、0等。 （2）实型数：如3.1、-6.1E+2（科学记数法）。 （3）字符串：是用单引号括起来的一串字符，如 ‘Book’、‘96.5’、‘---’。用单引号括起来的单个字 符可以看成字符数量为1的字符串，如x、*、#‘ 等。在字符串内有单引号时要用两个连续单引号 表示，如输出’B’，可表达成writeln(’’’B’’’); 以上列举的都可以作为常量在程序中使用。为了提高程序的可读性并使程序便于修改，在程序中往往用一些标识符来代表具体的常量，如a=3，b=-6.1E+2。 常量的定义 一个常量可以直接调用（如124,’A’），也可以给常量取个名字用一个标识符代表它，这就是常量定义，例如：st=60;　name=Li Ping’，代表常量的标识符又称为常量标识符。 常量定义要放在以const开头的常量说明部分。 常量说明部分的格式： const 常量标识符1 = 常量1; //常量定义 常量标识符2 = 常量2; ... 常量标识符n = 常量n; const是保留字，表示常量说明部分，其后可以有若干条常量定义语句，这些常量定义语句之间以分号;隔开。例如： const st = 60; a = -st + 30; p = 3.1415926; black = ; name = My name is LiPing!; 由上例可见常量可以是数、字符或字符串，也可以是表达式。 Free Pascal语言对常量定义有如下要求： （1）常量定义要放在程序说明部分； （2）必须遵守先定义后使用的原则，即只有已经定义的常量，才能在程序中使用； （3）常量一经定义，执行部分不得更改它的值，否则编译错误。 常量定义后，在书写程序语句时就可以引用它，即可以将程序中多次出现的常量不必直接写常量值，而用已定义的常量标识符代替，这样一方面避免写错，另一方面也便于修改程序。如要修改一常量，只需修改常量定义（如st = 60，改为st = 90）就将程序中所有这个常量都修改了。特别对较大的程序是很必要的。 Free Pascal中预定义了如下几个常量标识符，这些常量可以直接在程序中使用。 Pi = 3.1415926535897932 //π的值 Maxint = 32767 //整型integer允许的最大值 Maxlongint = 2147483647 //长整型longint允许的最大值 FALSE = 布尔假，TRUE = 布尔真 例2.10 已知半径r，求圆的周长及面