السلام عليكم ورحمة الله وبركاته.أهلا وسهلا بك زائرنا الكريم،
منتديات فيزياء لكل الأجيال ترحب بكم عند تسجيلكم المرجوا منكم التوجه الى ايمايلكم لتفعيل حسابكم بالضغط على الرابط الموجود بالرسالة التي سيتم ارسالها اليكم من المنتدى إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.

! 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

مُساهمة من طرف ILYAS في الأحد أبريل 03, 2011 1:41 pm

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



ILYAS
مدير المنتدى
مدير المنتدى

الاوسمة :
عدد المساهمات : 406
نقاط : 1190
تاريخ التسجيل : 22/10/2010
الموقع : http://physicsgeneration.superforum.fr

http://physicsgeneration.superforum.fr

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى