Suite de Fibonacci

Table des matières

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

Document créé le 05/10/2009, dernière modification le 28/10/2018
Source du document imprimé : https://www.gaudry.be/sniplet-rf-cobol/fibonacci-iter.cob.html

L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.