fortran77, 90

lamia3

lamia3

New Member
السلام عليكم ورحمة الله وبركاته
هل اجد احد يفهم برنامج الفورتران 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 في البرنامج ان امكنك اخي اكتبه لي وجزاك الله خيرا
 
وعليكم السلام ورحمة الله وبركاته

الروابط التالية لكتاب (الرابط الأول) ومحاضرات تفصيلية حول هذا الموضوع
[hide][/hide]​
[hide]
كود: 
http://micro.ustc.edu.cn/Fortran/Fortran%2090%20Handbook.pdf

http://www.cs.mtu.edu/~shene/COURSES/cs201/NOTES/fortran.html

http://www.owlnet.rice.edu/~ceng303/manuals/fortran/

http://www.fortran90.org/

http://www.lahey.com/other.htm
[/hide]
 
​
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



​

​


​
 
التعديل الأخير:
messi85 قال:
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



بارك الله فيك

​

​


​
أنقر للتوسيع...
 
mann1 قال:
وعليكم السلام ورحمة الله وبركاته

الروابط التالية لكتاب (الرابط الأول) ومحاضرات تفصيلية حول هذا الموضوع
[hide][/hide]​
[hide]
كود: 
http://micro.ustc.edu.cn/Fortran/Fortran%2090%20Handbook.pdf

http://www.cs.mtu.edu/~shene/COURSES/cs201/NOTES/fortran.html

http://www.owlnet.rice.edu/~ceng303/manuals/fortran/

http://www.fortran90.org/

http://www.lahey.com/other.htm
[/hide]
أنقر للتوسيع...



بارك الله فيك
 
  • Like
التفاعلات: mann1
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى