美元汇率pascal程序
来源:互联网 发布:ido视频软件 编辑:程序博客网 时间:2024/04/29 20:10
若今天的汇率比明天的汇率高,那么就换钱。
varm:real;a:array[0..100]of longint;n,i:longint;begin readln(n); for i:=1 to n do readln(a[i]); m:=100; for i:=1 to n-1 do if a[i]>a[i+1] then m:=m*a[i]/a[i+1]; write(m:0:2);end.
0 0
- 美元汇率pascal程序
- 美元汇率
- 美元汇率
- PASCAL基础-程序体
- 我是程序猿-Pascal
- 最大正数pascal程序
- 拼数pascal程序
- 纪念品分组pascal程序
- 零件分组pascal程序
- 字符序列pascal程序
- 迷宫问题pascal程序
- 最优乘车pascal程序
- 机器翻译pascal程序
- 分数线划定pascal程序
- 宇宙总统pascal程序
- 铺地毯pascal程序
- 多项式输出pascal程序
- 均分纸牌pascal程序
- Spring MVC静态资源处理
- 判断一个字符串是否为另一个旋转之后的字符串
- bae+ThinkPHP隐藏index.php
- 查询及删除重复记录的SQL语句
- 详细口述 MapReduce Shuffle 过程
- 美元汇率pascal程序
- NPOI的使用与拼音检索
- java中类的加载你真的了解吗?
- (4)命名空间
- 截取常用的函数--strrpos
- 文章标题
- k-means算法
- Android从零开搞系列:动画系列(1)View动画
- 数据库存储过程