Task

Write a function to detect a   divide by zero error   without checking if the denominator is zero.




' FB 1.05.0 Win64
 
Const divByZeroResult As Integer = -9223372036854775808 
 
Sub CheckForDivByZero(result As Integer)
  If result = divByZeroResult Then 
    Print "Division by Zero"
  Else
    Print "Division by Non-Zero"
  End If
End Sub 
 
Dim As Integer x, y
 
x = 0 : y = 0
CheckForDivByZero(x/y) ' automatic conversion to type of parameter which is Integer
x = 1
CheckForDivByZero(x/y)
x = -1
CheckForDivByZero(x/y)
y = 1
CheckForDivByZero(x/y)
Print
Print "Press any key to exit"
Sleep