文件名称: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
文件大小: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.