結果
問題 | No.764 浮動点 |
ユーザー |
![]() |
提出日時 | 2018-12-12 00:58:04 |
言語 | cLay (20241019-1) |
結果 |
AC
|
実行時間 | 4 ms / 1,500 ms |
コード長 | 572 bytes |
コンパイル時間 | 2,697 ms |
コンパイル使用メモリ | 174,384 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-05 13:14:13 |
合計ジャッジ時間 | 3,580 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 23 |
ソースコード
double n,r,l[2000];double f(double r,double a,double b){if(a<0)a=0;if(b<0)b=0;if(a+b<=r)return 0;if(a>=r+b)return b*b*PI;if(b>=r+a)return a*a*PI;double ta=acos((r*r+a*a-b*b)/(r*a*2));double tb=acos((r*r+b*b-a*a)/(r*b*2));return a*a*(ta-sin(2*ta)/2)+b*b*(tb-sin(2*tb)/2);}{rd(n,r,l(n+1));int am,as,bm,bs;as=0;bs=sum(l(n+1));rep(i,1,n+1){am=max[k=0---i-1](l[k]);bm=max[k=i---n](l[k]);as+=l[i-1];bs-=l[i-1];wt(f(r,as,bs)-f(r,as,bm*2-bs)-f(r,am*2-as,bs)+f(r,am*2-as,bm*2-bs));}}