Programmeren in COBOL/Inleiding/Oefeningen: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
Pagina aangemaakt: "{{Programmeren in COBOL}} Dit zijn oefeningen voor het hoofdstuk inleiding. De opgaven zijn opgedeeld in theorie en praktijk. De opgaven kome..." |
k +opgave |
||
Regel 5:
*Geef de vier devisies.
*Hoe toon je iets op het scherm?
*Hoe schrijf je commentaar en op welke positie begin je te schrijven?
*Waar declareer je een veld?
*Hoe lees je iets in?
Regel 11 ⟶ 12:
====Opgave 1: Tekst op het scherm tonen====
Toon de tekst "Dit is een test voor opgave 1" op het scherm.
====Opgave
De gebruiker wordt gevraagd een getal te geven. Dat getal kan maximaal 2 tekens lang zijn. Wanneer dat getal gegeven is komt de tekst "Dit is uw getal: " op het scherm met daarachter het getal.
====Opgave 3: Tekst in lezen en tonen op het scherm====
Lees 2 verschillende namen in beide 20 tekens lang. Toon die vervolgens dan op het scherm naast elkaar met daartussen het woord "en".
====Opgave 4: Negatieve en decimale getallen====
Lees een negatief en decimaal getal in en toon ze vervolgens op het scherm.
==Oplossingen==
===Theorie===
Regel 19 ⟶ 24:
*Hoe toon je iets op het scherm?
:: Met ''DISPLAY'' gevolgd door een veld en/of tekst tussen aanhalingstekens("").
*Hoe schrijf je commentaar en op welke positie begin je te schrijven?
::Je typt eerst een asterisk(*) en je begint op de 7de positie
*Waar declareer je een veld?
::Bij de ''WORKING-STORAGE SECTION'' in de ''DATA DIVISION''.
Regel 29 ⟶ 36:
{{Code|
| Taal=COBOL
| Titel=
| Code=
<pre>
Regel 44 ⟶ 51:
{{Code|
| Taal=COBOL
| Titel=
| Code=
<pre>
Regel 52 ⟶ 59:
DATA DIVISION.
WORKING-STORAGE SECTION.
77 getal PIC 99.
PROCEDURE DIVISION.
Regel 63 ⟶ 70:
</pre>
}}
====Opgave 3: Tekst in lezen en tonen op het scherm====
{{Code|
| Taal=COBOL
| Titel=Opgave 3
| Code=
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave3.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 naam1 PIC x(20).
77 naam2 PIC x(20).
PROCEDURE DIVISION.
hoofd.
DISPLAY "Geef de eerste naam:"
ACCEPT naam1 NO BEEP
DISPLAY "Geef de tweede naam:"
ACCEPT naam2 NO BEEP
DISPLAY naam1 " en " naam2
STOP RUN
.
</pre>
}}
====Opgave 4: Negatieve en decimale getallen====
{{Code|
| Taal=COBOL
| Titel=Opgave 3
| Code=
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave3.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 getal1in PIC S999.
77 getal2in PIC 99V9.
77 getal1uit PIC -999.
77 getal2uit PIC 99.9.
PROCEDURE DIVISION.
hoofd.
DISPLAY "Geef een negatief getal:"
ACCEPT getal1in NO BEEP
DISPLAY "Geef een decimaal getal:"
ACCEPT getal2in NO BEEP
MOVE getal1in To getal1uit
MOVE getal2in To getal2uit
DISPLAY "Hier is uw negatief getal: " getal1uit
DISPLAY "Hier is uw negatief getal: " getal1uit
STOP RUN
.
</pre>
}}
Lees een negatief en decimaal getal in en toon ze vervolgens op het scherm.
[[Categorie:Programmeren in COBOL|Oefeningen: inleiding]]
| |||