注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

艺洋人生教学博客平台

有梦想的教师最幸福…

 
 
 

日志

 
 

信息学奥赛题库12  

2012-05-31 21:01:17|  分类: ◇ 信息学奥赛 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自cyj5220《奥赛练习三》

1、程序1:请求出边长为a的正方形周长,面积?

Program ex01;

var a,l,s:real;

begin

readln(a);

l:=a*4;

s:=a*a;

writeln('l=',l,'s=',s);

End.

2、程序2:请计算边长分别为a ,b的长方形周长,面积?

Program ex02;

var a,b,l,s:real;

begin

readln(a,b);

l:=(a+b)*2;

s:=a*b;

writeln('l=',l,'s=',s);

End.

3、程序3:请计算半径为r的圆形周长,面积?

Program ex03;

var r,l,s:real;

begin

readln(r);

l:=r*3.14*2;

s:=r*r*3.14;

writeln('l=',l,'s=',s);

End.

  评论这张
 
阅读(21)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017