Infinity: Difference between revisions
Infinity in QBasic
(Infinity in BASIC256) |
(Infinity in QBasic) |
||
Line 1,230:
Print inf</lang>
=={{header|QBasic}}==
{{works with|QBasic|1.1}}
<lang QBasic>DECLARE FUNCTION f! ()
ON ERROR GOTO TratoError
PRINT 0!
PRINT 0 / -1.5
PRINT 1.5 / 0
PRINT 0 / 0
PRINT f
END
TratoError:
PRINT "Error "; ERR; " on line "; ERL; CHR$(9); " --> ";
SELECT CASE ERR
CASE 6
PRINT "Overflow"
RESUME NEXT
CASE 11
PRINT "Division by zero"
RESUME NEXT
CASE ELSE
PRINT "Unexpected error, ending program."
END
END SELECT
FUNCTION f!
f! = -1.5 / 0
END FUNCTION</lang>
=={{header|R}}==
|