انجام برنامه نویسی فرترن نمونه کد فرترن اثر ماتریس

|کد فرترن اثر یک ماتریس|کد فرترن تریس یک ماتریس|کد فرترن تریس ماتریس|کد تریس ماتریس در فرترن|کد اثر ماتریس در فرترن|trace| 

 

-------------------------------------------------------------------------------------------------------------------------------------------

 

 

 

 

 

 

 

این کد اول n رو که همون تعداد سطر و ستون ماتریس مربعی ماست رو میگره.سپس سطر به سطر درایه های های ماتریس رو از کاربر میگیره و شروع به محاسبه تریس ماریس میکنه.تریس یا اثر یک ماتریس برابر حاصل جمع درایه های روی قطر اصلی ماتریسه.در آخر هم جواب رو نمایش میده.

 

 

 

 

 

 

 

 

 

 

 

---------------------------------------------------------------------------------------------------------------------------------------

 

 

 

 

 

 

 

---------------------------------------------------------------------------------------------------------------------------------------

 

 

 

 

 

 

 

PROGRAM trace

 

 

 

 

 

1. IMPLICIT NONE

 

 

 

 

 

2. INTEGER::n,i,t

 

 

 

 

 

3. REAL::s

 

 

 

 

 

4. REAL,ALLOCATABLE::a(:,:)

 

 

 

 

 

5. PRINT*,"  input n : "

 

 

 

 

 

6. READ*,n

 

 

 

 

 

7. ALLOCATE (a(n,n))

 

 

 

 

 

8. DO  t=1,n

 

 

 

 

 

9. PRINT*,"  input a(",t,", 1 )  to  a(",t,",",n,") :"

 

 

 

 

 

10. PRINT*

 

 

 

 

 

11. READ*,a(t,:)

 

 

 

 

 

12. END DO

 

 

 

 

 

13. s=0.

 

 

 

 

 

14. DO  i=1,n

 

 

 

 

 

15. s=s+a(i,i)

 

 

 

 

 

16. END DO

 

 

 

 

 

17. PRINT*,"  trace = ",s

 

 

 

 

 

18. PRINT*

 

 

 

 

 

19. END