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