اسئلة المصفوفات وافكارها فورتران 90 مرحلة 2 هندسة ميكانيك جامعة البصرة





 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 





دمتم بود


..
..
.

مهندس ميكانيك
بواسطة : مهندس ميكانيك
هدفي هو التطوير من ذاتي ثم الاستفادة ثم تطوير غيري
تعليقات



حجم الخط
+
16
-
تباعد السطور
+
2
-