Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Cerificat atestare fiscala pentru...

Schimbare destinatie imobil din l...

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...

Apartament Grecia - Kavala

obtinere venituri PFA / PFI in ti...

Recomandare Volvo
 Diferenta suprafata teren

Plafonare preturi energie

Vanzari foto - CIPA 2023

Recomandare perdele sau draperii ...
 

[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

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