美元汇率Pascal题解

问题 : 美元汇率

时间限制: 1 Sec  内存限制: 128 MB

题目描述

在以后的若干天里戴维将学习美元与德国马克的汇率。编写程序帮助戴维何时应卖货买马克或美元，是他从100美元开始，最后能获得最高可能的价值。

 

输入

第一行是一个自然数n，1≤n≤100，表示戴维学习汇率的天数。
接下来的n行中每行是一个自然数a，1≤a≤1000.第i+1行的a表示预先知道的第i+1天的平均汇率，在这一天中，戴维既能用100美元买a马克也能用a马克购买100美元。

 

输出

一个数据，即要求的钱数（单位为美元，保留一位小数）。
注意：戴维必须在最后一天结束前将他的钱都换成美元。

 

样例输入

5
400
300
500
300
250

样例输出

266.7

提示

 

买入卖出就是 *A/B

 

分析

永远也不做亏本生意！！！

参考题解

var

  a:array[1..999] of double;

  i,n:longint;

  my:double;

begin

  readln(n);

  for i:=1 to n do

  read(a[i]);

  my:=100;        //起始美元

  for i:=1 to n-1 do

  if a[i]>a[i+1] then my:=my*a[i]/a[i+1];  //如果可以赚点钱，那么成交。算出可以得到的美元

  writeln(my:0:1);

end.

转载于:https://my.oschina.net/u/3233411/blog/828618