home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 1_12.tcl < prev    next >
Text File  |  2003-04-15  |  225b  |  14 lines
  1. #
  2. # Example 1-12
  3. # Defining a procedure.
  4. #
  5.  
  6. proc Diag {a b} {
  7.     set c [expr {sqrt($a * $a + $b * $b)}]
  8.     return $c
  9. }
  10. puts "The diagonal of a 3, 4 right triangle is [Diag 3 4]"
  11. #=> The diagonal of a 3, 4 right triangle is 5.0
  12.  
  13.  
  14.