PROGRAM 9


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

USES CRT;

VAR
   CM, INCHES, FEET: REAL;

PROCEDURE PAUSE;

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

PROCEDURE EXPAINPROGRAM;

BEGIN
     WRITELN ('THIS PROGRAM WILL CONVERT CM. TO INCHES OR CM. TO FEET AND 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;

PROCEDURE PRINTRESULTS2;

BEGIN
     FEET := INCHES / 12;
     FEET := TRUNC (FEET);
     INCHES := INCHES - (FEET * 12);
     WRITELN;
     WRITELN  (CM:1:2, ' CENTIMETERS = ', FEET:1:2, ' FEET AND ',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;
           IF INCHES < 12 THEN
              PRINTRESULTS
           ELSE
              PRINTRESULTS2;
           LOOP;
     UNTIL ANS = 'YES';
END.

{  OUTFILE:  PRO9.OUT  }

THIS PROGRAM WILL CONVERT CM. TO INCHES OR CM. TO FEET AND 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.