Anonymous user
Boolean values: Difference between revisions
Added solution for Action!
(Added solution for Action!) |
|||
Line 87:
=={{header|ACL2}}==
Same as [[Common Lisp|Boolean Values#Common Lisp]].
=={{header|Action!}}==
<lang Action!>PROC Test(BYTE v)
PrintF("Variable v has value %B%E",v)
IF v THEN
PrintE("Condition IF v is satisfied.")
ELSE
PrintE("Condition IF v is not satisfied.")
FI
IF v=0 THEN
PrintE("Condition IF v=0 is satisfied.")
ELSE
PrintE("Condition IF v=0 is not satisfied.")
FI
IF v<>0 THEN
PrintE("Condition IF v<>0 is satisfied.")
ELSE
PrintE("Condition IF v<>0 is not satisfied.")
FI
IF v#0 THEN
PrintE("Condition IF v#0 is satisfied.")
ELSE
PrintE("Condition IF v#0 is not satisfied.")
FI
PutE()
RETURN
PROC Main()
Test(0)
Test(1)
Test(86)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Boolean_values.png Screenshot from Atari 8-bit computer]
<pre>
Variable v has value 0
Condition IF v is not satisfied.
Condition IF v=0 is satisfied.
Condition IF v<>0 is not satisfied.
Condition IF v#0 is not satisfied.
Variable v has value 1
Condition IF v is satisfied.
Condition IF v=0 is not satisfied.
Condition IF v<>0 is satisfied.
Condition IF v#0 is satisfied.
Variable v has value 86
Condition IF v is satisfied.
Condition IF v=0 is not satisfied.
Condition IF v<>0 is satisfied.
Condition IF v#0 is satisfied.
</pre>
=={{header|Ada}}==
| |||