Drugi domaći zadatak

Zadatak iz programiranja

Nacrtati algoritam i napisati funkcijski potprogram koji u celobrojnoj matrici proizvoljnih dimenzija prebrojava parne negativne članove i dodeljuje im vrednost jedan. Napisati i glavni program koji će učitati matricu kolona po kolona, pozvati funcijski potprogram i štampati broj pronađenih članova.

Algoritam (gore) i kod (dole) glavnog programa

                                                                                                                                       Alogritam(gore) i kod (dole)  funkcijskog potprograma

PROGRAM DOMACI

DIMENSION A(100, 100)

INTEGER  A

PRINT*,’ UNETI VREDNOSTI BROJA MATRICE’

READ*, M,N

PRINT* ‘UNETI VREDNOSTI CLANOVA MATRICE’

READ*, ((A (I, J), I=1,N), J=1,M)

BRIZMENA=BPCL (A,M,N)

PRINT*, ‘BROJ IZMENJENIH CLANOVA:’, BRIZMENA

END

        FUNCTION BRPARCL (A,M,N)

        DIMENSION A(100, 100).

        ((A(I,J), I=1,N), J=1,M)

        L=0

        DO 10 I=1,N

        DO 20 J=1,M

        IF ((MOD (A(I,J),2.0).EQ. 0) .AND. (A(I,J) .LT. 0)) 

        THEN

        A(I,J)=1

        L=L+1

        ENDIF

20    CONTINUE

10    CONTINUE

        BRPARCL=L

        RETURN

        END