[ ismirbh @ 12.06.2008. 23:39 ] @
Veliki pozdrav svima.
Radim seminarski zadatak za sestru. Inace nikad do sad nisam koristi fortran ni u kom smislu ali posto je sestra u pitanju mora se pomoci :)
Ovako glasi zadatak:

Ucitajte niz A od 10<N≤ZBI elemenata I naci sumu clanova na neparnim mjestima i proizvod na parnim mjestima.Sumu naci u glavnom programu,a proizvod u jednom potprogramu. Manju od njih odstampati u glavnom programu


Ja sam odradio ovo al posto ne razumijem errore koje program prijavljuje zapeo sam. Ako neko od strucnjaka moze da rjesi bio bih beskrajno zahvalan i jako bih to cjenio.


Code:

C      PROGRAM ZA IZRACUNAVANJE SUME ELEMENATA NIZA NA NEPARNIM MJESTIMA
C                        I PROIZVODA NA PARNIM MJESTIMA
      DIMENSION A(300)
      WRITE(*,*)'PROGRAM ZA IZRACUNAVANJE SUME ELEMENATA NIZA NA '
      WRITE(*,*)'NEPARNIM MJESTIMA I PROIZVODA NA PARNIM MJESTIMA'

    5 WRITE(*,*)'UNESITE N'
C      UCITATI NIZ
      READ(5,1)N
    1 FORMAT(I3)
      IF(N.GT.10.AND.N.LT.300)GOTO 5
      DO 10 I=10,N
      READ(5.1)A(I)
    2 FORMAT(F8.2)
   10 CONTINUE
C        IZRACUNATI SUMU
      S=0
      S=S+A(I+1)
C       POZIVANJE POTPROGRAMA
      CALL PROIZVOD(P,A)
      IF(P.LT.S)
      THEN GO TO 15
      WRITE (6,3) 'S='
    3 FORMAT (F10.2)
      END IF
   15 WRITE (6,4) 'P='
    4 FORMAT (F 10.2)
      STOP
      END
C          POCETAK POTPROGRAMA
      SUBROUTINE PROIZVOD(P,A)
      DIMENSION A(300)
      I=10
      P=1
      P=P*A(I+2)
      RETURN
      END


[edit: ubaceni [code][/code] tagovi]

[Ovu poruku je menjao Aleksandar Ružičić dana 13.06.2008. u 12:44 GMT+1]
[ risp73 @ 16.06.2008. 09:32 ] @
ovako