home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / idol / inverse.iol < prev    next >
Text File  |  2000-07-29  |  214b  |  13 lines
  1. class inverse:fraction(d)
  2. initially
  3.   self.n := 1
  4. end
  5.  
  6. procedure main()
  7.   x := inverse(2)
  8.   y := fraction(3,4)
  9.   z := x$times(y)
  10.   write("The decimal equivalent of ",z$asString(),
  11.     " is ",trim(z$asReal(),'0'))
  12. end
  13.