现在的位置: 首页 > 综合 > 正文

poj2586

2018年04月26日 ⁄ 综合 ⁄ 共 580字 ⁄ 字号 评论关闭

【题意】

一公司确定每月要不然盈利s元,要不然亏损d元,一年12个月不知道哪个月盈利哪个月亏损,但知道连续五个月营业额都为亏损,问是否能盈利

【输入】

多组数据

每组数据一行,包含两个数字s,d

【输出】

对于每组数据,若能盈利则输出最大盈利,否则输出'Deficit'

据说可以贪心,我搜索过的

program poj2586;
var
  i,j,k,s,d,ans:longint;
  x:array [0..12] of longint;

procedure dfs (now:longint);
var
  i,k,sum:longint;
begin
  if now>12 then
    begin
      k:=0;
      for i:=1 to 4 do
        k:=k+x[i];
      sum:=k;
      for i:=5 to 12 do
        begin
          sum:=sum+x[i];
          k:=k+x[i]-x[i-5];
          if k>0 then break;
        end;
      if k>0 then exit;
      if sum>ans then ans:=sum;
      exit;
    end;
  x[now]:=s;
  dfs(now+1);
  x[now]:=-d;
  dfs(now+1);
end;

begin
  while not seekeof do
    begin
      read(s,d);
      x[0]:=0;
      ans:=-1;
      dfs(1);
      if ans>0 then writeln(ans)
               else writeln('Deficit');
    end;
end.
【上篇】
【下篇】

抱歉!评论已关闭.