16 lines
359 B
Text
16 lines
359 B
Text
Module Checkit {
|
|
Function DetectDivisionByZero(&a()) {
|
|
Try {
|
|
a=a()
|
|
}
|
|
=Error$=" division by zero"
|
|
}
|
|
|
|
Print DetectDivisionByZero(lazy$(10/0))=True
|
|
Z=10
|
|
A=4
|
|
B=0
|
|
Print DetectDivisionByZero(lazy$(Z/B))=True
|
|
Print DetectDivisionByZero(lazy$(Z/A))=False
|
|
}
|
|
Checkit
|