Guest User

Untitled

a guest
Jan 14th, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Oz 0.29 KB | None | 0 0
  1.  
  2.  
  3. declare fun {Trojkat A B C}
  4.     local fun {Wb X}
  5.          if X>0.0 then X else ~X end
  6.           end
  7.     in
  8.         if {Wb (B-C)}<A andthen A<(B+C) then 'jupi' else 'nie' end
  9.     end
  10.  
  11.     local P = (A+B+C)/ 2.0 in {Float.sqrt (P * (P - A) * (P - B) * (P - C))}
  12.            
  13.     end
  14. end
  15.  
  16. {Show {Trojkat 1.0 2.0 3.0 }}
Add Comment
Please, Sign In to add comment