10.18 最大面积 2432

题目

题解

学过初三数学或圆的相关知识的人都会求阴影部分面积。。。。。(垂径定理和勾股定理）

$$S阴=a*[√r^2-((1/2)a)^2]+b*[√r^2-((1/2)b)^2]-a*b$$
然后就可以枚举a，b找最大值（a,b<=2r）

代码

var
  r,a,b,i,j:longint;
  c,max,b1,a1:double;
begin
  readln(r);
  for i:=0 to r*2 do
    for j:=0 to r*2 do
      begin
        a1:=sqrt(sqr(r)-sqr(0.5*i));
        b1:=sqrt(sqr(r)-sqr(0.5*j));
        c:=i*a1*2+j*b1*2-i*j;
        if c>max then
          begin
            max:=c;
            a:=i;b:=j;
          end;
      end;
  writeln(a);
  writeln(b);
end.