PROGRAM 3


PROGRAM FIND_RATIO;
        {ANTHONY F. ORTIZ, ASSIGNMENT 0C, JUNE 27, 1994}
        {THIS PROGRAM COMPUTES AND PRINTS THE RATIO OF TWO NUMBERS.}
USES CRT;
VAR
   A, B     :  INTEGER;
   RATIO    :  REAL;
BEGIN
     REPEAT
           CLRSCR;
           WRITE ('ENTER TWO NUMBERS: ');
           READLN (A,B);
           WRITELN;
           IF B=0 THEN
              WRITELN ('THE RATIO IS UNDEFINED. ')
           ELSE
               BEGIN
                    RATIO :=A/B;
                    WRITELN ('THE RATIO IS ',RATIO:8:2);
               END;
           WRITELN;
           WRITE ('PRESS  TO CONTINUE. ');
           READLN
     UNTIL B=0
END.

{  OUTFILE:  PROG3.OUT  }

ENTER TWO NUMBERS: 2 4

THE RATIO IS     0.50

PRESS  TO CONTINUE.




BACK TO COMP151 PAGE.