记录编号 14639 评测结果 AAAAAAAAAA
题目名称 溶液模拟器 最终得分 100
用户昵称 Gravatarchengyang 是否通过 通过
代码语言 Pascal 运行时间 0.182 s
提交时间 2009-11-02 18:55:49 内存使用 0.23 MiB
显示代码纯文本
program simulator;
var
  a:array[0..10001]of longint;
  b:array[0..10001]of real;
  i,j,c,v,n:longint;
  s:char;
begin
  assign(input,'simulator.in');
  assign(output,'simulator.out');
  reset(input);
  rewrite(output);
  read(V,C);
  a[0]:=V; b[0]:=(C/100)*100;
  readln(n);
  j:=0;
  for i:=1 to n do begin
  read(s);
  if s='P' then begin
      readln(V,C);
      inc(j);
      a[j]:=a[j-1]+V;
      b[j]:=(a[j-1]*b[j-1]+c*v)/a[j];
      write(a[j],' ',b[j]:0:5);
      writeln;
    end
    else begin
        if j>0 then dec(j);
        write(a[j],' ',b[j]:0:5);
        writeln;
        readln;
    end;
  end;
  close(input); close(output);
end.