home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / ANSWERS / CH05E3.MOD < prev    next >
Text File  |  1989-01-18  |  2KB  |  72 lines
  1.                           (* Chapter 5 - Programming exercise 3 *)
  2.                                        (* Chapter 4 - Program 4 *)
  3.  
  4. (* This program is a good example of proper formatting, it is   *)
  5. (* easy to read and very easy to understand.  It should be a    *)
  6. (* snap to update a program that is well written like this. You *)
  7. (* should begin to develop good formatting practice early in    *)
  8. (* your programming career.                                     *)
  9.  
  10. MODULE CH05E3;
  11.  
  12. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  13.  
  14. VAR Count      : INTEGER;   (* a variable used for counting     *)
  15.     Centigrade : INTEGER;   (* the temperature in centigrade    *)
  16.     Fahrenheit : INTEGER;   (* the temperature in fahrenheit    *)
  17.  
  18. PROCEDURE TempConvert(Cent : INTEGER) : INTEGER;
  19. BEGIN
  20.    RETURN 32 + Cent *9 DIV 5;
  21. END TempConvert;
  22.  
  23. BEGIN
  24.  
  25.    WriteString("Fahrenheit to Centigrade temperature table");
  26.    WriteLn;
  27.    WriteLn;
  28.  
  29.    FOR Count := -2 TO 12 DO
  30.       Centigrade := 10 * Count;
  31.       Fahrenheit := TempConvert(Centigrade);
  32.       WriteString("   C =");
  33.       WriteInt(Centigrade,5);
  34.       WriteString("     F =");
  35.       WriteInt(Fahrenheit,5);
  36.       IF Centigrade = 0 THEN
  37.          WriteString("   Freezing point of water");
  38.       END;
  39.       IF Centigrade = 100 THEN
  40.          WriteString("   Boiling point of water");
  41.       END;
  42.       WriteLn;
  43.    END; (* of main loop *)
  44.  
  45. END CH05E3.
  46.  
  47.  
  48.  
  49.  
  50. (* Result of execution
  51.  
  52. Fahrenheit to Centigrade temperature table
  53.  
  54.    C =  -20     F =    -4
  55.    C =  -10     F =    14
  56.    C =    0     F =    32   Freezing point of water
  57.    C =   10     F =    50
  58.    C =   20     F =    68
  59.    C =   30     F =    86
  60.    C =   40     F =   104
  61.    C =   50     F =   122
  62.    C =   60     F =   140
  63.    C =   70     F =   158
  64.    C =   80     F =   176
  65.    C =   90     F =   194
  66.    C =  100     F =   212   Boiling point of water
  67.    C =  110     F =   230
  68.    C =  120     F =   248
  69.  
  70. *)
  71.  
  72.