area of triangle by pooq

foreach {a b c} [read stdin] {puts [expr round(sqrt(4.*$a*$a*$b*$b-pow($a*$a+$b*$b-$c*$c,2))/4)]}

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

download

return to the top page