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