< Programmeren in COBOL < Berekeningen
Inhoudsopgave |
Dit zijn oefeningen voor het hoofdstuk berekeningen. 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 5 woorden waarmee je in COBOL kunt rekenen.
- Hoe wordt een macht gedaan in COBOL?
- Hoe kun je een getal afronden?
Praktijk
Opgave 1: intrest
Vraag aan de gebruiker het geld dat wordt geleend en de rentevoet. Bereken dan de intrest via COMPUTE na 1 jaar.
Opgave 2: oppervlakte
Bereken via COMPUTE eerst de oppervlakte van een rechthoek, daarna dat van een een driehoek en daarna dat van een cirkel. Bij de recht- en driehoek wordt de basis en de hoogte gevraagd aan de gebruiker en bij de cirkel wordt de diameter gevraagd.
Opgave 3: zonder COMPUTE
Herhaal opgave 1 en 2 maar dan zonder COMPUTE.
Oplossingen
Theorie
- Geef de 5 woorden waarmee je in COBOL kunt rekenen.
- COMPUTE, ADD, SUBTRACT, MULTIPLY, DIVIDE
- Hoe wordt een macht gedaan in COBOL?
- **
- Hoe kun je een getal afronden?
- ROUNDED
Praktijk
Opgave 1: intrest
COBOL-code: intrest
IDENTIFICATION DIVISION. PROGRAM-ID. intrest. DATA DIVISION. WORKING-STORAGE SECTION. 77 bedrag PIC 9999V99. 77 rentevoet PIC 99v99. 77 intrest PIC 999v99. 77 intrestuit PIC 999.99. PROCEDURE DIVISION. hoofd. DISPLAY "Geef het bedrag waarop intrest berekend wordt." ACCEPT bedrag NO BEEP DISPLAY "Geef de rentevoet in percent." ACCEPT rentevoet NO BEEP COMPUTE intrest ROUNDED = bedrag * rentevoet / 100 MOVE intrest TO intrestuit DISPLAY "Dit is de intrest na 1 jaar: " intrestuit STOP RUN.
Opgave 2: oppervlakte
COBOL-code: oppervlakte
IDENTIFICATION DIVISION. PROGRAM-ID. intrest. DATA DIVISION. WORKING-STORAGE SECTION. 77 basis PIC 99. 77 hoogte PIC 99. 77 diamtr PIC 99. 77 pi PIC 9V99 VALUE 3.14. 77 uitkomst PIC 9999V99. 77 uitvoer PIC 9999.99. PROCEDURE DIVISION. hoofd. DISPLAY "Geef de hoogte van de rechthoek." ACCEPT hoogte NO BEEP DISPLAY "Geef de basis van de rechthoek." ACCEPT basis NO BEEP COMPUTE uitkomst = basis * hoogte MOVE uitkomst TO uitvoer DISPLAY "Dit is de oppervlakte: " uitvoer DISPLAY "Geef de hoogte van de driehoek." ACCEPT hoogte NO BEEP DISPLAY "Geef de basis van de driehoek." ACCEPT basis NO BEEP COMPUTE uitkomst = basis * hoogte / 2 MOVE uitkomst TO uitvoer DISPLAY "Dit is de oppervlakte: " uitvoer DISPLAY "Geef de diameter van de circkel." ACCEPT diamtr NO BEEP COMPUTE uitkomst = pi * (diamtr / 2) ** 2 MOVE uitkomst TO uitvoer DISPLAY "Dit is de oppervlakte: " uitvoer STOP RUN.
This article is issued from
Wikibooks.
The text is licensed under Creative
Commons - Attribution - Sharealike.
Additional terms may apply for the media files.