Programmeren in COBOL/Deelprogramma's/Oefeningen

Dit zijn oefeningen voor het hoofdstuk deelprogramma's. 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

• Waarmee moet je een deelprogramma oproepen.

Praktijk

Opgave 1: Oppervlakte van een vierkant.

Dit volgende programma berekent de oppervlakte van een driehoek. Verdeel het programma in deelprogramma's

COBOL-code:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. VierkantOpp.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  basis       PIC 99.
       77  hoogte      PIC 99.
       77  oppervlakte PIC 99999.

       PROCEDURE DIVISION.
       hoofd.
           DISPLAY "Geef de basis van het vierkant:"
           ACCEPT basis NO BEEP

           DISPLAY "Geef de hoogte van het vierkant:"
           ACCEPT hoogte NO BEEP


           MULITPLY basis BY hoogte GIVING oppervlakte ROUNDED
           END-MULTIPLY

           DISPLAY "De oppervlakte bedraagt: " oppervlakte
           STOP RUN.

Oplossingen

Theorie

• PERFORM

Praktijk

Opgave 1: Oppervlakte van een vierkant.

COBOL-code:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. VierkantOpp.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  basis       PIC 99.
       77  hoogte      PIC 99.
       77  oppervlakte PIC 99999.

       PROCEDURE DIVISION.
       hoofd.
           PERFORM lees
           PERFORM bereken
           PERFORM toon
           STOP RUN.

       lees.
           DISPLAY "Geef de basis van het vierkant:"
           ACCEPT basis NO BEEP

           DISPLAY "Geef de hoogte van het vierkant:"
           ACCEPT hoogte NO BEEP.

       bereken.
           MULITPLY basis BY hoogte GIVING oppervlakte ROUNDED
           END-MULTIPLY.

       toon.
           DISPLAY "De oppervlakte bedraagt: " oppervlakte.