Tyvj 1921 Freda的烦恼

我就不说是CF hot days 原题了，我会告诉你使用Math库是因为一开始偷懒不想写Min函数么-

 1 Uses math;
 2 Var n,m,i,t,tt,x,cost,ans,tmp:qword;
 3 Function min(x,y:qword):qword;
 4 Begin
 5    if x>y  then exit(y);
 6   exit(x);
 7  end;
 8 Begin
 9    readln(n,m);
10     while (n<> 0)  do
11    Begin
12      dec(n);
13      readln(t,tt,x,cost);
14       if (tt<=t)  then
15       begin
16        ans:=ans+cost;
17        continue;
18       end;
19       if (m  mod (tt-t)= 0)  then tmp:=cost*trunc((m/(tt-t)))
20       else tmp:=cost*trunc((m/(tt-t)+ 1));
21      ans:=ans+min(m*x+cost,tmp);
22     end;
23    writeln(ans);
24  end.

-

转载于:https://www.cnblogs.com/shy-/archive/2012/09/11/2680757.html