记录编号 14601 评测结果 AAAAAAAAAA
题目名称 溶液模拟器 最终得分 100
用户昵称 GravatarAchilles 是否通过 通过
代码语言 Pascal 运行时间 0.171 s
提交时间 2009-11-02 16:51:14 内存使用 0.26 MiB
显示代码纯文本
program simulator;
var
  sz:array[0..10000]of record
    v:longint;
    c:real;
  end;
  n,now,i:longint;
  s:char;
begin
  assign(input,'simulator.in');
  assign(output,'simulator.out');
  reset(input);
  rewrite(output);
  readln(sz[0].v,sz[0].c);
  readln(n);
  now:=0;
  for i:=1 to n do
  begin
    read(s);
    if s='P' then begin
      now:=now+1;
      readln(sz[now].v,sz[now].c);
      sz[now].c:=(sz[now].c*sz[now].v+sz[now-1].c*sz[now-1].v)/(sz[now].v+sz[now-1].v);
      sz[now].v:=sz[now].v+sz[now-1].v;
      writeln(sz[now].v,' ',sz[now].c:0:5);
    end
    else begin
      readln;
      if now>0 then now:=now-1;
      writeln(sz[now].v,' ',sz[now].c:0:5);
    end;
  end;
  close(input);
  close(output);
end.