FreePascal例题.docVIP

[例1.1]编程在屏幕上显示“Hello World!”。 ? Pascal程序： Program ex11; Begin ? Writeln(‘Hello World!’); ? ReadLn; End. ?????? 这个简单样例程序，希望大家的程序设计学习能有一个良好的开端。程序中的Writeln是一个输出语句，它能命令计算机在屏幕上输出相应的内容，而紧跟Writeln语句后是一对圆括号，其中用单引号引起的部分将被原原本本地显示出来。 ? [例1.2]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？ 解：若总售价用m来表示，则这个问题可分为以下几步处理： ?= 1 \* GB3 ①从键盘输入自行车的数目a； ?= 2 \* GB3 ②用公式? m=300*a? 计算总售价； ?= 3 \* GB3 ③输出计算结果。 Pascal程序： ? Program Ex12;? ???????????????????????????? {程序首部} ? Var a,m : integer;????????????????????????????? {说明部分} ? Begin???????????????????????????????????????????????????? {语句部分} ??? Write(‘a=’); ??? ReadLn(a);????????????????????????????????????????? {输入自行车数目} ??? M := 300*a;??????????????????????????????????????? {计算总售价} ??? Writeln(‘M=’,m);???????????????????????????????? {输出总售价} ??? ReadLn;????????????????????????????????????????????? {等待输入回车键} ? End. ［例1.3］编程计算半径为R的圆的面积和周长。 解：这是一个简单问题，按数学方法可分以下几步进行处理： ??? ① 从键盘输入半径的值R；????????? {? 要求告诉圆的半径R } ??? ② 用公式? S=πR2? 计算圆面积；?? ? ③ 用公式? C=2πR? 计算圆周长； ??? ④ 输出计算结果。 Pascal程序: ? Program? Ex13；?????????????????????????? {程序首部 } ? Var? R，S，C: Real；????????? {说明部分 } ? Begin ??????????????????????????????????????????? {语句部分 } ??? Write (R=?)； ??? Readln(R)；???????????????? {输入半径 } ??? S:=Pi*R*R；??????????????? ｛圆面积公式S=πR2｝ ??? C:=2*Pi*R；??????????????? ｛圆周长公式C=2πR｝ ??? Writeln(S=，S)；??????????? {输出结果 } ??? Writeln(C=，C)；?????????????????????? ??? Readln???????????????????? ｛等待输入回车键｝?????????????????? ? End. 程序中Pi是Pascal提供的标准函数，它返回圆周率的近似值：3.1415926… [例1.4] 输出两个自然数相除的商和余数。 解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。 ?? ① 给出提示，从键盘输入a, b；? ?? ② 显示两数相除的数学形式； ?? ③ 求出a除以b的商c； ?? ④ 求出a除以b的余数d； ?? ⑤ 紧接等式后面输出显示商和余数。 Pascal程序: ? Program Ex14； ??? Var a,b,c,d : integer； ??? Begin ????? Write(INPUT A，B：)； ??????｛给出提示信息｝ ????? Readln(a，b)；??????????????? ｛输入a，b｝ ????? Writeln；???????????????????? ｛输出一空行｝ ????? Write(a，/，b，=)；????????? ｛输出等式之后不换行｝ ????? c:=a div b；?????????????????? ｛整除运算，取商的整数部分｝ ????? d:=a mod b；????????????????? ｛相除求余运算，