module Main where
--import Debug.Trace
import Data.List
import Data.Char
import Data.Array
import Data.Maybe
import Data.Ord
import Control.Monad

solve :: [Double] -> [Double]
solve [a, b, theta] = [area, circum, height] where
    height = b*sin (theta/180*pi)
    area   = height*a/2
    circum = sqrt ((a - b*cos (theta/180*pi))^2+ height^2) + a + b

readLine:: IO [Double]
readLine = fmap (map read . words) getLine

main :: IO() 
main = do
    l <- readLine
    mapM_ print (solve l)

