?? ac1084.pas
字號:
program ural1084;
var
a,r:byte;
si,co,angle:real;
begin
readln(a,r);
if r>=a/sqrt(2) then
writeln(sqr(a)*1.0:0:3)
else if r<=a/2 then
writeln(pi*sqr(r):0:3)
else begin
co:=a/2/r;
si:=sqrt(1-sqr(co));
angle:=arctan(si/co);
writeln((r*si*a/2+(pi/2-angle*2)*sqr(r)/2)*4:0:3);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -