area of triangle by pooq

r:?read;while 0#(a:r(?nil,?nil,0))do printf(?t,"~d
",fix(a/2*((b:r())^2-((b^2-(r())^2+a^2)/2/a)^2)^.5+.5));

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

download

return to the top page