最轻的天平

题目描述

    天平的两边有时不一定只能挂物品，还可以继续挂着另一个天平，现在给你一些天平的情况和他们之间的连接关系，要求使得所有天平都能平衡所需物品的总重量最轻，一个天平平衡当且仅当“左端点的重量*左端点到支点的距离=右端点的重量*右端点到支点的距离”。注意题目中的输入保证这些天平构成一个整体。

输入

第一行包含一个N(N<=100),表示天平的数量，,天平编号为1到N,接下来包含N行描述天平的情况，每行4个整数P,Q,R,B,P和Q表示横杆上支点到左边的长度与到右边的距离的比例为P：Q，R表示左边悬挂的情况，如果R=0说明悬挂的物品，否则表示左边悬挂的是天平R；B表示右边的悬挂情况，如果B=0表示右边悬挂的是物品，否则右边悬挂着天平B。

对于所有的输入，保证W*L<2^31,   其中W为最请的天平重量，而L为输入中描述左右比例时出现的最大。

样例输入

4

3 2 0 4

1 3 0 0

4 4 2 1

2 2 0 0

样例输出
     
     

      
      
40

     
     

var a,b,c:longint;
        v:array[1..100,1..4]of longint;
        bz:array[0..100]of boolean;
function dg(x:longint):longint;
        var k,m,w,l,r:longint;
begin
        if x=0 then dg:=1 else begin
                k:=dg(v[x,3]);
                m:=dg(v[x,4]);
                l:=v[x,2]*m;
                w:=v[x,1]*k;
                r:=l mod w;
                while r>0 do begin
                        l:=w;
                        w:=r;
                        r:=l mod w;
                end;
                dg:=k*(m*v[x,2] div w)+m*(k*v[x,1] div w);
        end;
end;
begin
        readln(a);
        for b:=1 to a do begin
                readln(v[b,1],v[b,2],v[b,3],v[b,4]);
                bz[v[b,3]]:=true;
                bz[v[b,4]]:=true;
        end;
        for b:=1 to a do if bz[b]=false then begin
                c:=b;
                break;
        end;
        writeln(dg(c));
end.