PROGRAM 4


PROGRAM SOLVE_EQUATION (INPUT, OUTPUT);
        {ANTHONY F. ORTIZ, ASSIGNMENT 1A, 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;
     WRITELN ('ENTER THE THREE NUMBERS FOR A, B AND C: ');
     READLN (A, B, C);
     WRITELN;
     X :=(C-B)/A;
     WRITELN ('THE SOLUTION TO THE EQUATION AX + B = C IS: ',X:8:2);
     WRITELN;
     WRITELN ('PRESS  TO CONTINUE. ');
     READLN;
END.

{  OUTFILE:  PROG4.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 CONTINUE.




BACK TO COMP151 PAGE.