برنامه نویسی فرترن نمونه کد فرترن تشخیص عدد کامل

کد فرترن برنامه ای که تعداد دلخواه عدد رو میگیره و اونا رو به ترتیب نزولی(از بزرگ به کوچک) مرتب میکنه

 

 

 

عدد کامل عددیه که مجموع مقسوم علیه های غیر از خوش برابر خود عدد بشه.مثل عدد 6 که مجموع 1 و2 و3 که مقسوم عیه های غیر خودش هستن میشه 6.

 

 

 

 

 

 

 

 

 

PROGRAM kamel

 

1. IMPLICIT NONE

 

2. INTEGER::n,s,i

 

3. READ*,n

 

4. s=0

 

5. DO  i=1,(n/2)+1

 

6. IF (MOD(n,i)==0) THEN

 

7. s=s+i

 

8. END IF

 

9. END DO

 

10. IF (s==n) THEN

 

11. PRINT*,"yes"

 

12. ELSE

 

13. PRINT*,"no"

 

14. END IF

 

15. END PROGRAM