Programmeren in REXX/Voorbeeldprogramma's: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
Verbeteringen aan priem.rex |
Verbeteringen tekst - navigatiesjabloon |
||
Regel 102:
return 3.14 * straal**2
</pre> }}
Een '''do until''' voert de lus altijd minstens éénmaal uit.
Een probleempje hier is dat de gebruiker absoluut verplicht is om 2 waarden in te geven, anders stopt het programma nooit, tenzij hij/zij weet dat je kan afbreken met een Ctrl-Break of Ctrl-C combinatie.
Regel 189:
say 'Er zijn' words(wrdn) 'verschillende woorden.'
say 'Daarvan komen volgende meermaals voor:'
do while wrdn<>
parse var wrdn woord wrdn
if w.woord>1 then say format(w.woord,3,0) 'x' woord
Regel 200:
parse upper arg lijn
if length(lijn)=0 then return
/* we
lijn=translate(lijn,"","!""'.,;:/\=+-()[]{}%$€#*"||"09"x)
do while lijn<>""
Regel 221:
exit arg(1)
</pre>}}
Bij het herlezen van dit programma ontdekken we nog een schoonheidsfoutje: in de ''verwerklijn'' routine schrijven we
if length(lijn)=0 then return
Dit is overkill, '''if lijn="" then return''' is meer dan voldoende. Het oproepen van een functie is altijd kostelijk.
==Berekenen van priemgetallen, volledige versie==
{{Code| | Taal= REXX | Titel= priemgetallen.rex | Code= <pre>
Regel 325 ⟶ 328:
exit arg(1)
</pre>}}
{{Sjabloon:Navigatie
|Boek =Programmeren in REXX
|vorige =Een beetje OORexx
|huidige =Voorbeeldprogramma's
|volgende=}}
{{sub}}
| |||