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.