Bonjour,

J'ai écrit un code pour programmer la suite de Fibonacci. Ca marche bien mais à l'exécution je trouve :
v0= 1.
v1= 1.
vn 2
vn 3
vn 5
vn 8
vn 13
vn 21
vn 34
vn 55
vn 89
vn 144
vn 233
vn 377
vn 610
vn 987
vn 1597
par exemple,

et moi je veux la forme suivante :
v0= 1.
v1= 1.
v2 2
v3 3
v4 5
v5 8
v6 13
par exemple,

alors où est-ce que je dois modifier mon code ?

Voilà mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
      program fibonnaci
      integer n,i,vn
      print*,'donner n'
      read*,n
      if(n.LT.3)then
         print*,'error'
      else
         v0=1
         v1=1
         print*,'v0=',v0
         print*,'v1=',v1
         do  i=3,n
           vn=v0+v1
           v0=v1
           v1=vn
           print*,'vn',vn
         enddo
       endif
       end