|کد فرترن عوض کردن درایه های ماتریس نسبت به قطر اصلی|کد فرترنتعویض عناصر ماتریس نسبت به قطر اصلی|کد فرترن عوض کردن عناصر ماتریس نسبت به قطر اصلی|کد فرترن عوض کردن اعداد ماتریس نسبت به قطر اصلی|کد فرترن تعویض اعداد ماتریس نسبت به قطر اصلی|ماتریس مربعی|ماتریس n در n|
-------------------------------------------------------------------------------------------------------------------------------------------
کد فرترن برنامه ای که درایه های یک ماتریس مربعی n در n را نسبت به قطر اصلی عوض میکنه.این برنامه اول n رو میگیره و ماتریس n در n رو تشکیل میده سپس ماتریس رو خط به خط از بالا به پایین از کاربر میگیره و در آخر درایه هارو نسبت به قطر اصلی عوض میکنه و نمایش میده.
PROGRAM matris
IMPLICIT NONE
INTEGER::b,i,j,k,n,t
INTEGER,ALLOCATABLE::a(:,:)
PRINT*,"baraye matris n*n lotfan n ra vared konid : "
READ*,n
ALLOCATE (a(n,n))
DO t=1,n
PRINT*,"khate",t,"ra vared konid : "
READ*,a(t,:)
END DO
PRINT*
DO i=1,n-1
DO j=i+1,n
b=a(i,j)
a(i,j)=a(j,i)
a(j,i)=b
END DO
END DO
DO k=1,n
PRINT*,a(k,:)
END DO
PRINT*
END