<- Polymorphisme   Les arbres ->

Suite de Fibonacci

Sommaire du document

Description du code

Code source ou contenu du fichier


Code cobol (Suite de Fibonacci) (50 lignes) :
  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 extraites de codes en cobol

Suite de Fibonacci
Tous les extraits

 

<- Polymorphisme   Les arbres ->

Réseaux sociaux

|Plus d'options...

Vous pouvez modifier vos préférences dans votre profil pour ne plus afficher les interactions avec les réseaux sociaux sur ces pages.

 

Nuage de mots clés

9 mots clés dont 5 définis manuellement (plus d'information...).

code code source codes source extraits de codes Gaudry Signaler une erreur sniplet source Stéphane Gaudry

Vous pouvez modifier vos préférences dans votre profil pour ne plus afficher le nuage de mots clés.

 

Structure du document

Astuce pour imprimer les couleurs des cellules de tableaux : http://www.gaudry.be/ast-rf-450.html
Aucun commentaire pour cette page

© Ce document issu de l′infobrol est enregistré sous le certificat Cyber PrInterDeposit Digital Numbertection. Enregistrement IDDN n° 5329-308
Document créé le 05/10/09 01:03, dernière modification le Vendredi 17 Juin 2011, 12:12
Source du document imprimé : http://www.gaudry.be/sniplet.html Document affiché 37 fois ce mois de Juin.
St.Gaudry©07.01.02
Outils (masquer)
||
Recherche (afficher)
Recherche :

Utilisateur (masquer)
Navigation (masquer)
Apparence (afficher)
Stats (afficher)
15832 documents
452 astuces.
549 niouzes.
3099 definitions.
447 membres.
8115 messages.

Document genere en :
0,43 seconde

Mises à jour :
Mises à jour du site
Citation (masquer)
L'art de plaire est l'art de tromper.

Vauvenargues [Extrait de Réflexions et maximes]
 
l'infobrol
Nous sommes le Dimanche 03 Juin 2012, 11:39, toutes les heures sont au format GMT+1.00 Heure, heure d'été (+1)