1084 Timus answer/Решение задачи 1084


№1084
http://acm.timus.ru/problem.aspx?space=1&num=1084
ЖМИ ДАЛЕЕ>>>


РЕШЕНИЕ:

PASCAL

{$N+}
Var
C,B,S,T: Extended;
Begin
Read(B,C);
B:=B/2;
If C>B*Sqrt(2) then begin
Writeln(B*B*4:0:3);
Halt;
End;
If C<B then S:=Pi*C*C
else begin
S:=8*((Pi*C*C/(2*Pi)*ArcTan(Sqrt(C*C-B*B)/B)-Sqrt(C*C-B*B)*B/2));
If S>0 then S:=Pi*C*C-S
else S:=Pi*C*C;
End;
Writeln(S:0:3);
End.

1084. Пусти козла в огород

Ограничение времени: 1.0 секунды
Ограничение памяти: 16 МБ
Козла пустили в квадратный огород и привязали к колышку. Колышек воткнули точно в центре огорода. Козёл голоден, как волк, прожорлив, как бык, и ест всё, до чего дотянется, не перелезая через забор и не разрывая веревку. Какая площадь огорода будет объедена?

Исходные данные

Длина стороны огорода и длина верёвки в метрах (положительные целые числа, не превосходящие 100, расположенные в одной строке через пробел).

Результат

Площадь части огорода (в квадратных метрах, с точностью до 3 знаков после десятичной точки), объеденной козлом.

Пример

исходные данныерезультат
10 6
95.091
Автор задачи: Ирина Данилина
Источник задачи: Третье командное соревнование школьников Свердловское области по программированию, 4 марта 2001
Ярлыки: