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