home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / DUMBCONV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1006 b   |  46 lines
  1.                                 (* Chapter 4 - Program 5 *)
  2. program Temperature_Conversion;
  3.  
  4. var A1,A2,A3 : integer;
  5.  
  6. begin
  7.    Writeln('Centigrade to farenheight temperature table');
  8.    Writeln;
  9.    for A1 := -2 to 12 do begin
  10.       A2 := 10*A1;
  11.       A3 := 32 + A2*9 div 5;
  12.       Write('  C =',A2:5);
  13.       Write('    F =',A3:5);
  14.       if A2 = 0 then
  15.          Write('  Freezing point of water');
  16.       if A2 = 100 then
  17.          Write('  Boiling point of water');
  18.       Writeln;
  19.    end;
  20. end.
  21.  
  22.  
  23.  
  24.  
  25. { Result of execution
  26.  
  27. Centigrade to farenheight temperature table
  28.  
  29.   C =  -20    F =   -4
  30.   C =  -10    F =   14
  31.   C =    0    F =   32  Freezing point of water
  32.   C =   10    F =   50
  33.   C =   20    F =   68
  34.   C =   30    F =   86
  35.   C =   40    F =  104
  36.   C =   50    F =  122
  37.   C =   60    F =  140
  38.   C =   70    F =  158
  39.   C =   80    F =  176
  40.   C =   90    F =  194
  41.   C =  100    F =  212  Boiling point of water
  42.   C =  110    F =  230
  43.   C =  120    F =  248
  44.  
  45. }
  46.