Infinity: Difference between revisions
Content deleted Content added
Infinity in BASIC256 |
Infinity in QBasic |
||
| Line 1,230: | Line 1,230: | ||
Print inf</lang> |
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}}== |
=={{header|R}}== |
||