Fakultet inženjerskih nauka
Click here to edit subtitle
Nacrtati algoritam i napisati opšti potprogram koji će izračunati niz C(n),čiji će se članovi dobijati kao količnik odgovarajućih članova niza A(n) i niza B(n)(Ci=Ai/Bi). Tako dobijen niz C(n),sortirati u rastućrem poretku. Napisati i glavni program koji će učitati nizove A(n) i B(n), pozvati potprogram i štampati niz C(n).
GLAVNI PROGRAM
PROGRAM DOMACI
DIMENSION A(100),B(100),C(100)
PRINT*,'UNESITE BROJ CLANOVA NIZOVA A I B'
READ*,N
PRINT*,'UNESITE CLANOVE NIZA A'
READ*,(A(I),I=1,N)
PRINT*,'UNESITE CLANOVE NIZA B'
READ*,(B(I),I=1,N)
CALL NOVINIZ (A,B,C,N)
PRINT*,NOVI NIZ JE:',(C(I),I=1,N)
END
OPŠTI POTPROGRAM
SUBRUTINE NOVINIZ(A,B,C,N)
DIMENSION A(100),B(100),C(100)
DO I=1,N
C(I)=A(I)/B(I)
END DO
DO I=1,N-1
DO J=I+1,N
IF (C(I).GT.C(J)) THEN
X=C(I)
C(I)=C(J)
C(J)=X
END IF
END DO
END DO
RETURN
END