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
bewerkenTheorie
bewerken- Waarmee moet je een deelprogramma oproepen.
Praktijk
bewerkenOpgave 1: Oppervlakte van een vierkant.
bewerkenDit 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
bewerkenTheorie
bewerken- PERFORM
Praktijk
bewerkenOpgave 1: Oppervlakte van een vierkant.
bewerkenCOBOL-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.