Programmeren in REXX/Voorbeeldprogramma's: verschil tussen versies

Verwijderde inhoud Toegevoegde inhoud
→‎Koffievraag: Antwoordvalidatie
herschikt
Regel 80:
</pre>
 
==Subroutines==
==Oppervlakte van een doughnut==
door middel van een subroutine
<pre>
/* Oppervlakte_donut.rex */
Regel 97 ⟶ 96:
cirkel = 3.14 * r * r
return cirkel
</pre>
 
==Combinatie==
<pre>
/* combinatie.rex */
cls
max = 0
teller = 1
output = ""
say "Geef eerste getal (stoppen kan met een negatief getal)"
pull getal
if (getal >= 0)
then
do
do while (getal >= 0)
if (getal > max)
then max = getal
A.teller = getal
say "Geef nog een getal (stoppen kan met een negatief getal)"
pull getal
teller = teller + 1
end
say "maximum van de reeks"
lengte = teller
teller = 1
do while (teller < lengte)
say A.teller
output = output A.teller
teller = teller + 1
end
say "is" max "van" output
end
else
say "De reeks werd onmiddellijk afgebroken met een negatief getal"
</pre>
 
Regel 202 ⟶ 167:
T = T + 1
end
</pre>
 
==Combinatie==
<pre>
/* combinatie.rex */
cls
max = 0
teller = 1
output = ""
say "Geef eerste getal (stoppen kan met een negatief getal)"
pull getal
if (getal >= 0)
then
do
do while (getal >= 0)
if (getal > max)
then max = getal
A.teller = getal
say "Geef nog een getal (stoppen kan met een negatief getal)"
pull getal
teller = teller + 1
end
say "maximum van de reeks"
lengte = teller
teller = 1
do while (teller < lengte)
say A.teller
output = output A.teller
teller = teller + 1
end
say "is" max "van" output
end
else
say "De reeks werd onmiddellijk afgebroken met een negatief getal"
</pre>
Informatie afkomstig van https://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.