انجام پروژه برنامه نویسی نمونه کد فرترن ب.م.م. و ک.م.م دو عدد

کد فرترن بزرگ ترین مقسوم علیه مشترک (ب.م.م) و کوچکترین مضرب مشترک دو عدد (ک.م.م)

 

 

 

PROGRAM bmm_kmm

 

 

 

 

 

1. IMPLICIT NONE

 

 

 

 

 

2. INTEGER::n ,i,r,m,a,b,kmm

 

 

 

 

 

3. READ*,m,n

 

 

 

 

 

4. a=m

 

 

 

 

 

5. b=n

 

 

 

 

 

6. DO

 

 

 

 

 

7. r=MOD(m,n)

 

 

 

 

 

8. IF (r==0) THEN

 

 

 

 

 

9. PRINT*,"bmm =",n

 

 

 

 

 

10. EXIT

 

 

 

 

 

11. ELSE

 

 

 

 

 

12. m=n

 

 

 

 

 

13. n=r

 

 

 

 

 

14. END IF

 

 

 

 

 

15. END DO

 

 

 

 

 

16. kmm=(a*b)/n

 

 

 

 

 

17. PRINT*,"kmm =",kmm