Conditional structures: Difference between revisions
Content added Content deleted
m (→{{header|FutureBasic}}: Indent code) |
|||
Line 2,727: | Line 2,727: | ||
<syntaxhighlight lang="futurebasic"> |
<syntaxhighlight lang="futurebasic"> |
||
local fn DoIt |
local fn DoIt |
||
long A = 7 |
long A = 7 |
||
if A > 0 then print "A is a positive number" else print "A is a negative number" |
if A > 0 then print "A is a positive number" else print "A is a negative number" |
||
long B = -10 |
long B = -10 |
||
if B > 0 |
if B > 0 |
||
print "B is a positive number" |
print "B is a positive number" |
||
else |
else |
||
print "B is a negative number" |
print "B is a negative number" |
||
end if |
end if |
||
long C = 99 |
long C = 99 |
||
select (C) |
select (C) |
||
case C < 0 |
case C < 0 |
||
print "C is a negative number" |
print "C is a negative number" |
||
case C = 0 |
case C = 0 |
||
print "C is zero" |
print "C is zero" |
||
case C > 0 |
case C > 0 |
||
print "C is a positive number" |
print "C is a positive number" |
||
case else |
case else |
||
print "C is unknown" |
print "C is unknown" |
||
end select |
end select |
||
CFStringRef suitName, suitSymbol |
CFStringRef suitName, suitSymbol |
||
suitSymbol = @"S" |
suitSymbol = @"S" |
||
select (suitSymbol) |
select (suitSymbol) |
||
case @"C": suitName = @"Clubs" |
case @"C": suitName = @"Clubs" |
||
case @"D": suitName = @"Diamonds" |
case @"D": suitName = @"Diamonds" |
||
case @"H": suitName = @"Hearts" |
case @"H": suitName = @"Hearts" |
||
case @"S": suitName = @"Spades" |
case @"S": suitName = @"Spades" |
||
case else : suitName = @"Unknown" |
case else : suitName = @"Unknown" |
||
end select |
end select |
||
print suitName |
print suitName |
||
end fn |
end fn |
||
fn Doit |
fn Doit |
||
HandleEvents |
|||
handleevents |
|||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|GAP}}== |
=={{header|GAP}}== |