5748476 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n solvquad.bas
   1: 116 CLS
   2: PRINT "A: "
   3: PRINT "B: "
   4: PRINT "C: "
   5: LOCATE xx + 4, 1: PRINT "Axý + Bx + C = 0"
   6: LOCATE xx + 1, 1: INPUT "A: ", NumA
   7: LOCATE xx + 4, 1: PRINT RTRIM$(LTRIM$(STR$(NumA))) + "xý + Bx + C = 0"
   8: LOCATE xx + 2, 1: INPUT "B: ", NumB
   9: LOCATE xx + 4, 1: PRINT RTRIM$(LTRIM$(STR$(NumA))) + "xý + " + RTRIM$(LTRIM$(STR$(NumB))) + "x + C = 0"
  10: LOCATE xx + 3, 1: INPUT "C: ", NumC
  11: LOCATE xx + 4, 1: PRINT RTRIM$(LTRIM$(STR$(NumA))) + "xý + " + RTRIM$(LTRIM$(STR$(NumB))) + "x + " + RTRIM$(LTRIM$(STR$(NumC))) + " = 0"
  12: IF (NumB ^ 2 - 4 * NumA * NumC) < 1 THEN PRINT "Error: No Solution": END
  13: X1 = (-NumB + SQR(NumB ^ 2 - 4 * NumA * NumC)) / (2 * NumA)
  14: X2 = (-NumB - SQR(NumB ^ 2 - 4 * NumA * NumC)) / (2 * NumA)
  15: PRINT "X1: " + LTRIM$(RTRIM$(STR$(X1)))
  16: PRINT "X2: " + LTRIM$(RTRIM$(STR$(X2)))
  17: LPRINT RTRIM$(LTRIM$(STR$(NumA))) + "xý + " + RTRIM$(LTRIM$(STR$(NumB))) + "x + " + RTRIM$(LTRIM$(STR$(NumC))) + " = 0"
  18: LPRINT "X1: " + LTRIM$(RTRIM$(STR$(X1)))
  19: LPRINT "X2: " + LTRIM$(RTRIM$(STR$(X2)))
  20: LPRINT ""
  21: a$ = INPUT$(1)
  22: GOTO 116
  23:
5748477 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:09:39