un program qui permet de calculer les integrales par la methode de trapez
صفحة 1 من اصل 1
un program qui permet de calculer les integrales par la methode de trapez
من طرف ILYAS الإثنين يوليو 04, 2011 12:22 am
! un program qui permet de calculer les integrales par la methode de trapez
program methode trapez
implicit none
!------------------------partie declaration--------------------------------
integer:: i,n
real:: a,b,h,somme,f,aire,hp
parameter(n=1000)
!------------------------partie saisie-------------------------------------
write(*,*)'donner les bornes de l_integrale a et b'
read(*,*)a,b
!------------------------partie tgraitement--------------------------------
h=(b-a)/n
somme=0.0
do i=1,n-1
hp=a+i*h
somme=somme+f(hp)
enddo
aire=(h/2)*(f(a)+f(b))+(h*somme)
!------------------------partie affichage-----------------------------------
write(*,*)'l_integrale par méthode de trapez est',aire
end
!------------------------bloc fonctionnel-----------------------------------
function f(x) result(f1)
implicit none
real x,f1
f1=2*x
end
program methode trapez
implicit none
!------------------------partie declaration--------------------------------
integer:: i,n
real:: a,b,h,somme,f,aire,hp
parameter(n=1000)
!------------------------partie saisie-------------------------------------
write(*,*)'donner les bornes de l_integrale a et b'
read(*,*)a,b
!------------------------partie tgraitement--------------------------------
h=(b-a)/n
somme=0.0
do i=1,n-1
hp=a+i*h
somme=somme+f(hp)
enddo
aire=(h/2)*(f(a)+f(b))+(h*somme)
!------------------------partie affichage-----------------------------------
write(*,*)'l_integrale par méthode de trapez est',aire
end
!------------------------bloc fonctionnel-----------------------------------
function f(x) result(f1)
implicit none
real x,f1
f1=2*x
end
ILYAS- مدير المنتدى
- الاوسمة :
عدد المساهمات : 406
نقاط : 1190
تاريخ التسجيل : 22/10/2010
الموقع : https://physicsgeneration.superforum.fr -
مواضيع مماثلة» un program qui permet de calculer integral par methode de simpson
» methode de resolution d'equations différentielles par methode de MEEM
» un programmz qui permet de tester si 10 nombres sont parfaits
» ! Programmation par Fortron 90 :un programme qui permet de tester si un nombre est parfait
» program calcul integral par choix entre simpson ou trapez
» methode de resolution d'equations différentielles par methode de MEEM
» un programmz qui permet de tester si 10 nombres sont parfaits
» ! Programmation par Fortron 90 :un programme qui permet de tester si un nombre est parfait
» program calcul integral par choix entre simpson ou trapez
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى