Rosetta Code

Conditional structures: Difference between revisions

← Older editNewer edit →
Content deleted Content added
PatGarrett (talk | contribs)
1,392 edits
→‎if-then-else: remove extra ;
m →‎{{header|REXX}}: added comments, elided duplicate blank lines, changed indentations.
Line 3,518:
=={{header|REXX}}==
===IF--THEN, IF--THEN--ELSE===
<lang rexx>if y then x@=6 /* Y must be either 0 or 1 */
 
if t**2>u then x=y /*simple IF with THEN & ELSE. */
else x=-y▼
 
if t**2>u then xdo j=1 for 10; say prime(j); end /*THEN DO yloop.*/
else x=-y /*simple ELSE. */
 
if z>w+4 then do else nop /*THEN DO group.*/▼
z=abs(z)▼
say 'z='z▼
end▼
else do; z=0; say 'failed.'; end /*ELSE DO group.*/▼
 
if x>y & c*d<sqrt(pz) |, /*this statement is continued [,]*/
if t**2>u then do j=1 to 10; say prime(j); end
substr(abc,4,1)=='@~' then if z=0 then call punt▼
▲ else x=-y
else nop /*NOP pairs up IF*/
 
else if z<0 then z=-y /*alignment helps*/</lang>▼
 
if z>w+4 then do
▲ z=abs(z)
▲ say 'z='z
▲ end
▲ else do; z=0; say 'failed.'; end
 
 
if x>y & c*d<sqrt(pz) |,
▲ substr(abc,4,1)=='@' then if z=0 then call punt
▲ else nop
▲ else if z<0 then z=-y</lang>
 
===SELECT--WHEN===
<lang rexx> /*the WHEN conditional operators are the same as */
/*the IF conditional operators. */
select
when t<0 then z=abs(u)
when t=0 & y=0 then z=0
when t>0 then do
y=sqrt(z)
z=u**2
end
 
/*if control reaches this point andhere & none of the WHENs were*/
/*were satisfiedsatisfiied, a SYNTAX (error) condition is raised (error).*/
end /*1st select*/</lang>
 
select
when a=='angel' then many='host'
when a=='ass' | a=='donkey' then many='pace'
when a=='crocodile' then many='bask'
when a=='crow' then many='murder'
when a=='lark' then many='ascension'
when a=='quail' then many='bevy'
when a=='wolf' then many='pack'
otherwise many='?'
end /*2nd select*/ /* [↑] uses OTHERWISE as a catch-all.*/</lang>
 
===SELECT--WHEN/OTHERWISE===
Line 3,567 ⟶ 3,574:
otherwise say
say '*** error! ***'
say g "isn't one of the known thingys."
say
exit 13
Retrieved from "https://rosettacode.org/wiki/Conditional_structures"