文件名称：Free Pascal
文件大小：615KB
文件格式：PPT
更新时间：2013-12-23 16:57:24
pascal
Program exam1; {程序的首部} var r,c,s:integer; {程序的说明部分} Begin readln(r); {读入圆的半径r} c:=3*2*r; {求圆的周长c} s:=3*r*r; {求圆的面积s} writeln(c,s); {输出圆的周长与面积} End.
Free Pascal
【文件属性】：
文件名称：Free Pascal
文件大小：615KB
文件格式：PPT
更新时间：2013-12-23 16:57:24
pascal
Program exam1; {程序的首部} var r,c,s:integer; {程序的说明部分} Begin readln(r); {读入圆的半径r} c:=3*2*r; {求圆的周长c} s:=3*r*r; {求圆的面积s} writeln(c,s); {输出圆的周长与面积} End.