home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MODULA2 / M2_TUTOR.ZIP / DUMBCONV.MOD < prev    next >
Encoding:
Text File  |  1987-02-08  |  671 b   |  26 lines
  1.                                         (* Chapter 4 - Program 5 *)
  2. MODULE DumbConv;
  3. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  4. VAR a, b, c : INTEGER;
  5. BEGIN
  6.    WriteString("Farenheit to Centigrade temperature table");
  7.    WriteLn;
  8.    WriteLn;
  9.    FOR a := -2 TO 12 DO
  10.       b := 10 * a;
  11.       c := 32 + b *9 DIV 5;
  12.       WriteString("   C =");
  13.       WriteInt(b,5);
  14.       WriteString("     F =");
  15.       WriteInt(c,5);
  16.       IF b = 0 THEN
  17.          WriteString("   Freezing point of water");
  18.       END;
  19.       IF b = 100 THEN
  20.          WriteString("   Boiling point of water");
  21.       END;
  22.       WriteLn;
  23.    END; (* of main loop *)
  24.  
  25. END DumbConv.
  26.