原创力文档- 87
- 0
- 约8.99万字
- 约 72页
- 2019-06-09 发布于江苏
- 举报
第1 章 Pascal 基本语句与程序结构
第1 节 简单Pascal 程序实例
【问题描述】
从键盘上输入圆的半径，从屏幕上输出圆的面积。
【程序设计】
[程序清单]
Program p1_1_1(input,output); （程序首部）
const
pi=3.14159;
var 说明部分
r,s:real;
程序体
begin
write(r= ？);
readln(r); {读入圆的半 }
执行部分
s:=pi*r*r; {求圆的面积}
write(s=,s:12:5); {输出圆的面积}
end.
您可能关注的文档
- 耀华XK3190-C8使用指导书.pdf
- 有机磷农药产业的现状及发展趋势.pdf
- 商业银行中间业务的发展路径及实证研究.pdf
- 欧洲标准EN1804-3井下采矿机械液压支架安全要求第3部分液压控制系统.pdf
- 歌库精选手机高清视频歌曲1000首经典流行mp4格式高速下载.pdf
- 批处理指导教程(版).pdf
- 歌库精选KTV高清视频歌曲1000首经典流行mpgdat格式高速下载.pdf
- 通用桥式起重机使用维护指导书.pdf
- 山东日照实验高中2013届高三上学期期中检测（数学文).doc
- 自宋以来的长期经济发展-林毅夫.pdf
- 4、回填施工记录表.XLS
- 2、原材料、构配件进场使用检查记录表.xls
- 1、CK0+600~ CK0+700 水泥混凝土面层.XLS
- 1、CK0+000~CK0+200 AC-20C下面层（下洒透层油）.XLS
- 1、工程材料进场使用清单.xls
- 2、4%水泥稳定石屑下基层（CK0+200~CK0+400）200米为一检验批（报验表）.XLS
- 1、4%水泥稳定石屑下基层（CK0+000~CK0+200）200米为一检验批（报验表）.XLS
- 5、CK0+800~ CK0+860左侧路缘石_重命名_2017-1-17-11-35-12.XLS
- 2、CK0+700~ CK0+860 水泥混凝土面层.XLS
- 022、CK0+200~CK0+400 AC-13C上面层（下洒粘层油）.XLS
文档评论（0）