Wikibooks

Programmeren in REXX/Voorbeeldprogramma's: verschil tussen versies

Interactief door geschiedenis bladeren
← Vorige wijzigingVolgende wijziging →
Verwijderde inhoud Toegevoegde inhoud
VisueelWikitekst
GuyDC (overleg | bijdragen)
304 bewerkingen
Aanpassingen
GuyDC (overleg | bijdragen)
304 bewerkingen
Eliminatie van minder nuttige voorbeelden
Regel 45:
{{Code| | Taal= REXX | Titel= koffievraag.rex | Code= <pre>
/* Koffievraag.rex */
do while \verify(koffie=,"J" | koffie="NJNS")
say "Wil je koffie ? (Ja/Nee of Stop)"
parse upper pull 1 koffie 2
select
when koffie="J" then say "OK, ik ga er een halen voor jou"
when koffie="N" then say "Nou, een andere keer dan"
otherwise nop
end
end
exit
</pre> }}
 
Regel 64 ⟶ 70:
 
area: procedure
parse arg straal .
return 3.14 * straal**2
</pre> }}
Regel 70 ⟶ 76:
==Tekstweergave==
{{Code| | Taal= REXX | Titel= titel.rex | Code= <pre>
/* Een kadertje met de titel.rex maken */
parse arg titel
breedte=40
parse value 60 4 '*',
rand=4
with breedte rand symbool .
symbool='*'
binnen=breedte-rand
opvulling='�'
say copies(symbool,breedte)
 
do while length(titel)>binnen
SAY "Geef weer te geven titel"
deel=left(titel,binnen)
PARSE PULL titel
blank=lastpos(' ',deel)
 
parse var titel deel =(blank) titel
IF LENGTH(titel) > breedte-rand
say symbool center(deel,binnen) symbool
THEN
end
SAY "Uw titel is te lang en kan daarom niet weergegeven worden"
say symbool center(titel,binnen) symbool
ELSE DO
say SAY COPIEScopies(symbool, breedte)
exit
SAY symbool COPIES(opvulling, breedte-rand) symbool
SAY symbool CENTER(titel, breedte-rand) symbool
SAY symbool COPIES(opvulling, breedte-rand) symbool
SAY COPIES(symbool, breedte)
END
</pre> }}
 
Regel 128 ⟶ 130:
end
exit
</pre> }}
 
==Sorteren van een rij==
Sorteer een reeks getallen van groot naar klein
{{Code| | Taal= REXX | Titel= sorteer.rex | Code= <pre>
/* sorteer.rex */
A.1 = 9
A.2 = 6
A.3 = 3
A.4 = 10
A.5 = 2
A.6 = 1
 
T1 = 6
DO WHILE (1<T1)
T2 = 1
DO WHILE (T2<T1)
IF (A.T1 > A.T2)
THEN
DO
temp = A.T1
A.T1 = A.T2
A.T2 = temp
END
T2 = T2 + 1
END
T1 = T1 - 1
END
 
T=1
DO WHILE (T <= 6)
SAY A.T
T = T + 1
END
</pre> }}
 
==Combinatie==
{{Code| | Taal= REXX | Titel= combinatie.rex | Code= <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.