[es] - [Fortran] Mala pomoc u vezi zadatka (sitno) malo mi fali

ismirbh
ismir harambasic
student FIT

Član broj: 161429
Poruke: 1
89.146.177.*

Profil

[Fortran] Mala pomoc u vezi zadatka (sitno) malo mi fali

^{12.06.2008. u 23:39 - pre 193 meseci}

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]}

Odgovor na temu