home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  310 b   |  15 lines
  1. program convert;
  2. const addin=32; mulby=1.8; low=0; high=39; separator='------';
  3. var degree:low..high;
  4.  
  5. begin
  6.   writeln(separator);
  7.   for degree := low to high do begin
  8.     write(degree,'c',round(degree*mulby+addin),'f');
  9.     if odd(degree) then writeln
  10.   end;writeln;
  11.   writeln(separator)
  12. end.
  13.  
  14.  
  15.