Fortran aide Fermé

Question

Bonjour,
j'ai besoin que quelqu'un me donne un coup de main. J'ai un programme a faire sur fortran pour dans 48 heures et je ne m'en sors pas du tout. Si quelqu'un est interesssé pour le faire il sera rémunéré pour le temps que ca lui prendra, comme un cours particulier.

Vous pouvez me contacter sur: cherifalamimehdi@hotmail.com
Je vous enverrai les instructions par mail et vous me renvoyez le programme. Ca ne devrait pas vous prendre plus qu'une heure si vous maitrisez le language.

Merci. Contactez moi le plus vite possible.

Pascal · Answer

Bonjour, 

Le but des exercice c'est que tu apprenne quelque chose. Cours et tutoriels Fortran : https://fortran.developpez.com/

mah bra · Answer

c ******************resolution du system par gauss-siedle *****
      do 50 kt=1,itmax
        do 30 i=2,nx-1
          smemb=ti(i-1)+fn*ti(i)+ti(i+1)

          t(i)=(t(i-1)+t(i+1)+smemb)/f  
  30   continue
cccccccccccccccccc test de convergence cccccccccc48cccccccc 
        st=0.0
        do 40 i=2,nx-1
          st=st+t(i)
 40   continue
       sto=st
       ecat=dabs(1.-sto/st)
       if(ecat.lt.eps)go to 60
  50  continue
ccccccc reinitialisation ccccccccccccccccccc60 
  60  print*,itemp,kt,ecat
      do 70 i=2,nx-1
        ti=t(i)
  70  continue
ccccccccccccccccccccccccccccccccccccccccccc
  100  continue       
       do 150 i=1,nx
         write(1,*)x(i),t(i)
  150 continue
      print machine_data[i] - C syntax
      stop
      end

Fortran aide

2 réponses

Discussions similaires