Skip to content

RealInOut.md

Latest commit

 

History

History
40 lines (32 loc) · 790 Bytes

RealInOut.md

File metadata and controls

40 lines (32 loc) · 790 Bytes

RealInOut

Real number input/output module. Provides procedures for reading and writing REAL and LONGREAL values.

Exported Procedures

PROCEDURE ReadReal(VAR r: REAL);
PROCEDURE WriteReal(r: REAL; width: CARDINAL);
PROCEDURE WriteRealOct(r: REAL);
PROCEDURE WriteLongReal(r: LONGREAL; width: CARDINAL);

Exported Variables

VAR Done: BOOLEAN;

Done is set to TRUE after a successful ReadReal and FALSE on parse failure or end of input.

Example

MODULE RealDemo;
FROM RealInOut IMPORT ReadReal, WriteReal, Done;
FROM InOut IMPORT WriteString, WriteLn;
VAR x: REAL;
BEGIN
  WriteString("Enter a real number: ");
  ReadReal(x);
  IF Done THEN
    WriteString("Value: ");
    WriteReal(x, 12);
    WriteLn;
  END;
END RealDemo.