美元汇率pascal程序
2016-12-08 20:50
211 查看
若今天的汇率比明天的汇率高,那么就换钱。
var m: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.
相关文章推荐
- 美元汇率Pascal题解
- [pascal]第三次pascal试验课上机时写的小程序
- 人民币21日起升值 汇率不再盯住单一美元货币
- 挣美元的Bux.to挂机程序 测试版2
- js程序中美元符号$是什么
- js程序中美元符号$是什么
- 用pascal写的最简单的winsock程序 --收藏转贴
- "Take the Internet Back“挂机程序(读信息挣美元)
- 用pascal写的最简单的winsock程序
- js程序中美元符号$是什么
- 用pascal写的最简单的winsock程序
- 如何将C++程序转为Pascal语法
- 如何将C++程序转为Pascal语法
- 如何将C++程序转为Pascal语法
- 在中国银行查询美元即时汇率,该看基准价吗?
- [pascal]第一次pascal试验课上机时写的小程序
- 原创Pascal程序:批量导出mp3内嵌专辑封面图片
- 挣美元的Bux.to挂机程序 V1.1.0
- Pascal 的春天-Freepascal 可开发 WinCE/ARM-Linux程序
- Pascal 的春天 -- Freepascal 可开发 WinCE/ARM-Linux程序