Concatenarea a două șiruri presupune existența unui șir X de n componente și a unui șir Y de m componente. Va rezulta un șir Z de n+m componente. Vom face ipoteza că n+m nu trebuie să fie mai mare de 1000. Variabila IK returnează 1 dacă s-a efectuat concatenarea și IK=0 dacă operația nu s-a efectuat. Variabila K arată numărul de componente al șirului Z concatenat.
Subprogramul este:
SUBROUTINE CONCAT (X,N,Y,M,Z,K)
IF(((M+M).LT.0).OR.(M+N).GT.1000) GO TO alfa
K=0
DO 10 I=1,N
Z(K)=X(I)
K=K+1
10 CONTINUE
DO 20 I=1,N
Z(K)=Y(I)
K=K+1
20 CONTINUE
RETURN
STOP
(24 decembrie 2017)
No comments:
Post a Comment