Laboratorio matrici 12

C il programma azzera Gli elementi positivi della matrice

program AZZERA_POS

C variabili

integer r,c,i,j,dim,z,pos,p

parameter(dim=100)

integer a1(dim,dim),a2(dim,dim)

C definisci le dimensioni

write(*,*)"Numero di righe (non più di",dim,"):"

read(*,*)r

write(*,*)"Numero di colonne (non più di",dim,"):"

read(*,*)c

C carica gli elementi della matrice

do 10 i=1,r

do 20 J=1,c

write(*,*)"Inserire l'elemento ",i,",",j

read(*,*)a1(i,j)

20 continue

10 continue

C annulla elementi positivi

z=0

do 30 i=1,r

do 40 j=1,c

pos=a1(i,j)

if (pos.gt.0)then

z=z+1

endif

40 continue

30 continue

C stampa risultati

if (z.gt.0)then

goto 200

else

write (*,*)"Non ci sono elementi da azzerare"

endif

stop

200 continue

write(*,*)"Elementi da azzerare:",z

p=0

do 500 i=1,r

do 600 j=1,c

if (a1(i,j).gt.0)then

a2(i,j)=p*1

write(*,*)"",a1(i,j),"=",a2(i,j)

endif

600 continue

500 continue

do 700 i=1,r

do 800 j=1,c

if (a1(i,j).gt.0)then

a2(i,j)=p*1

else

a2(i,j)=a1(i,j)

endif

800 continue

700 continue