美元汇率题解：

最新推荐文章于 2023-03-31 21:10:08 发布

qq_43047178

最新推荐文章于 2023-03-31 21:10:08 发布

阅读量975

点赞数

本文链接：https://blog.csdn.net/qq_43047178/article/details/82183739

版权

该博客介绍了如何通过编程解决一个美元与德国马克汇率变化的问题，旨在帮助戴维确定最佳买卖时机，以100美元起始，获得最大价值。程序通过读取汇率数据并进行计算，找出在汇率变化中最大化收益的策略。

摘要由CSDN通过智能技术生成

题目描述
在以后的若干天里戴维将学习美元与德国马克的汇率。编写程序帮助戴维何时应买或卖马克或美元，使他从100美元开始，最后能获得最高可能的价值。
input
5
400
300
500
300
250
output
266.66
注意：输出第一行也是唯一的一行应输出要求的钱数(单位为美元，保留两位小数)。
注意：考虑到实数算术运算中进位的误差，结果在正确结果0.05美元范围内的被认为是正确的，戴维必须在最后一天结束之前将他的钱都换成美元。
这题很简单，就直接给代码了：
var
a:array[1..10000]of longint;
b:array[1..10000]of real;
s,ss:string;
n,i,j,p:longint;
ans,make,america:real;
bz1,bz2:boolean;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
b[i]:=a[i]/100;
end;
ans:=100;
bz1:=true;
for i:=1 to n-1 do
begin
if bz1 then
begin
america:=ans*b[i];
if america/b[i+1]>ans then
begin
ans:=america;
bz1:=false;
bz2:=true;
end;
end;