home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pascal / pascsrc.arc / DUMBCONV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  510 b   |  20 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.