Programmeren in COBOL/Inleiding/Oefeningen

Dit zijn oefeningen voor het hoofdstuk inleiding. De opgaven zijn opgedeeld in theorie en praktijk. De opgaven komen als eerst en vanonder zijn de oplossingen. Let wel dat er meerdere mogelijke oplossingen zijn voor een opgave, zeker naarmate het moeilijker wordt.

Opgaven

Theorie

Geef de vier divisies.
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?
Hoe verplaats je inhoud van één veld naar een ander veld?

Praktijk

Opgave 1: Tekst op het scherm tonen

Toon de tekst "Dit is een test voor opgave 1" op het scherm.

Opgave 2: Een getal inlezen en daarna tonen op het scherm

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

Geef de vier divisies.

IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION en PROCEDURE DIVISION.

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.

Hoe lees je iets in?

Met ACCEPT gevolgd door een veld. Als er een ACCEPT wordt gedaan maakt de computer een geluid om dit te vermijden kun je NO BEEP achteraan toevoegen.

Hoe verplaats je inhoud van één veld naar een ander veld?

Via MOVE.

Praktijk

Opgave 1: Tekst op het scherm tonen

COBOL-code: Opgave 1

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Opgave1.
       PROCEDURE DIVISION.
       hoofd.
           DISPLAY "Dit is een test voor opgave 1"
           STOP RUN
           .

Opgave 2: Een getal inlezen en daarna tonen op het scherm

COBOL-code: Opgave 2

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Opgave2.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  getal PIC 99.

       PROCEDURE DIVISION.
       hoofd.
           DISPLAY "Geef een getal:"
           ACCEPT getal NO BEEP
           DISPLAY "Dit is uw getal: " getal
           STOP RUN
           .

Opgave 3: Tekst in lezen en tonen op het scherm

COBOL-code: Opgave 3

       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
           .

Opgave 4: Negatieve en decimale getallen

COBOL-code: Opgave 4

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Opgave4.

       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 decimaal getal: " getal2uit
           STOP RUN
           .

Lees een negatief en decimaal getal in en toon ze vervolgens op het scherm.