17 lines
359 B
Text
17 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
|