Logical operations: Difference between revisions

m
Line 1,376:
 
=={{header|FutureBasic}}==
<lang futurebasic>window 1, @"Logical Operations", (0,0,480,270)
include "ConsoleWindow"
 
Boolean a, b
def tab 6
 
text ,,,,, 43
 
print @"In FB, the Boolean constants _true or YES = 1, _false or NO = 0"
print fn StringByPaddingToLength( @"", 39, @"-", 0 )
 
print @"a\tb\tand\tor\txor\tnand\tnor"
print fn StringByPaddingToLength( @"", 39, @"-", 0 )
 
a = _falseNO : b = _falseNO : print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _falseNO : b = _true:YES : print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _trueYES : b = _falseNO : print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _trueYES : b = _true:YES : print a, b, a and b, a or b, a xor b, a nand b, a nor b
 
dim as long a, b
print "In FB the Boolean constants _true = 1, _false = 0"
print string$( 39, "-" )
print " a", " b", "and", "or", "xor", "nand", "nor"
print string$( 39, "-" )
a = _false: b = _false: print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _false: b = _true: print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _true: b = _false: print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _true: b = _true: print a, b, a and b, a or b, a xor b, a nand b, a nor b
print
 
print "FB also has shorthand operator expressions:"
print string$( 39, "-" )
print "fn a",StringByPaddingToLength( @" b", "&&"39, @"||-", "^^",0 "^&", "^|")
print @"a\tb\t&&\t||\t^^\t^&\t^|"
print string$( 39, "-" )
print fn StringByPaddingToLength( @"", 39, @"-", 0 )
a = _false: b = _false: print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
 
a = _false: b = _true: print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _true:NO : b = _falseNO : print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _true:NO : b = _true:YES : print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _falseYES : b = _falseNO : print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _falseYES : b = _true:YES : print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
 
HandleEvents
</lang>
 
<pre>
In FB, the Boolean constants _true or YES = 1, _false or NO = 0
---------------------------------------
a b and or xor nand nor
Line 1,411 ⟶ 1,418:
1 1 1 1 0 0 -1
 
FB also has shorthand operator expressions:
---------------------------------------
a b && || ^^ ^& ^|
416

edits