j'ai besoin d'aide a fortran

[saoulizo]

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

 

[Nikass]

Bonsoir.

Je te rassure, je n'ai rien compris non plus et je n'ai pas plus que toi la réponse.

Ce qui me chagrine, en revanche, c'est que tu puisses débarquer comme ça sur un forum qui n'est pas vraiment dédié aux maths ni à la programmation, que tu poses une question Fortran (remarque, ça va bien avec un certain nombre de vieilleries dont il est question ici ), le tout sans mettre la moindre seconde à expliquer ce qu'il faut faire, notamment que les matrices de départ sont initialisées avec des valeurs connues, que ce n'est pas un algorithme générique, que...

Enfin, bref. Ca peut arriver à tout le monde de se fourvoyer. J'irais jusqu'à parier que tu n'obtiendras aucune réponse ici, et je te convie à lire ça:

http://www.gnurou.org/writing/smartquestionsfr

bonne soirée

a+

 

[f6exb]

Bonjour,
Ce programme ne fait que créer et imprimer des matrices. Où y aurait-il des divisions ?
La commande "/" est la division.
Que veux-tu dire par "a|b" : Division entière ?