PROGRAM 6


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

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