FreePascal 上传者：yanguangliu14889 2019-03-01 03:09:18上传 PPT文件 292.5KB 热度 18次 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. 下载地址 用户评论 更多下载 下载地址 立即下载 收藏 腾讯 微博 用户评论 发表评论 yanguangliu14889 资源：2 粉丝：0 +关注 上传资源 免责说明 本站只是提供一个交换下载平台，下载的内容为本站的会员网络搜集上传分享交流使用,有完整的也有可能只有一分部,相关内容的使用请自行研究,主要是提供下载学习交流使用,一般不免费提供其它各种相关服务! 本站内容泄及的知识面非常广,请自行学习掌握,尽量自已动脑动手解决问题,实践是提高本领的途径,下载内容不代表本站的观点或立场!如本站不慎侵犯你的权益请联系我们,我们将马上处理撤下所有相关内容！联系邮箱：server@dude6.com
