ac1279.pas

这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码

program tju1279;
var
  a,b,c,d,e,f,m,n,x,y,z:extended;
begin
  repeat
    read(a,b,c,d,e,f);
    m:=(d*d+e*e-f*f)/(2*d);
    n:=sqrt(e*e-m*m);
    x:=(d*d+a*a-b*b)/(2*d);
    y:=(e*e+a*a-c*c-2*m*x)/(2*n);
    z:=sqrt(a*a-x*x-y*y);
    writeln(d*n*z/6:0:4);
  until seekeof;
end.