Programmeren in COBOL/Velden/Groepsvelden en conditie met voorwaardenaam: verschil tussen versies

k
geen bewerkingssamenvatting
kGeen bewerkingssamenvatting
kGeen bewerkingssamenvatting
</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.
2.452

bewerkingen

Informatie afkomstig van https://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.