home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / DIST1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  757 b   |  28 lines
  1. PROGRAM  Distance_Conversion;
  2.  
  3. {        Program to demonstrate the REPETITION
  4.          function in Pascal Programming (Also
  5.          it converts distances in miles to
  6.          distances in kilometeres. Written by
  7.          DCS1A in October 1991. Saved as DIST1.PAS    }
  8.  
  9. USES
  10.     CRT;
  11.  
  12. CONST
  13.     Miles_To_Km = 1.6; {Converts a distance in miles to kilometres}
  14.  
  15. VAR
  16.     Miles      : Real;
  17.     Kilometres : Real;
  18.  
  19. BEGIN {Main program}
  20.     REPEAT
  21.          WRITELN ('Please enter distance to be converted');
  22.          WRITELN ('Enter -99 to exit program');
  23.          READLN (Miles);
  24.          Kilometres := Miles * Miles_To_Km;
  25.          CLRSCR;
  26.          WRITELN (Miles:8:2,' miles = ',Kilometres:8:2,' km');
  27.     UNTIL (Miles = -99);
  28. END.ə