Programmeren in COBOL/Sequentiële bestanden/Oefeningen: verschil tussen versies
Pagina aangemaakt: "{{Programmeren in COBOL}} Dit zijn oefeningen voor het hoofdstuk sequentiële bestanden. De opgaven zijn opgedeeld in theorie en..." |
(geen verschil)
|
Versie van 21 okt 2007 17:14
Dit zijn oefeningen voor het hoofdstuk sequentiële bestanden. 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
Praktijk
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.
Oplossingen
Theorie
Praktijk
Opgave 1: een sequentiële bestand schrijven
COBOL-code: Sequentieel bestand
IDENTIFICATION DIVISION.
PROGRAM-ID. Opgave1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT uitvoer ASSIGN to "uitvoer.txt"
LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD uitvoer.
01 regel.
02 voornaam PIC X(15).
02 PIC X.
02 achternaam PIC X(20).
02 PIC X.
02 adres PIC X(20).
02 PIC X.
02 gemeente PIC X(10).
WORKING-STORAGE SECTION.
77 invoer PIC 9.
PROCEDURE DIVISION.
HOOFD.
OPEN OUTPUT uitvoer
PERFORM UNTIL invoer = 0
DISPLAY "Geef de voornaam:"
ACCEPT voornaam NO BEEP
DISPLAY "Geef de achternaam:"
ACCEPT achternaam NO BEEP
DISPLAY "Geef het adres:"
ACCEPT adres NO BEEP
DISPLAY "Geef de gemeente:"
ACCEPT gemeente NO BEEP
WRITE regel END-WRITE
DISPLAY "Wilt u nog een gebruiker toevoegen(0=stoppen)?"
ACCEPT invoer NO BEEP
END-PERFORM
CLOSE uitvoer
STOP RUN.