记录编号 14598 评测结果 AAAAAAAAAA
题目名称 溶液模拟器 最终得分 100
用户昵称 GravatarEnAsn 是否通过 通过
代码语言 Pascal 运行时间 0.168 s
提交时间 2009-11-02 16:43:46 内存使用 0.26 MiB
显示代码纯文本
program ex;
type
 data=record
  v:longint;
  c:real;
 end;
 ss=array[0..10000]of data;
var
 f:ss;
 tail:integer;
 n,v1,c1,t:longint;
 i,j:integer;
 ch:char;
begin
  assign(input,'simulator.in');
  assign(output,'simulator.out');
  reset(input);
  rewrite(output);
  readln(f[0].v,f[0].c);
  readln(n);
  tail:=0;
  for i:=1 to n do
   begin
    read(ch);
    if ch='Z' then begin
                    readln;
                    if tail>0 then dec(tail);
                   end
              else begin
                    read(v1,c1);
                    readln;
                    inc(tail);
                    f[tail].v:=f[tail-1].v+v1;
                    f[tail].c:=(f[tail-1].c*f[tail-1].v+v1*c1)/(f[tail].v);
                   end;
    writeln(f[tail].v,' ',f[tail].c:0:5);
  end;
  close(input);
  close(output);
end.