1084.pas

平时acm训练时ac的源代码

program goat;
const
 pi=3.1415926535;
var
 side,len:real;
procedure init;
begin
 readln(side,len);
 if len>sqrt(2)*side/2 then
  begin
   writeln(sqr(side):0:3);
   halt;
  end;
end;
procedure solve;
var
 eat,temp,area:real;
begin
 eat:=pi*sqr(len);
 if len>side/2 then
  begin
   temp:=sqrt(sqr(len)-sqr(side/2));
   area:=eat*arctan(2*temp/side)/pi-temp*side/2;
   eat:=eat-4*area;
  end;
 writeln(eat:0:3);
end;
begin
 init;
 solve;
end.