Anonymous user
Conditional structures: Difference between revisions
→{{header|Clean}}
(Free Pascal / Lazarus) |
|||
Line 563:
42 -> "Correct"
// no default, could result in a run-time error</lang>
=={{header|Clipper}}==
'''if-elseif-else-endif'''
<lang clipper>IF x == 1
SomeFunc1()
ELSEIF x == 2
SomeFunc2()
ELSE
SomeFunc()
ENDIF</lang>
'''do case'''
<lang clipper>DO CASE
CASE x == 1
SomeFunc1()
CASE x == 2
SomeFunc2()
OTHERWISE
SomeFunc()
ENDCASE</lang>
=={{header|Clojure}}==
| |||