PROGRAM 8


PROGRAM CONVERTCENTIMETERS;
        {ANTHONY F. ORTIZ, ASSIGNMENT 3A, JUNE 27, 1994}
        {THIS PROGRAM CONVERTS CENTIMETERS TO INCHES AND PRINTS IT TO THE
         SCREEN.}

USES CRT;

VAR
   CM, INCHES:  REAL;

PROCEDURE PAUSE;

BEGIN
     WRITELN;
     WRITE ('PRESS ENTER KEY TO CONTINUE. ');
     READLN;
     WRITELN;
END;

PROCEDURE EXPAINPROGRAM;

BEGIN
     WRITELN ('THIS PROGRAM WILL CONVERT CENTIMETERS TO INCHES. ');
     PAUSE;
END;

PROCEDURE GETDATA;

BEGIN
     WRITE ('ENTER THE NUMBER OF CENTIMETERS: ');
     READLN  (CM);
END;

PROCEDURE PROCESSDATA;

BEGIN
     INCHES := 1/2.54  * CM;
END;

PROCEDURE PRINTRESULTS;

BEGIN
     WRITELN;
     WRITELN (CM:1:2, ' CENTIMETERS = ', INCHES:1:2, ' INCHES. ');
     WRITELN;
END;

VAR
   ANS:  STRING;

PROCEDURE LOOP;

BEGIN
     WRITE ('WOULD YOU LIKE TO END THE PROGRAM?  TYPE  TO  QUIT. ');
     READLN (ANS);
END;

BEGIN
     REPEAT;
           CLRSCR;
           EXPAINPROGRAM;
           GETDATA;
           PROCESSDATA;
           PRINTRESULTS;
           LOOP;
     UNTIL ANS = 'YES';
END.

{  OUTFILE:  PROG8.OUT  }

THIS PROGRAM WILL CONVERT CENTIMETERS TO INCHES.

PRESS ENTER KEY TO CONTINUE.

ENTER THE NUMBER OF CENTIMETERS: 10

10.00 CENTIMETERS = 3.94 INCHES.

WOULD YOU LIKE TO END THE PROGRAM?  TYPE  TO  QUIT. yes




BACK TO COMP151 PAGE.