Wikibooks

Programmeren in COBOL/Bewerkingen/Deelprogramma's: verschil tussen versies

Interactief door geschiedenis bladeren
← Vorige wijzigingVolgende wijziging →
Verwijderde inhoud Toegevoegde inhoud
VisueelWikitekst
Sephiroth (overleg | bijdragen)
2.452 bewerkingen
kGeen bewerkingssamenvatting
Geen bewerkingssamenvatting
Regel 3:
==Gebruik van deelprogramma's==
Deelprogramma’s zijn deeltjes code die apart worden gezet en gebruikt worden door het hoofdprogramma. Dit wordt gedaan zodat de programmacode overzichtelijker wordt en stukjes code opnieuw kan worden gebruikt. Een deelprogramma voert slechts één taak uit. Daardoor is het belangrijk om een goede naam te geven aan het deelprogramma dat zegt, liefst in één woord, wat het doet.
 
==De simpele manier==
{{code
Regel 14 ⟶ 15:
DATA DIVISION.
WORKING-STORAGE SECTION.
77 naam picPIC xX(20).
 
PROCEDURE DIVISION.
HOOFDhoofd.
DISPLAY "wat is uw naam?"
ACCEPT naam
PERFORM toon
STOP RUN.
.
 
TOONtoon.
DISPLAY naam
.
</pre>
}}
 
Dit is een simpel voorbeeld van een deelprogramma. Een deelprogramma wordt opgeroepen d.m.v.door ''perform''middel van PERFORM, dus het zelfdehetzelfde als bij een lus. Na performPERFORM komt de naam van het deelprogramma in dit geval ''toon''. Een deelprogramma wordt na de ''stopSTOP run''RUN. van het hoofdprogramma geschreven. De naam van het deelprogramma wordt geschreven vanaf de 8ste positie, gevolgd door een punt. deDe code van het deelprogramma wordt, net zoals bij het hoofdprogramma, geschreven vanaf de 12de positie. Het is belangrijk om te onthouden dat na de code van het deelprogramma een punt komt ditdat geeft aanaangeeft dat er een einde is gekomen aan het deelprogramma. Na een deelprogramma kankunnen ookeventueel eennog andere worden geschreven en zoverder. Ook kan er van één deelprogramma worden verwezen naar een ander.
 
==Deelprogramma met times==
{{code
|Taal = COBOL
|Titel = Deelprogramma met timesTIMES
|Code =
<pre>
Regel 44 ⟶ 47:
 
PROCEDURE DIVISION.
HOOFDhoofd.
PERFORM tel 80 TIMES
STOP RUN.
 
TELtel.
COMPUTE getal = getal + 1
PERFORM toon
.
 
TOONtoon.
DISPLAY getal
.
</pre>
}}
 
ErZoals bij lussen, kan er ook gebruik gemaakt zoals bij lussen door middelworden van timesTIMES. hetPERFORM blijft grotendeels hetzelfde. Performwordt gevolgd door de naam van het deelprogramma hier(tel) isen dat... ''tel'' dan doorTIMES, het aantal keer dat je wilt dat het uitgevoerd wordt(dit kan ook een variabel zijn), daarna moet je ''times'' zettenworden. HierDit is ook een voorbeeld van een verwijzing vanuit een deelprogramma naar een ander.
==Deelprogramma met until==▼
 
▲==Deelprogramma met untilUNTIL==
{{code
|Taal = COBOL
|Titel = Deelprogramma met untilUNTIL
|Code =
<pre>
Regel 70 ⟶ 75:
DATA DIVISION.
WORKING-STORAGE SECTION.
77 getal picPIC 9(3).
 
PROCEDURE DIVISION.
HOOFDhoofd.
PERFORM tel UNTIL getal = 80
STOP RUN.
 
TELTtel.
COMPUTE getal = getal + 1
PERFORM toon
.
 
TOONtoon.
DISPLAY getal
.
</pre>
}}
 
Dit programma doet eigenlijk hetzelfde als het vorige maar hier wordt gebruik gemaakt van ''until''UNTIL. Dit is grotendeels hetzelfde. ''Perform'' gevolgd door de naam van het deelprogramma en dan gevolgd door ''until'' met de voorwaarde waaraan moet worden voldaan om te stoppen.
PERFORM wordt gevolgd door de naam van het deelprogramma en vervolgens UNTIL met de voorwaarde waaraan moet voldaan worden om te stoppen.
 
[[Categorie:Programmeren in COBOL|Deelprogramma's]]
Informatie afkomstig van https://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.