Conditional structures: Difference between revisions
Content deleted Content added
Free Pascal / Lazarus |
|||
Line 563: | Line 563: | ||
42 -> "Correct" |
42 -> "Correct" |
||
// no default, could result in a run-time error</lang> |
// 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}}== |
=={{header|Clojure}}== |