S
saoulizo
Nouveau
bonsoir
je cherche la reponse a ce sujet
comman ecrite a/b et a│b a programme fortran
parameter(n=5,m=4)
dimension a(n,m),b(n,n),c(n,n),d(m,n),s(n,n),p(n,n)
do i=1,n
do j=1,n
a(i,j)=1
end do
end do
do i=1,n
do j=1,n
b(i,j)=1
b(3,j)=2
end do
end do
do i=1,n
do j=1,n
b(i,j)=1
if (i==3)b(i,j)=2
if (i==j)b(i,j)=0
end do
end do
l=1-n
do i=1,n
do j=n,1,-1
c(i,j)=l
l=l+1
if (i==j)c(i,j)=0
end do
end do
r=1
f=13
do j=3,m
do i=1,n
d(i,j)=r
r=r+1
end do
end do
do i=1,n
do j=1,n
s(i,j)=b(i,j)+c(i,j)
end do
end do
do i=1,n
do j=1,n
p (i,j)=a(n,m)*d(n,m)
end do
end do
open (1,file='fai.dat')
write (1,*)'la matrice a:'
do i=1,n
write (1,*)(a(i,j),j=1,m)
end do
write(1,*)'la matrice b:'
do i=1,n
write(1,*)(b(i,j),j=1,m)
end do
write(1,*)'la matrice c:'
do i=1,n
write(1,*)(c(i,j),j=1,m)
end do
write(1,*)'la matrice d:'
do i=1,n
write(1,*)(d(i,j),j=3,m)
end do
do i=1,n
write(1,*)(s(i,j),j=1,n)
end do
write(1,*)'la matrice p:'
do i=1,n
write(1,*)(p(i,j),j=1,n)
end do
close (1)
stop
end
je cherche la reponse a ce sujet
comman ecrite a/b et a│b a programme fortran
parameter(n=5,m=4)
dimension a(n,m),b(n,n),c(n,n),d(m,n),s(n,n),p(n,n)
do i=1,n
do j=1,n
a(i,j)=1
end do
end do
do i=1,n
do j=1,n
b(i,j)=1
b(3,j)=2
end do
end do
do i=1,n
do j=1,n
b(i,j)=1
if (i==3)b(i,j)=2
if (i==j)b(i,j)=0
end do
end do
l=1-n
do i=1,n
do j=n,1,-1
c(i,j)=l
l=l+1
if (i==j)c(i,j)=0
end do
end do
r=1
f=13
do j=3,m
do i=1,n
d(i,j)=r
r=r+1
end do
end do
do i=1,n
do j=1,n
s(i,j)=b(i,j)+c(i,j)
end do
end do
do i=1,n
do j=1,n
p (i,j)=a(n,m)*d(n,m)
end do
end do
open (1,file='fai.dat')
write (1,*)'la matrice a:'
do i=1,n
write (1,*)(a(i,j),j=1,m)
end do
write(1,*)'la matrice b:'
do i=1,n
write(1,*)(b(i,j),j=1,m)
end do
write(1,*)'la matrice c:'
do i=1,n
write(1,*)(c(i,j),j=1,m)
end do
write(1,*)'la matrice d:'
do i=1,n
write(1,*)(d(i,j),j=3,m)
end do
do i=1,n
write(1,*)(s(i,j),j=1,n)
end do
write(1,*)'la matrice p:'
do i=1,n
write(1,*)(p(i,j),j=1,n)
end do
close (1)
stop
end