ratios.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 54 行

{
ID:maigoak1
PROG:ratios
}

program ratios;
var
  fin,fout:text;
  x,y,z,s,q,g1,g2,g3,f11,f12,f13,f21,f22,f23,f31,f32,f33,t:integer;
  b:boolean;
begin
  assign(fin,'ratios.in');
  reset(fin);
  readln(fin,g1,g2,g3);
  readln(fin,f11,f12,f13);
  readln(fin,f21,f22,f23);
  readln(fin,f31,f32,f33);
  close(fin);

  if g1=0 then
    if g2=0 then begin
      g1:=g3;g3:=0;
      t:=f11;f11:=f13;f13:=t;
      t:=f21;f21:=f23;f23:=t;
      t:=f31;f31:=f33;f33:=t;
    end
    else begin
      g1:=g2;g2:=0;
      t:=f11;f11:=f12;f12:=t;
      t:=f21;f21:=f22;f22:=t;
      t:=f31;f31:=f32;f32:=t;
    end;

  assign(fout,'ratios.out');
  rewrite(fout);
  for x:=0 to 99 do
    for y:=0 to 99 do
      for z:=0 to 99 do
        if x+y+z>0 then begin
          s:=f11*x+f21*y+f31*z;
          if s mod g1=0 then begin
            q:=s div g1;
            if f12*x+f22*y+f32*z=g2*q then
              if f13*x+f23*y+f33*z=g3*q then begin
                writeln(fout,x,' ',y,' ',z,' ',((f11+f12+f13)*x+(f21+f22+f23)*y+(f31+f32+f33)*z) div (g1+g2+g3));
                close(fout);
                halt;
              end;
          end;
        end;
  writeln(fout,'NONE');
  close(fout);
end.