2.452
bewerkingen
Programmeren in COBOL/Velden/Groepsvelden en conditie met voorwaardenaam: verschil tussen versies
Programmeren in COBOL/Velden/Groepsvelden en conditie met voorwaardenaam (bewerken)
Versie van 15 jun 2007 13:06
, 15 jaar geledengeen bewerkingssamenvatting
kGeen bewerkingssamenvatting |
kGeen bewerkingssamenvatting |
||
|
</pre>
Als je dan ''naam'' inleest zal de voornaam worden opgeslagen in de ''filler''. Maar omdat je die toch niet nodig hebt geef je de ''filler'' geen naam. De gegevens gaan wel echter niet verloren, als je het groepsveld ''naam'' toont krijg je nogsteeds de voornaam te zien. Het is gewoon een simple truc om minder variabelnamen te hebben bij grote programmas.
==Conditie met voorwaardenaam==
Conditie met voorwaardenaam is een manier om een bepaalde variabel te activeren als er voldaan is aan een bepaalde voorwaarde.
===De simpele manier===
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. conditiemetvoorwaarden.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 getal pic 9.
88 even value 0, 2, 4, 6, 8.
88 oneven value 1, 3, 5, 7, 9.
PROCEDURE DIVISION.
HOOFD.
DISPLAY "geef een getal:"
ACCEPT getal NO BEEP
IF even
THEN DISPLAY "getal is even."
END-IF
IF oneven
THEN DISPLAY "getal is oneven."
END-IF
STOP RUN.
</pre>
De variabele ''getal'' is onderverdeeld in 2 andere variabelen ''even'' en ''oneven''. Als het getal dat wordt gelezen en opgeslagen wordt in de variabele ''getal'' even is wordt de variabele ''even'' geactiveerd. En met oneven wordt de variabele ''oneven'' geactiveerd.
===Gebruik van thru of through===
Als veel opvolgende cijfers als voorwaarde gelden kun je thru gebruiken.
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. conditiemetvoorwaarden.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 getal pic 99.
88 nietgeslaagd value 0 thru 49.
88 geslaagd value 50 thru 99.
PROCEDURE DIVISION.
HOOFD.
DISPLAY "Geef het resultaat:"
ACCEPT getal NO BEEP
IF nietgeslaagd
THEN DISPLAY "U bent nietgeslaagd."
END-IF
IF geslaagd
THEN DISPLAY "U bent geslaagd."
END-IF
STOP RUN.
</pre>
Dit programma kijkt of een leerling gebuist of geslaagd is. Wanneer het getal lager dan 50 is zal de variabele ''niet geslaagd'' geactiveerd worden. Als het 50 of hoger is zal de variabele ''geslaagd'' geactiveerd worden. Naast ''thru'' kunt je ook ''through'' gebruiken.
| |||