Programmeren in COBOL/Sequentiële bestanden/Oefeningen: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
k +cat |
Geen bewerkingssamenvatting |
||
Regel 6:
====Opgave 1: een sequentiële bestand schrijven====
Maak een programma waarbij de gebruiker de gegevens van een persoon moet ingeven. De voor-, achternaam, het adres en de gemeente moeten apart opgeven worden en vervolgens weggeschreven in een .txt bestand. Het inlezen en wegschrijven moet gebeuren in een lus. Telkens wanneer er een persoon is weggeschreven wordt de gebruiker gevraagd of hij nog een persoon wilt toevoegen. Als hij 0 ingeeft betekent dat neen als hij iets anders ingeeft betekent dat ja.
====Opgave 2: een sequentiële bestand lezen en schrijven====
Lees het volgende .txt bestand in die namen van wiki's bevat en laat de gebruiker een omschrijvingen geven per wiki. De namen en omschrijvingen moeten vervolgens weggeschreven worden in een ander bestand.
<pre>
Wikipedia
Wiktionary
Wikimedia
Wikiquote
Wikibooks
Wikinews
Wikisource
Wikispecies
Commons
</pre>
==Oplossingen==
===Theorie===
Regel 12 ⟶ 25:
{{code
|Taal = COBOL
|Titel =
|Code =
<pre>
Regel 56 ⟶ 69:
END-PERFORM
CLOSE uitvoer
STOP RUN.
</pre>
}}
====Opgave 2: een sequentiële bestand lezen en schrijven====
{{code
|Taal = COBOL
|Titel = Opgave 1
|Code =
<pre>
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave2.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT invoer ASSIGN TO "invoer.txt"
LINE SEQUENTIAL.
SELECT uitvoer ASSIGN TO "uitvoer.txt"
LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD invoer.
01 regelin.
02 naamin PIC X(11).
FD uitvoer.
01 regeluit.
02 naamuit PIC X(11).
02 PIC X.
02 omschrijving PIC X(50).
WORKING-STORAGE SECTION.
77 PIC X.
88 eof VALUE "J".
PROCEDURE DIVISION.
HOOFD.
OPEN INPUT invoer OUTPUT uitvoer
PERFORM UNTIL eof
READ invoer AT END SET eof TO TRUE END-READ
IF eof
THEN DISPLAY "Programma afgelopen"
ELSE
DISPLAY "Dit is de naam van de wiki: " naamin
DISPLAY "Geef een omschrijving:"
ACCEPT omschrijving NO BEEP
MOVE naamin TO naamuit
WRITE regeluit END-WRITE
END-IF
END-PERFORM
CLOSE invoer uitvoer
STOP RUN.
</pre>
| |||