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

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

 

 

 

PROGRAM tavan

 

 

 

 

 

1. IMPLICIT NONE

 

 

 

 

 

2. INTEGER::k,t,i,j,m,n

 

 

 

 

 

3. READ*,m,n

 

 

 

 

 

4. t=0

 

 

 

 

 

5. k=m

 

 

 

 

 

6. DO  i=1,n-1

 

 

 

 

 

7. DO  j=1,m

 

 

 

 

 

8. t=t+k

 

 

 

 

 

9. END DO

 

 

 

 

 

10. k=t

 

 

 

 

 

11. t=0

 

 

 

 

 

12. END DO

 

 

 

 

 

13. PRINT*,k

 

 

 

 

 

END PROGRAM