المصدر: fortran77, 90 في منتدى : قسم البرامج وقواعد البيانات والفيديوهات الهندسية السلام عليكم ورحمة الله وبركاته هل اجد احد يفهم برنامج الفورتران 90 fortran 90 ou fortran77
اريد مساعدة .......program08.... use donnees implicit none real::d,x1,x2 integer::nb call abc (a,b,c) call selection(nb) if(d<0.)then print*,'pas de solutions reeles' else x1=(-b-sqrt(d))/(2.*a) x2=(-b+sqrt(d))/(2.*a) end if pause stop contains subroutine selection(nb) implicit none integer,intent(out)::nb print*,"calcul de determinant par:" print*,"1-une procedure interne" print*,"2-une procedure exeterne" print*,"3-une fonction interne" print*,"4-une fonction externe" read(*,*)nb select case(nb) case(1) call detint(a,b,c,d) case(2) call detext(a,b,c) case (3) d=fdetint(a,b,c) case default d=fdetext(a,b,c) end select end subroutine subroutine detint(a1,b1,c1,d1) real,intent(in)::a1,b1,c1 real,intent(out)::d1 d1=b1**2.-4.*a1*c1 return end subroutine detint real function fdetint(a1,b1,c1) implicit none real,intent(in)::a1,b1,c1 fdetint=b1**2.-4.*a1*c1 return end function fdetint end program program08 ......donneesmf90........ use nom_de_module,only:var1,var2,sous-programme1 implicit none real::a,b,c contains subroutine abc(a,b,c) implicit none real, intent(out)::a,b,c 100 print*,"donner a,b,c:" read(*,*,err=105)a,b,c return 105 print*,'erreur a la lecteur';goto 100 end subroutine end module donnees ............................................................................... كيف يمكنني كتابتهما مع بعض اي مشروع (برنامج)واحد وكيف يمكنني كتابة برناج رئيسي ودالة مكررة لحساب دالة تعاملي 1° réécrire le programme principal (progm08)et(donn ) dans un seul projet on demande d'écrire les procédures externes : (fdetint)et(fdetext) dans des fichiers séparé ..,on demande décrire un program pricipal et une fonction récursive pour caculer la fonction factorielle (fact10) وشكرا جزيييييييييييييييييلا مسبقا
لكتابت البرنامج الفرعى module والرئيسي في مشروع برنامج واحد: -ياتي البرنامج الفرعي module اولا ثم يليه مباشرةا البرنامج الرئيسي وفقط. good luck
شكراااااااااااااااااااااااا وجزاك الله خيرا ولكن كيف يمكنني كتابة دلة تعاملي fonction factoriel في البرنامج ان امكنك اخي اكتبه لي وجزاك الله خيرا
وعليكم السلام ورحمة الله وبركاته الروابط التالية لكتاب (الرابط الأول) ومحاضرات تفصيلية حول هذا الموضوع هذا المحتوى يظهر للاعضاء المسجلين فقط: هذا المحتوى يظهر للاعضاء المسجلين فقط: هذا المحتوى يظهر للاعضاء المسجلين فقط: هذا المحتوى يظهر للاعضاء المسجلين فقط:
program Goodluck integer :: p,i print*, "data p" read(*,*) p i=fact(p) print*, "resultat i" print*, i pause contains RECURSIVE FUNCTION fact(p) RESULT (u INTEGER, INTENT (IN) :: p INTEGER :: u if(p==0)then u=1 else u=n*fact(p-1 endif END FUNCTION fact end program Goodluck