PROGRAM 7


PROGRAM SOLVE_EQUATION (INPUT, OUTPUT);
        {ANTHONY F. ORTIZ, ASSIGNMENT 2, 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
     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;

VAR
   DONE    :  BOOLEAN;
   RESPONSE:  CHAR;
   RESPONE2:  CHAR;

PROCEDURE LOOP;

BEGIN
     WRITELN;
     WRITE ('WOULD YOU LIKE TO STOP THE PROGRAM?  TYPE "N" TO STOP. ');
     READLN (RESPONSE);
     DONE := RESPONSE = 'N';
END;

BEGIN
     REPEAT
           CLRSCR;
           LOADDATA;
           IF A<>0 THEN SOLVEEQUATION
           ELSE WRITELN ('SORRY, THERE IS NO SOLUTION IF A = 0. ');
           LOOP;
     UNTIL DONE
END.

{  OUTFILE:  PROG7.OUT  }

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

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

WOULD YOU LIKE TO STOP THE PROGRAM?  TYPE "N" TO STOP. n




BACK TO COMP151 PAGE.