Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
gghhhhh
! Gauss elimination method ! Back substitution Dimension a (10,10),x (10) Write (*,*)'Enter the otder of the matrix' Read (*,*)n Write (*,*)'Enter the augmented matrix' Do i=1,n Read (*,*) ( A (i,j),j=1,n+1) Enddo Do k=1,n-1 Do i=k+1,n Do j=k+1,n+1 A (i,j)= a (i,j)-(a (i,k)/a (k,k))*a (k,j) Enddo Enddo Enddo X (n)=a (n,n+1)/a (n,n) Do k=n-1,1,-1 S=0 Do j=k+1,n S=s+a (k,j)*x (j) Enddo X (k)=(1/a (k,k))*(a(k,n+1)-s) Enddo Write (*,*)'The solutions are',(x (i),i=1,n) Stop End
run
|
edit
|
history
|
help
0
Factorial num
Practice 2(I)
A_01 FALSE_POSITION_METHOD
A
Me
A_02 QUESTIONS NUMBER 3
SUM OF ODD NUMBERS
8
Question 01(a)
A_02 NEWTON'S ITERATIVE METHOD