PROGRAM 5


PROGRAM SOLVE_EQUATION (INPUT, OUTPUT);
        {ANTHONY F. ORTIZ, ASSIGNMENT 1B, JUNE 27, 1994}
        {THIS PROGRAM COMPUTES AND PRINTS THE SOLUTION TO AX + B = C.}
USES CRT;
VAR
   A, B, C :INTEGER;
   X       :REAL;
BEGIN
     CLRSCR;
     WRITE ('ENTER THE THREE NUMBERS FOR A, B, AND C: ');
     READLN (A, B, C);
     WRITELN;
     IF A<>0 THEN
        BEGIN
             X  :=(C-B)/A;
             WRITELN ('THE SOLUTION TO THE EQUATION AX + B = C IS: ',X:8:2);
        END
     ELSE
        WRITELN ('SORRY, THERE IS NO SOLUTION IF A = 0.');
     WRITELN;
     WRITELN ('PRESS  TO QUIT. ');
     READLN;
END.

{  OUTFILE:  PROG5.OUT  }

ENTER THE THREE NUMBERS FOR A, B, AND C: 1 2 3

THE SOLUTION TO THE EQUATION AX + B = C IS:     1.00

PRESS  TO QUIT.




BACK TO COMP151 PAGE.