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.
OpgavenBewerken
TheorieBewerken
- Waarmee moet je een deelprogramma oproepen.
PraktijkBewerken
Opgave 1: Oppervlakte van een vierkant.Bewerken
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.
OplossingenBewerken
TheorieBewerken
- PERFORM
PraktijkBewerken
Opgave 1: Oppervlakte van een vierkant.Bewerken
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.