Suite de Fibonacci

Inhoudsopgave

Description du code

Code source ou contenu du fichier

  1. IDENTIFICATION DIVISION.
  2.   PROGRAM-ID. FIBONACCI.
  3.  
  4. ENVIRONMENT DIVISION.
  5. DATA DIVISION.
  6.  
  7.   WORKING-STORAGE SECTION.
  8.   77 N  PIC 9(18).
  9.   77 N1 PIC Z(18).
  10.   77 M  PIC 9(18) VALUE 1.
  11.   77 O  PIC 9(18).
  12.   77 I  PIC 9(4) VALUE 1.
  13.   77 Q  PIC X.
  14.  
  15. PROCEDURE DIVISION.
  16.   PARA-A.
  17.     DISPLAY ( 1 , 1 ) ERASE.
  18.     DISPLAY ( 2 , 1 ) "FIBONACCI NUMBERS FROM 1 TO 100 ARE:".
  19.     MOVE 0 TO N.
  20.     DISPLAY " ".
  21.     DISPLAY 0.
  22.     DISPLAY 1.
  23.     MOVE 0 TO O.
  24.  
  25.   PARA-B.
  26.     COMPUTE N = O + M.
  27.     MOVE N TO N1.
  28.     MOVE M TO O.
  29.     MOVE N TO M.
  30.     DISPLAY N1.
  31.     ADD 1 TO I.
  32.     IF I = 21
  33.       DISPLAY "PRESS TAB KEY TO VIEW NEXT PAGE."
  34.       ACCEPT Q.
  35.     IF I = 41
  36.       DISPLAY "PRESS TAB KEY TO VIEW NEXT PAGE."
  37.       ACCEPT Q.
  38.     IF I = 61
  39.       DISPLAY "PRESS TAB KEY TO VIEW NEXT PAGE."
  40.       ACCEPT Q.
  41.     IF I = 81
  42.       DISPLAY "PRESS TAB KEY TO VIEW NEXT PAGE."
  43.       ACCEPT Q
  44.     IF I = 99
  45.       GO TO STOP-PARA
  46.     ELSE
  47.       GO TO PARA-B.
  48.   STOP-PARA.
  49.   DISPLAY " ".
  50.   STOP RUN.

Autres extraits de codes en cobol

Nederlandse vertaling

U hebt gevraagd om deze site in het Nederlands te bezoeken. Voor nu wordt alleen de interface vertaald, maar nog niet alle inhoud.

Als je me wilt helpen met vertalingen, is je bijdrage welkom. Het enige dat u hoeft te doen, is u op de site registreren en mij een bericht sturen waarin u wordt gevraagd om u toe te voegen aan de groep vertalers, zodat u de gewenste pagina's kunt vertalen. Een link onderaan elke vertaalde pagina geeft aan dat u de vertaler bent en heeft een link naar uw profiel.

Bij voorbaat dank.

Document heeft de 05/10/2009 gemaakt, de laatste keer de 28/10/2018 gewijzigd
Bron van het afgedrukte document:https://www.gaudry.be/nl/sniplet-rf-cobol/fibonacci-iter.cob.html

De infobrol is een persoonlijke site waarvan de inhoud uitsluitend mijn verantwoordelijkheid is. De tekst is beschikbaar onder CreativeCommons-licentie (BY-NC-SA). Meer info op de gebruiksvoorwaarden en de auteur.