Programmeren in COBOL/Berekeningen/Oefeningen: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
kGeen bewerkingssamenvatting |
kGeen bewerkingssamenvatting |
||
Regel 11:
====Opgave 2: oppervlakte====
Bereken via ''COMPUTE'' eerst de opvervlakte 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===
Regel 46 ⟶ 48:
MOVE intrest TO intrestuit
DISPLAY "Dit is de intrest na 1 jaar: " intrestuit
STOP RUN.
</pre>
}}
====Opgave 2: oppervlakte====
{{code
|Taal= COBOL
|Titel= oppervlakte
|Code=
<pre>
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.
</pre>
|