usaco 3.2 ratios 2008.7.20

最新推荐文章于 2022-01-20 12:27:35 发布

Batman_

最新推荐文章于 2022-01-20 12:27:35 发布

阅读量250

点赞数

分类专栏： USACO

本文链接：https://blog.csdn.net/Batman_/article/details/50637404

版权

USACO 专栏收录该内容

47 篇文章 0 订阅

订阅专栏

usaco 3.2 ratios 2008.7.20

{

ID:

PROG:ratios

LANG:PASCAL

}

program p_radios;
  const fin='ratios.in';fout='ratios.out';
  var x,y,z:array[1..3]of longint;
      flag,k,a,b,c,i,j,p,n1,n2,n3:longint;
      f1,f2:text;
 function max(x1,x2,x3:longint):longint;
 begin
   if x1<x2 then max:=x1 else max:=x2;
   if x3<max then max:=x3;
   end;
 function deal(k:longint):longint;
  var ka,kb,kc:longint;
       w:array[1..9]of longint;
  begin
    ka:=k*a;kb:=k*b;kc:=k*c;
    if x[1]<>0 then w[1]:=ka div x[1] else w[1]:=200;
    if y[1]<>0 then w[2]:=kb div y[1] else w[2]:=200;
    if z[1]<>0 then w[3]:=kc div z[1] else w[3]:=200;
    if x[2]<>0 then w[4]:=ka div x[2] else w[4]:=200;
    if y[2]<>0 then w[5]:=kb div y[2] else w[5]:=200;
    if z[2]<>0 then w[6]:=kc div z[2] else w[6]:=200;
    if x[3]<>0 then w[7]:=ka div x[3] else w[7]:=200;
    if y[3]<>0 then w[8]:=kb div y[3] else w[8]:=200;
    if z[3]<>0 then w[9]:=kc div z[3] else w[9]:=200;
    n1:=max(w[1],w[2],w[3]);
    n2:=max(w[4],w[5],w[6]);
    n3:=max(w[7],w[8],w[9]);
    if (n1>100)and(n2>100)and(n3>100) then exit(2);
    for i:=0 to n1 do
      for j:=0 to n2 do
        for p:=0 to n3 do
          if (i*x[1]+j*x[2]+p*x[3]=ka)and (i*y[1]+j*y[2]+p*y[3]=kb)
             and (i*z[1]+j*z[2]+p*z[3]=kc)then exit(1);
  end;

  begin
    assign(f1,fin);reset(f1);assign(f2,fout);rewrite(f2);
    read(f1,a,b,c);
    for i:=1 to 3 do read(f1,x[i],y[i],z[i]);
    flag:=0;k:=0;
    repeat
      inc(k);flag:=deal(k);
    until flag>0;
    case flag of
      1:writeln(f2,i,' ',j,' ',p,' ',k);
      2:writeln(f2,'NONE');
      end;
    close(f1);
    close(f2);
  end.