Programmeren in COBOL/Sequentiële bestanden/Oefeningen: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
kGeen bewerkingssamenvatting |
|||
Regel 83:
}}
====Opgave 2: een sequentiële bestand lezen====
====Opgave 3: een sequentiële bestand lezen en schrijven====▼
{{code
|Taal = COBOL
|Titel = Opgave
|Code =
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave2.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT invoer ASSIGN TO "getallen.txt"
LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD invoer.
01 regelin.
02 PIC x(5).
02 getal PIC 99.
WORKING-STORAGE SECTION.
77 PIC X.
88 eof VALUE "J".
77 teller PIC 999.
77 som PIC 999.
77 uitkomst PIC 999.
PROCEDURE DIVISION.
HOOFD.
OPEN INPUT invoer
READ invoer AT END SET eof TO TRUE END-READ
PERFORM UNTIL eof
ADD getal TO som
ADD 1 TO teller
READ invoer AT END SET eof TO TRUE END-READ
END-PERFORM
DIVIDE som BY teller GIVING uitkomst
DISPLAY "Het gemiddelde bedraagt: " uitkomst
CLOSE invoer
STOP RUN.
</pre>
}}
Normaal moet je dan als uitkomst 17 krijgen.
▲====Opgave 3: een sequentiële bestand lezen en schrijven====
{{code
|Taal = COBOL
|Titel = Opgave 3
|Code =
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave3.
ENVIRONMENT DIVISION.
| |||