Verificarea dacă șirul este sortat

Se consideră șirul x1, x2, x3, ..., xk, ...., xn cu n componente și se pune problema vverificării dacă șirul este ordonat sau sortat crescător, caz în care varia bila de stare IK va avea valoarea 1 sau șirul este sortat descrescător, caz în care variabila IK va avea valoarea 2. În cazul în care șirul nu este ordonat, variabila OK va avea valoarea zero. Pentru a face verificarea se compară elementele consecutive xk și xk+1, ceea ce presupune ca variabila de control I în structura repetitivă să aibă valori de la 1 la N-1.

Programul scris în limbajul FORTRAN IV este:

           SUBROUTINE VERIF(X,N,IK)

           IK=0

           DO  10 I=1,N-1

           IF(X(I).GE.X(I+1)) GO TO 20

10       CONTINUE

           IK=1

           GO TO 40

20       CONTINUE

           DO  30 I=1,N-1

           IF(X(I).LE.X(I+1)) GO TO 40

10       CONTINUE

           IK=2

40       CONTINUE

           RETURN

           END

Am pus câteva instrucțiuni CONTINUE pentru a face mai clar programul, dar tot atât de bine programul mergea și fără ele.

         

(24 decembrie 2017)