home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / ODDS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  382 b   |  20 lines
  1. PROGRAM Conversion_Chart;
  2.  
  3. USES
  4.     CRT;
  5.  
  6. CONST
  7.      Miles_to_Km = 1.82;
  8. VAR
  9.     Miles        : Real;
  10.     Km           : Real;
  11.  
  12. BEGIN
  13.      Miles := 10;
  14.      Km := Miles * Miles_to_Km;
  15.      WRITELN (Miles:3:0,' Miles equals ',Km:3:0,' Km);
  16.      REPEAT
  17.      Miles := Miles + 10;
  18.      WRITELN (Miles:3:0,' Miles equals ',Km:3:0,' Km);
  19.      UNTIL (Miles = 100);
  20. END.ə