1. lamia3

    lamia3 New Member

    إنضم إلينا في:
    ‏فبراير 8, 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    2
    نقاط الجوائز:
    3
    الجنس:
    أنثى
    مكان الإقامة:
    الجزائر
  2. Abu_Omar

    Abu_Omar مشرف عام إداري

    إنضم إلينا في:
    ‏مايو 30, 2008
    المشاركات:
    1,909
    الإعجابات المتلقاة:
    2,227
    نقاط الجوائز:
    128
    الجنس:
    ذكر
    ماذا تريدين؟
     
  3. lamia3

    lamia3 New Member

    إنضم إلينا في:
    ‏فبراير 8, 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    2
    نقاط الجوائز:
    3
    الجنس:
    أنثى
    مكان الإقامة:
    الجزائر
    اريد مساعدة
    .......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)
    وشكرا جزيييييييييييييييييلا مسبقا
     
    أعجب بهذه المشاركة messi85
  4. messi85

    messi85 Member

    إنضم إلينا في:
    ‏سبتمبر 27, 2012
    المشاركات:
    94
    الإعجابات المتلقاة:
    9
    نقاط الجوائز:
    8
    الجنس:
    ذكر
    الوظيفة:
    مدرس مؤقت بالجامعة
    مكان الإقامة:
    الجزائر
    لكتابت البرنامج الفرعى module والرئيسي في مشروع برنامج واحد:
    -ياتي البرنامج الفرعي module اولا ثم يليه مباشرةا البرنامج الرئيسي وفقط.
    good luck
     
    أعجب بهذه المشاركة lamia3
  5. lamia3

    lamia3 New Member

    إنضم إلينا في:
    ‏فبراير 8, 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    2
    نقاط الجوائز:
    3
    الجنس:
    أنثى
    مكان الإقامة:
    الجزائر
    شكراااااااااااااااااااااااا وجزاك الله خيرا
    ولكن كيف يمكنني كتابة دلة تعاملي fonction factoriel في البرنامج ان امكنك اخي اكتبه لي وجزاك الله خيرا
     
  6. mann1

    mann1 رجل المواقف (مشرف سابق) إداري

    إنضم إلينا في:
    ‏يونيو 10, 2009
    المشاركات:
    17,562
    الإعجابات المتلقاة:
    18,803
    نقاط الجوائز:
    128
    الجنس:
    ذكر
    مكان الإقامة:
    مــــصـــر
    وعليكم السلام ورحمة الله وبركاته

    الروابط التالية لكتاب (الرابط الأول) ومحاضرات تفصيلية حول هذا الموضوع
    هذا المحتوى يظهر للاعضاء المسجلين فقط:
    هذا المحتوى يظهر للاعضاء المسجلين فقط:
    هذا المحتوى يظهر للاعضاء المسجلين فقط:
    هذا المحتوى يظهر للاعضاء المسجلين فقط:
     
    lamia3 ،so far و messi85 معجبون بهذا.
  7. messi85

    messi85 Member

    إنضم إلينا في:
    ‏سبتمبر 27, 2012
    المشاركات:
    94
    الإعجابات المتلقاة:
    9
    نقاط الجوائز:
    8
    الجنس:
    ذكر
    الوظيفة:
    مدرس مؤقت بالجامعة
    مكان الإقامة:
    الجزائر
    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






     
    آخر تعديل: ‏يناير 12, 2015
    mann1 و lamia3 معجبون بهذا.
  8. lamia3

    lamia3 New Member

    إنضم إلينا في:
    ‏فبراير 8, 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    2
    نقاط الجوائز:
    3
    الجنس:
    أنثى
    مكان الإقامة:
    الجزائر
     
  9. lamia3

    lamia3 New Member

    إنضم إلينا في:
    ‏فبراير 8, 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    2
    نقاط الجوائز:
    3
    الجنس:
    أنثى
    مكان الإقامة:
    الجزائر


    بارك الله فيك
     
    أعجب بهذه المشاركة mann1

مشاركة هذه الصفحة