Programmeren in REXX/Voorbeeldprogramma's: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
→Letterlijke tekst: tekstweergave |
gesorteerd |
||
Regel 8:
parse pull tekst
end
</pre>▼
==Tekstweergave==▼
<pre>▼
/* titel.rex */▼
breedte=40▼
rand=4▼
symbool='*'▼
opvulling='�'▼
say "Geef weer te geven titel"▼
parse pull titel▼
if length(titel) > breedte-rand ▼
then▼
say "Uw titel is te lang en kan daarom niet weergegeven worden"▼
else do▼
say copies(symbool, breedte)▼
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 57 ⟶ 34:
else
say getal2 "is het grootste"
▲</pre>
▲==Tekstweergave==
▲<pre>
▲/* titel.rex */
▲breedte=40
▲rand=4
▲symbool='*'
▲opvulling='�'
▲say "Geef weer te geven titel"
▲parse pull titel
▲if length(titel) > breedte-rand
▲ then
▲ say "Uw titel is te lang en kan daarom niet weergegeven worden"
▲ else do
▲ say copies(symbool, breedte)
▲ 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>
==Waardeconversie==
<pre>
/* omzetting.rex */
say "Geef om te zetten waarde."
pull n
/* Indien 1 teken: omzetting ervan uitgaande dat het ASCII is */
if Length(n) = 1
then do
say '['n'] ASCII -> Decimaal = ' c2d(n)
say '['n'] ASCII -> Hexadecimaal = ' c2x(n)
end
/* Indien decimaal getal */
if datatype(n,'N')
then do
say '['n'] Decimaal -> ASCII = ' d2C(n)
say '['n'] Decimaal -> Hexadecimaal = ' d2x(n)
end
/* indien zestiendelig getal*/
if datatype(n,'X')
then do
say '['n'] Hexadecimaal -> ASCII = ' x2C(n)
say '['n'] Hexadecimaal -> Decimaal = ' x2d(n)
end
</pre>
|