Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Avocatul Poporului vs European Om...

Recomandari firme pentru draperii...

Receptie Eutelsat 5 West. Este po...

Poti receptiona semnal de la mai ...
 Cabluri HDMI 2.1 de 4m-5m care sa...

Zoom comparat cu Google Meet

Monitor/Display wireless?

Pornire greoaie dupa cateva zile ...
 De la un proiect scris in python ...

Audi A4 B9 quattro 190 CP!

Tepari la pariuri pe TikTok

Banca imi cere justificativ fondu...
 schema pcb ELECTRA CIM150 PAS

Probleme stomac

Sfat achizitie bicicleta oras

Canalele Sky Showtime 1 și S...
 

[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,565
  • Î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,416
  • Înscris: 10.08.2005
Attached File  code.png   10.99K   27 downloads

Anunturi

Bun venit pe Forumul Softpedia!

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