Différences

Ci-dessous, les différences entre deux révisions de la page.

--- documentation:examples:sommevecvec.f90 [2013/02/06 15:45] – créée ltaulell
+++ documentation:examples:sommevecvec.f90 [2013/02/06 16:36] (Version actuelle) – effacée ltaulell
@@ Ligne 1: / Ligne 1: @@
-<code fortran SommeVecVec.f90>
-program Somme
-implicit none
-integer :: A(10),B(10),C(10)
-integer :: i
-do i=1,10
-  A(i) = i
-  B(i) = 10 - i
-enddo
-write ( *, * ) 'Les deux vecteurs :'
-write (*,*) 'A = ',(A(i),i=1,10)
-write (*,*) 'B = ',(B(i),i=1,10)
-do i=1,10
-  C(i) = A(i) + B(i)
-enddo
-write ( *, * ) 'Le vecteur somme :'
-write (*,*) 'C = ',(C(i),i=1,10)
-end program
-</code>

documentation/examples/sommevecvec.f90.1360165548.txt.gz · Dernière modification : 2020/08/25 15:58 (modification externe)

Rechercher

Translations

Piste :

Navigation