[Fortran] suma si produsul elementelor

#1
Mim72

Posted 30 March 2021 - 11:18

New Member

Grup: Junior Members
Posts: 8
Înscris: 19.05.2019

Buna ziua am revenit cu o noua intrebare. Pt a face suma si produsul elementelor unei matrici cum se procedeaza ? Asemanator ca la sir? Posted Image

Back to top

#2
Mim72

Posted 30 March 2021 - 11:54

New Member

Grup: Junior Members
Posts: 8
Înscris: 19.05.2019

Mim72, on 30 martie 2021 - 11:18, said:

Buna ziua am revenit cu o noua intrebare. Pt a face suma si produsul elementelor unei matrici cum se procedeaza ? Asemanator ca la sir? Posted Image

program matrice
implicit none
real A(10,10) ,s,r(10,10),B(10,10)
integer i,j,m,n
print*,'introduceti nr de linii(m) si nr coloane(n)'
read*,m,n
print*,'introduceti matricea A pe linii'
read*,((a(i,j),j=1,n),i=1,m)
print*,'introduceti un scalar'
read*,s
do i=1,m
do j=1,n
r(i,j)=s*A(i,j)
enddo
enddo
write(*,*)'transpusa matricei'
print*,((A(j,i),j=1,n),i=1,m)
print*,((A(i,j),j=1,n),i=1,m)
print*,'rezultatul:'
print*,((r(i,j),j=1,n),i=1,m)
print*,((a(i,j),j=1,n),i=1,m)
  write(*,*)'suma a doua matrici'
  print*,((B(i,j),j=1,n),i=1,m)
  print*,((C(i,j),j=1,n),i=1,m)
C=A+B
write(*,*)'matricea C'
do i=1,m
do j=1,n
print*,'a(',i,',',j,')=',a(i,j)
enddo
enddo
pause
end
Am scris programul acesta dar nu stiu de ce nu este bine

Back to top

#3
NelsonMandravela

Posted 30 March 2021 - 13:18

Active Member

Grup: Members
Posts: 1,567
Înscris: 10.01.2012

ca o paranteză, am încadrat cu taguri [CO DE] [/CO DE] și parcă e mai "inteligibil" codul.

Edited by NelsonMandela, 30 March 2021 - 13:18.

Back to top

#4
Mim72

Posted 30 March 2021 - 16:42

New Member

Grup: Junior Members
Posts: 8
Înscris: 19.05.2019

NelsonMandela, on 30 martie 2021 - 13:18, said:

ca o paranteză, am încadrat cu taguri [CO DE] [/CO DE] și parcă e mai "inteligibil" codul.

program matrice
implicit none
real A(10,10) ,s,r(10,10)
integer i,j,m,n,suma,produs
print*,'introduceti nr de linii(m) si nr coloane(n)'
read*,m,n
print*,'introduceti matricea A pe linii'
read*,((a(i,j),j=1,n),i=1,m)
print*,'introduceti un scalar'
read*,s
suma=0
produs=1
do i=1,m
do j=1,n
suma=suma+a(i,j)
produs=produs*a(i,j)
r(i,j)=s*a(i,j)
print*,'suma=',suma
print*,'produs=',produs
r(i,j)=s*A(i,j)
Ceva e genul acesta atunci?

Back to top

#5
MarianG

Posted 30 March 2021 - 18:54

be that as it may

Grup: Moderators
Posts: 31,444
Înscris: 10.08.2005

code.png 10.99K 27 downloads

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

[Fortran] suma si produsul elementelor

#1 Mim72 Posted 30 March 2021 - 11:18

#2 Mim72 Posted 30 March 2021 - 11:54

#3 NelsonMandravela Posted 30 March 2021 - 13:18

#4 Mim72 Posted 30 March 2021 - 16:42

#5 MarianG Posted 30 March 2021 - 18:54

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Mim72

Posted 30 March 2021 - 11:18

#2
Mim72

Posted 30 March 2021 - 11:54

#3
NelsonMandravela

Posted 30 March 2021 - 13:18

#4
Mim72

Posted 30 March 2021 - 16:42

#5
MarianG

Posted 30 March 2021 - 18:54