Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Matrix problem
PROGRAM ARRAY IMPLICIT NONE INTEGER,PARAMETER::N=3,M=3 REAL::A(N,M),S1=0,S2=0,S3,S4,S5 INTEGER::I,J !(program for define a matrix A) DO I=1,N READ(*,*)(A(I,J),J=1,M) END DO PRINT*,"MATRIX OF A IS=" DO I=1,N,1 WRITE(*,*)(A(I,J),J=1,M) END DO !(program for sum diagonal entries) DO I=1,N,1 S2=S2+A(I,I) END DO PRINT*,"THE SUM OF THE DIAGONALENTRIES IS=",S2 !(program for find sum of upper triangular entries) PRINT*,"UPPER TRIANGULAR ENTRIES SUM ARE" S4=0 DO I=1,N,1 DO J=I,M,1 S4= S4+A(I,J) END DO END DO PRINT*,S4 !(program for sum lower triangular entries) PRINT*,"SUM OF LOWER TRIANGULAR ENTRIES" S5=0 DO I=1,N,1 DO J=I,M,1 S5=S5+A(J,I) END DO END DO PRINT*,S5 END PROGRAM ARRAY
run
|
edit
|
history
|
help
0
1(iii)
Jánošík 2018
New
Gauss seidal
A_04 GUASSIAN QUADRATURE METHOD
A_01 FIXED_POINT_IM(I)
Matrix 3×3
A_01 NEWTON_RM(B(I))
s
Gauss pivot elimination