Inserarea unui element în șir

Inseraea unui element din șir

Se consideră șirul x1, x2, x3, ..., xk, ...., xn cu n componente și se pune problema inserării unui element VAL pe 

poziția k din șir, ceea ce va duce la faptul că șirul va avea n+1 elemente după aceea. 

Subprogramul verifică dacă poziția elementului ce trebuie șters este în șir. Variabila de stare IK=1 dacă 

ștergerea s-a efectuat sau IK=0 în caz contrar din cauză că elementul ce trebuie șters nu se află în interiorul 

șirului. Noul șir are NN componente. Se adoptă convenția că șirul X rămâne neschimba, iar șirul cu elementul inclus este

Y cu n+1 componente.

         SUBROUTINE MAXIM (X,Y,N,K, NN, IK)
         IK=0
         IF(K.LT.1.OR.K.GT.N) GO TO 20

         DO 10 I=1,K-1
         Y(I)=X(I)
10     CONTINUE

         Y(K)=VAL

         DO 10 I=K,N
         Y(I+1)=X(I)
10     CONTINUE
         IK=1
         NN=N+1
20     CONTINUE
         RETURN
         END

(24 decembrie 2017)