! Programmation par Fortron 90 :un programme qui permet de tester si un nombre est parfait
صفحة 1 من اصل 1
! Programmation par Fortron 90 :un programme qui permet de tester si un nombre est parfait
Programmation par Fortron 90
! un programme qui permet de tester si un nombre est parfait
program nombre parfait
implicit none
integer::n,div,somme
real:: reste
c partie saisie
write(*,*)'donner la valeur de à tester n'
read(*,*)n
c parrtie traitement
div=1 ; somme=0
do while(n.gt.somme)
reste= mod (n,div)
if (reste.eq.0) then
somme=somme+div
end if
div=div+1
end do
c partie affichage
if (n.eq.somme) then
write(*,*)'n est un nombre parfait'
else
write (*,*)'n n-est pas un nombre parfait'
end if
end
! un programme qui permet de tester si un nombre est parfait
program nombre parfait
implicit none
integer::n,div,somme
real:: reste
c partie saisie
write(*,*)'donner la valeur de à tester n'
read(*,*)n
c parrtie traitement
div=1 ; somme=0
do while(n.gt.somme)
reste= mod (n,div)
if (reste.eq.0) then
somme=somme+div
end if
div=div+1
end do
c partie affichage
if (n.eq.somme) then
write(*,*)'n est un nombre parfait'
else
write (*,*)'n n-est pas un nombre parfait'
end if
end
مواضيع مماثلة
» un programmz qui permet de tester si 10 nombres sont parfaits
» un program qui permet de calculer integral par methode de simpson
» un program qui permet de calculer les integrales par la methode de trapez
» programme de exp(x) I
» programme de ln(x) amélioré
» un program qui permet de calculer integral par methode de simpson
» un program qui permet de calculer les integrales par la methode de trapez
» programme de exp(x) I
» programme de ln(x) amélioré
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى