Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Transferuri instant intre bancile...

player video

Carefur Act for good

Parcare gratis in Bucuresti pentr...
 Rovinieta prin SMS pentru masina ...

Viteza mica Usb 3.2 gen.1 header

Cerificat atestare fiscala pentru...

Schimbare destinatie imobil din l...
 Dorsalgie

Recomandare brand cheie dinamomet...

Divorț la notar

Vechime vs km reali
 Android 12 : "Yahoo Mail s-a ...

Bloc Favorit cu RS2

Ce extractor audio (analogic) pen...

Cine suporta cheltuielile de jude...
 

[Fortran] suma si produsul elementelor

- - - - -
  • Please log in to reply
4 replies to this topic

#1
Mim72

Mim72

    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

#2
Mim72

Mim72

    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

#3
NelsonMandravela

NelsonMandravela

    Active Member

  • Grup: Members
  • Posts: 1,536
  • Î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.


#4
Mim72

Mim72

    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?

#5
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 31,295
  • Înscris: 10.08.2005
Attached File  code.png   10.99K   27 downloads

Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate