area of triangle by pooq

r:?read;while(a:r(?-,?-,~))#~do dispterms(round(a/2*((b:r())^2-((b^2-r()^2+a^2)/2/a)^2)^.5));

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page