Réalisation d'une somme

Résolu
yoni121 Messages postés 7 Date d'inscription lundi 17 octobre 2005 Statut Membre Dernière intervention 25 octobre 2005 - 19 oct. 2005 à 10:25
yoni121 Messages postés 7 Date d'inscription lundi 17 octobre 2005 Statut Membre Dernière intervention 25 octobre 2005 - 19 oct. 2005 à 10:46
Bonjour,

je code en fortran90



j'ai créé un vecteur A(k) avec k=1,6



tel que A(1)=1

A(2)=5

A(3)=2

A(4)=1

A(5)=2

A(6)=7



j'aimerais donc connaitre la somme de A

dans ce cas A=18



j'aimerais le généraliser pour k=1,n



Merci

2 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
19 oct. 2005 à 10:36
En VB6, çà donne ceci.

Pour le fortran, tu n'es pas vraiment sur le bon site









Public Function calculateSum(k() as Long) As Long

Dim lSum As Long

lSum=0

For l=LBound(k) To Ubound(k)

lSum = lSum + k(l)

Next l

calculateSum = lSum

End Function

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
yoni121 Messages postés 7 Date d'inscription lundi 17 octobre 2005 Statut Membre Dernière intervention 25 octobre 2005
19 oct. 2005 à 10:46
Merci beaucoup meme si c pas en frotran

je viens de comprendre le mecanisme
0
Rejoignez-nous