Programmeren in REXX/Voorbeeldprogramma's: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
→Koffievraag: Antwoordvalidatie |
herschikt |
||
Regel 80:
</pre>
==Subroutines==
<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>
|