Nacrtati algoritam i napisati opšti potprogram koji u nizu V, proizvoljne dimenzije n, koji se vraca glavnom programu, izracunava vrednosti clanova vi (i = l, n) prema sledecoj formuli (argument x je vrednost jednaka indeksu i, dok su a i b konstante zadate u glavnom programu). (x = i)
SUBROUTINE OPP(N,A,B,V) DIMENSION V(100) DO 10 I=1, N X = I V(I)=0.5*(EXP(A*X)-EXP(-A*X))*SIN(X+B)+A*LOG((B+X)/2) 10 CONTINUE PRINT *, 'NIZ: ' WRITE (*,*) (V(I), I=1, N) RETURN END