Anonymous user
Boolean values: Difference between revisions
m
→{{header|S-BASIC}}: minor cleanup and display output
imported>KayproKid m (fixed run-over between languages) |
imported>KayproKid m (→{{header|S-BASIC}}: minor cleanup and display output) |
||
Line 2,429:
=={{header|S-BASIC}}==
Although S-BASIC has no explicit boolean data type, it
real, fixed, string, and character variables to hold the results of boolean operations and to represent true and false conditions in IF, WHILE, and REPEAT statements. For types real.double, real, and fixed, a value of zero is false, and any non-zero value is true. For integers, the value 0 is treated as false, while -1 (or FFFFH), the bit-wise negation of zero, is treated as true.
For characters and strings, 'Y', 'y', 'T', and 't' are treated as true, ▼
while 'N', 'n', 'F', and 'f' are treated as false. (For strings, only the first character is considered.) For convenience, the $CONSTANT compiler directive can be used to provide values for "true" and "false".
▲For characters and strings, 'Y', 'y', 'T', and 't' are treated as
<syntaxhighlight lang = "BASIC">
$constant true = 0FFFFH
$constant false = 0
var a, another = char
var b, adult, age = integer
var c = real
another = 'Y'▼
repeat
begin
input "
adult = (age >= 18)
if adult then
print "
else
print "
input "Do another (y/n)"
end
until not another
a = (2 > 3)
b = (2 > 3)
c = (2 > 3)
print "2 > 3 as char: "; a
print "2 > 3 as int : "; b
print "not (2 > 3) : "; not b
print "2 > 3 as real: "; c
print "not (2 > 3) : "; not c
end
</systaxhighlight>
{{out}}
<pre>
Applicant's age in years? 19
Applicant has full access
2 > 3 as char: F
2 > 3 as int : 0
not (2 > 3) :-1
2 > 3 as real: 0
not (2 > 3) :-1
</pre>
=={{header|Scala}}==
| |||