Ja,

Click here to edit subtitle

Drugi domaći zadatak- FORTRAN

Nacrtati algoritam i napisati funkcijski potprogram koji izračunava realnu vrednost D , ai su članovi realnog niza A proizvoljne dužine (n). Vrednost vratiti preko imena potprograma.

   PROGRAM domaci


   DIMENSION A(100)


   PRINT *, 'UNESI BROJ CLANOVA NIZA A'


   READ *, N


   PRINT *, 'UNESI CLANOVE NIZA A'


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


   P=D(A,N)


   PRINT *, 'REALNA VREDNOST D JE' , P


   END


    FUNCTION D(A,N)


   DIMENSION A(100)


   SUMA=0 


   DO I= 1,N


   POM=-1

   

   SUMA=SUMA+POM*A(I)**2


   IF (MOD(I,2).EQ.0)


   POM=POM*(-1)

   

   ENDIF

     

   ENDDO


   D=SQRT(ABS(SUMA))


   RETURN


                                       END