home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / m2 / RealInOut.def < prev    next >
Encoding:
Modula Definition  |  1994-11-09  |  445 b   |  16 lines
  1. DEFINITION MODULE RealInOut ;
  2.  
  3. VAR
  4.   done : BOOLEAN ;
  5.  
  6. PROCEDURE ReadReal( VAR x : REAL ) ;
  7. (* Read Real from keyboard according to syntax:                *)
  8. (*   ["+"|"-"] digit {digit} [.digit{digit}] ["E"["+"|"-"]digit{digit}] *)
  9. (* done = true, if a valid real was read                *)
  10. (* At most 7 digits are significant, leading zeros not counting        *)
  11.  
  12. PROCEDURE WriteReal( x : REAL ; n : INTEGER ) ;
  13. (* Write x using n characters, minimum 9 *)
  14.  
  15. END RealInOut.
  16.