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 12:13
, 16 jaar geledengeen bewerkingssamenvatting
kGeen bewerkingssamenvatting |
kGeen bewerkingssamenvatting |
||
Regel 130:
</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.
===Een boolean===
Je kan dankzij conditie met voorwaardenaam dus ook een boolean maken. Hier is een simpel voorbeeld hoe het moet.
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. conditiemetvoorwaarden.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 boolean pic x.
88 ok value "j", "J".
PROCEDURE DIVISION.
HOOFD.
DISPLAY "Is het OK?(j/n)"
ACCEPT boolean NO BEEP
IF ok
THEN DISPLAY "Het is ok"
ELSE DISPLAY "Het is niet ok"
END-IF
STOP RUN.
</pre>
De gebruiker wordt gevraagd of het ok is. Antwoordt hij met een "j" dan wordt de variabel ok geactiveerd, wanneer hij met iets anders antwoordt gebeurt er niets.
| |||