求已知半徑圓邊長的程序設計

程序要先輸入半徑r，然後求周長c和面積s，最後輸出c和s。

源程序如下:

節目圈；

const PI = 3.14159；

var r，c，s:real；

開始

寫('回車R = ')；readln(r)；

c:= 2 * pi * r；

s:= pi * sqr(r)；

writeln('c= '，c:10:2)；

writeln('s= '，s:10:2)；

結束。

在程序中，為了以十進制形式輸出真實模型的周長c和面積s，采用了指定的雙字段寬度格式。