PDA

Visualizza la versione completa : [FORTRAN90] Ricerca sottosequenza ordinate in un vettore disordinato


stino90
15-01-2012, 18:21
Come da tit
olo: ho un vettore disordinato e voglio sapere se sono presente delle sottosequenze di elementi ordinati, voglio inoltre conoscere la loro lunghezza(la lunghezza di ciascuna sottosequenza ordinata). Non riesco a venirne a capo e non riesco a decifrare l'algoritmo del professore che dovrebbe essere questo:

che tra l'altro non va(forse perché ho sbagliato io a ricopiare) ma comunque vi chiedo gentilmente se potete darmi qualche delucidazione su un algoritmo del genere, mi va bene anche un link a qualcosa che ne parli...



i=1
DO WHILE(i<riemp)
j=i+1
cont=1
continua=.TRUE
DO WHILE(j<=riemp.AND.continua)
IF(v(j)>v(j-1)) THEN
j=j+1
cont=cont+1
ELSE
continua=.FALSE.
END IF
END DO ! questo ciclo interno ci dice quanto vale cont e quindi quanto è lunga l'eventuale sottosequenza
rt=0
IF(cont>=2) THEN
rt=rt+1
seq(rt)=i
lung(rt)=cont
END IF
i=j ! i=i+1
END DO
READ(*,*)

oregon
15-01-2012, 18:23
Devi indentare il codice e racchiuderlo tra tag CODE altrimenti è illeggibile e si finisce per non darti alcuna risposta.

stino90
15-01-2012, 22:47
Fatto, l'indentazione mi è sfuggita, ma penso sia chiaro comunque, sono poche righe...

Loading