PROGRAM 2


PROGRAM FIND_RATIO;
        {ANTHONY F. ORTIZ, ASSIGNMENT 0B, 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;
           RATIO :=A/B;
           WRITELN ('THE RATIO IS ',RATIO:8:2);
           WRITELN;
           WRITE ('PRESS  TO CONTINUE. ');
           READLN;
     UNTIL B=0
END.

{  OUTFILE:  PROG2.OUT  }

ENTER TWO NUMBERS: 2 4

THE RATIO IS     0.50

PRESS  TO CONTINUE.




BACK TO COMP151 PAGE.