انجام برنامه نویسی نمونه کد فرترن تجزیه یک عدد به اعداد اول

کد فرترن تجزیه ی یک عدد به اعداد اول

 

 

 

PROGRAM tajziye

 

 

 

1. IMPLICIT NONE

 

 

 

 

 

2. INTEGER::i,n,a

 

 

 

 

 

3. READ*,n

 

 

 

 

 

4. a=n+1

 

 

 

 

 

5. i=2

 

 

 

 

 

6. DO

 

 

 

 

 

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

 

 

 

 

 

8. PRINT*,i

 

 

 

 

 

9. n=n/i

 

 

 

 

 

10. ELSE

 

 

 

 

 

11. i=i+1

 

 

 

 

 

12. IF (i==a) THEN

 

 

 

 

 

13. EXIT

 

 

 

 

 

14. END IF

 

 

 

 

 

15. END IF

 

 

 

 

 

16. END DO

 

 

 

 

 

17. END PROGRAM