比赛 20110722 评测结果 WAAAWAWWWW
题目名称 饥饿的母牛 最终得分 40
用户昵称 donny 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-07-22 11:11:34
显示代码纯文本
program hungry;
uses math;
const
  pi=3.14159265357;
var
  i,k:longint;
  t:longint;
  l,s,d,j:real;
  area:real;
  tan,du:real;

begin
  assign(input,'hungry.in');
  reset(input);
  assign(output,'hungry.out');
  rewrite(output);

  readln(t);
  for k:=1 to t do
  begin
    readln(l,d,s);
    j:=sqrt(d*d+l*l/4);

    if s<=d then
    begin
      area:=pi*s*s;
    end
    else
    if s>=j then
    begin
      tan:=(l/2)/d;
      du:=arctan(tan);
      area:=pi*s*s*((pi-du)/pi);
      du:=pi/2-du;
      du:=pi-du;
      area:=area+pi*sqr(s-j)*(du/pi);
      area:=area+l*d/2;
    end
    else
    begin
      j:=sqrt(s*s-d*d);
      tan:=j/d;
      du:=arctan(tan);
      area:=pi*s*s*((pi-du)/pi);
      area:=area+j*d;
    end;

    writeln(area:0:2);
  end;

  close(input);
  close(output);
end.