记录编号	14705	评测结果	WWWWWWWWWW
题目名称	溶液模拟器	最终得分	0
用户昵称	395899152	是否通过	未通过
代码语言	Pascal	运行时间	0.276 s
提交时间	2009-11-03 15:11:43	内存使用	2.76 MiB

program simulator;
var
  n,vz,i,j,t,code,kg2:longint;
  cz:real;
  s:array[1..10000]of string;
  l:array[1..10000]of integer;
  v:array[0..10000]of longint;
  c,c0:array[0..10000]of real;
begin
  assign(input,'simulator.in');
  reset(input);
  assign(output,'simulator.out');
  rewrite(output);
  readln(v[0],c[0]);
  readln(n);
  vz:=v[0];
  cz:=c[0];
  c0[0]:=c[0];
  for i:=1 to n do
  begin
    readln(s[i]);
    l[i]:=length(s[i]);
    if copy(s[i],1,1)='P' then
    begin
      t:=t+1;
      for j:=3 to l[i] do
        if copy(s[i],j,1)=' ' then kg2:=j;
      val(copy(s[i],3,kg2-3),v[t],code);
      val(copy(s[i],kg2+1,l[i]-kg2),c[t],code);
      c0[t]:=(vz*(cz/100)+v[t]*(c[t]/100))/(vz+v[t])*100;
      cz:=c0[t];
      vz:=vz+v[t];
      writeln(vz,' ',cz:0:5);
    end;
    if (l[i]=1)and(copy(s[i],1,1)='Z') then
    begin
      if (vz<>v[0])and(cz<>c[0]) then
      begin
        vz:=vz-v[t];
        cz:=c0[t-1];
      end;
      writeln(vz,' ',cz:0:5)
    end;
  end;
  close(input);
  close(output);
end.