salut
j'ai essayé de faire cette résolution et j'ai une faute
program tdma
implicit none
integer i,j,Nmax,n,k
parameter (Nmax=200)
real a(Nmax),b(Nmax),c(Nmax),T0(Nmax),d(Nmax)
real p(Nmax),Q(Nmax),T(Nmax),TAN(Nmax)
n=5
a(1)=100.00
a(2)=200.00
a(3)=200.00
a(4)=200.00
a(5)=200.00
b(1)=0.0
b(2)=0.0
b(3)=0.0
b(4)=0.0
b(5)=0.0
c(1)=0.0
c(2)=0.0
c(3)=0.0
c(4)=0.0
c(5)=0.0
do j=2,5
T0(j)=150.00
enddo
do j=1,
T0(j)=75.00
enddo
do j=1,4
T0(j-1)=25
enddo
do j=2,5
T0(j+1)=25
enddo
d(j)=150.00*T0(j)
d(j-1)=150.00*T0(j)
d(j+1)=150.00*T0(j+1)
svp aidez moi
Partager