［例1.3］编程计算半径为R的圆的面积和周长。

　　解：这是一个简单问题，按数学方法可分以下几步进行处理：

　　①从键盘输入半径的值R；{要求告诉圆的半径R}

　　②用公式S=πR2计算圆面积；

　　③用公式C=2πR计算圆周长；

　　④输出计算结果。

　　Pascal程序:

　　ProgramEx13；{程序首部}

　　VarR，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…。

　　(:=)是赋值符号，赋值语句的格式为:

　　变量:=表达式；

　　赋值语句的作用是将:=右边表达式的值记录到左边的变量中。

　　Writeln是输出语句，输出语句有三种格式:

　　①Write(输出项1，输出项2)；｛执行输出后光标不换行｝

　　②Writeln(输出项1，输出项2)；｛执行输出后光标换到下一行｝

　　③Writeln｛仅输出空白且光标换到下一行｝

　　Writeln语句后面的圆括号以内部分均为输出项，可以是多项，各项间用逗号分隔；对单引号里的内容按照引号内的原样(字符)输出显示。如果输出项是表达式，则只输出表达式的值，而不是表达式本身。

下一页阅读：例1.4 输出两个自然数相除的商和余数