PROGRAM 1


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

{  OUTFILE:  PROG1.OUT  }  

ENTER TWO NUMBERS: 2 4

THE RATIO IS  5.0000000000E-01

PRESS  TO CONTINUE.




BACK TO COMP151 PAGE.