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