1 -الاستبدال القطر الرئيسي بالثانوي
REAL A(4,4)
DATA((A(I,J),J=1,4),I=1,4)/1,2,7,8,3,2,5,4,1,3,9,3,10,11,8,7/
DO I=1,4
DO J=1,4
IF(I==J) THEN
T=A(I,J);A(I,J)=A(I,5-J);A(I,5-J)=T
END IF
END DO
END DO
PRINT*,((A(I,J),J=1,4),I=1,4)
END
2 -استبدال الصف الاول بالصف الرابع
(REAL A(4,4
DATA((A(I,J),J=1,4),I=1,4)/1,2,7,8,3,2,5,4,1,3,9,3,10,11,8,7/
DO I=1,4
DO J=1,4
IF(I==1) THEN
T=A(I,J);A(I,J)=A(I+3,J);A(I+3,J)=T
END IF
END DO
END DO
PRINT*,((A(I,J),J=1,4),I=1,4)
END
3 -ايجاد المثلث المفقود السفلي
REAL A(4,4)
data((A(I,J),J=1,4),I=1,4)/1,3,9,7,0,8,6,2,0,0,20,4,0,0,0,5/
DO I=1,4
DO J=1,4
IF(I<J) THEN
A(J,i)=A(J,I)+A(I,J)
END IF
END DO
END DO
PRINT*,((A(I,J),J=1,4),I=1,4)
END
.
4 -استبدال الصف الاول بالعمود الاول
REAL A(4,4)
DATA((A(I,J),J=1,4),I=1,4)/1,2,7,8,3,2,5,4,1,3,9,3,10,11,8,7/
DO I=1,4
DO J=1,4
IF(I==1) THEN
T=A(I,J);A(I,J)=A(J,I);A(J,I)=T
END IF
END DO
END DO
PRINT*,((A(I,J),J=1,4),I=1,4)
END
5 -استبدال الصف الاول بالصف الثاني
( REAL A(4,4
DATA((A(I,J),J=1,4),I=1,4)/1,2,7,8,3,2,5,4,1,3,9,3,10,11,8,7/
DO I=1,4
DO J=1,4
IF(I==1) THEN
T=A(I,J);A(I,J)=A(J,I);A(J,I)=T
END IF
END DO
END DO
( PRINT*,((A(I,J),J=1,4),I=1,4
END
5 -توليد مصفوفة مع المفكوك
(REAL A(4,4
INTEGER H,I,J
K=2;L=0;U=3
DO I=1,4
DO J=1,4
IF(I+J==5) THEN
F=1
DO H=1,5
F=F*H
END DO
A(I,J)=F
END IF
IF(I+J<5) THEN
A(I,J)=K
K=K*2
END IF
IF(I+J>5) THEN
A(I,J)=L
L=L+U
U=U+2
END IF
END DO
END DO
(PRINT*,A(1,1),A(1,2),A(1,3),A(1,4
(PRINT*,A(2,1),A(2,2),A(2,3),A(2,4
(PRINT*,A(3,1),A(3,2),A(3,3),A(3,4
(PRINT*,A(4,1),A(4,2),A(4,3),A(4,4
END
5 -توليد مصفوفه
(real A(4,4
S=1;G=3;U=2
DO I=1,4
DO J=1,4
IF (I==J) THEN
A(I,J)=S
S=S*10
ELSE IF (I<J) THEN
A(I,J)=G
G=G+2
ELSE IF (I>J) THEN
A(I,J)=U
U=U+2
END IF
END DO
END DO
(PRINT*,((A(I,J),J=1,4),I=1,4
END
6 -استبدال المثلث فوق القطر الرئيسي بالسفلي
(REAL A(4,4
DATA((A(I,J),J=1,4),I=1,4)/1,2,7,8,3,2,5,4,1,3,9,3,10,11,8,7/
DO I=1,4
DO J=1,4
IF(I<J) THEN
T=A(I,J);A(I,J)=A(J,I);A(J,I)=T
END IF
END DO
END DO
PRINT*,((A(I,J),J=1,4),I=1,4)
END
دمتم بود
..
..
.
