最简单几何，比较阴险：
{ Author:wzx961008 Problem:UVa 11909-Soya Milk Verdict:Accepted Language:PASCAL Run Time:0.016s Submission Date:2011-02-09 13:55:34 } var l,w,h,alpha,volume:longint; ans,empty,sinval,cosval:extended; begin while not eof do begin readln(l,w,h,alpha); volume:=l*w*h; sinval:=sin(2*pi*alpha/360); cosval:=cos(2*pi*alpha/360); if sinval/cosval<h/l then begin empty:=w*((l*l/cosval*sinval)/2); ans:=volume-empty; end else ans:=w*(h*(h/(sinval/cosval))/2); writeln(ans:0:3,' mL'); end; end.
