home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / JNFB88.ZIP / PALPRO.ARC / HYPO.SC < prev    next >
Encoding:
Text File  |  1987-10-07  |  225 b   |  12 lines
  1. PROC Hypotenuse(x,y)
  2.         w=x*x
  3.         z=y*y
  4.         RETURN (SQRT(w+z))
  5. ENDPROC 
  6.  
  7. x = 4 
  8. y = 5 
  9. ? "If a right triangle has sides ",x," and ",y,"," 
  10. ? "then its hypotenuse is ",Hypotenuse(x,y),"." 
  11. SLEEP 4000 
  12.