Pascal咋做

P1412 经营与开发

@[炜哥](/space/show?uid=28810) 请您先把P1001做了
by __世界第一弱__ @ 2016-11-12 19:41:52


```cpp rogram ny001; var n,w,i:longint; k,c,ans:real; t,a:array[1..100005]of longint; function max(x,y:real):real; begin if x>y then max:=x else max:=y; end; begin read(n,k,c,w); k:=1-0.01*k; c:=1+0.01*c; ans:=0; for i:=1 to n do begin read(t[i],a[i]); readln; end; for i:=n downto 1 do if(t[i]=1)then ans:=max(ans,ans*k+a[i]) else ans:=max(ans,ans*c-a[i]); writeln(ans*w:0:2); end. ```
by 悦儿弯弯 @ 2017-08-11 12:19:44


好难理解
by YiYeZheTian @ 2018-10-28 16:34:45


|