JZOJ 4.1 C组 【GDOI2005】电路稳定性

Description

　　你有一个电路，电路上有n个元件。已知元件i损坏而断开的概率是Pi(i=1,2….n,0<=pi<=1)。
　　请你算出整个电路断路的概率。
　　元件的连接方式很简单，对电路的表示：
　　1. 一个元件是最小的电路，用A表示元件1，B表示元件2，如此类推。
　　2. K个电路组成的串联电路表示为：电路1，电路2，。。。。，电路K。
　　3. K个电路组成的并联电路表示为：(电路1)（电路2）。。。（电路K）。

Input

　　第一行是一个整数n(1<=n<=26),表示一共有多少个元件，第二行是表示电路的字符串，最后是n行，每行是一个实数Pi(i=1,2,…,n,0<=Pi<=1),表示该元件断路的概率。

Output

　　输出一个实数，表示整个电路断路的概率，精确到小数点后4位。

Sample Input

5
(A,B)((C)(D),E)
0.2
0.3
0.4
0.5
0.6

Sample Output

0.2992

---

求串联断电的公式为1-（1-x）*（1-y)
并联为x*y
有了这两个公式，就可以开始我们神奇而漫长的模拟之旅了
一个for先枚举他的长度，
如果为字母则将这个字母替换为实数；
如果搜到了右括号，将向前枚举左括号：如果搜到了逗号，就将串联的断电的概率求出来。
最后在将枚举到的左括号的前后两个的并联的断电概率求出来。

---

代码如下：

var
        c:char;s:ansistring;
        a:array[1..26]of real;
        num:array[0..1000]of real;
        z,q:array[0..1000]of longint;
        p:array[0..1000]of char;
        i,j,k,v,l,n,m,len:longint;
        ans,x,y:real;

procedure main;
begin
  for i:=1 to l do
    begin
      c:=s[i];
      if ('A'<=c)and('Z'>=c) then
        begin
          k:=ord(c)-64;
          inc(m);
          num[m]:=a[k];
          z[m]:=i;
        end
      else
        if (c=')') then
          begin
            while (p[len]<>'(') do
              begin
                if (p[len]=',') then
                  begin
                    x:=num[m];
                    dec(m);
                    y:=num[m];
                    num[m]:=1-(1-x)*(1-y);
                    dec(len);
                  end;
              end;
              dec(len);
              if (z[m-1]>q[len]) then
                begin
                  x:=num[m];dec(m);
                  y:=num[m];
                  num[m]:=x*y;
                end;
          end
        else
          begin
            inc(len);
            p[len]:=c;
            q[len]:=i;
          end;
    end;
end;

procedure init;
begin
  readln(n);
  readln(s);
  for i:=1 to n do read(a[i]);
  s:='('+s+')';
  l:=length(s);
  len:=0;
  m:=0;
end;

begin
  init;
  main;
  writeln(num[m]:0:4);
end.