F90: Reinício o ciclo DO

From AdonaiMedrado.Pro.Br
Revision as of 02:16, 3 November 2008 by Adonaimedrado (Talk | contribs) (New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: i = 0 DO i=i+1 IF (MOD(i,2)==0) CYCLE WRITE (*,*) i IF (MOD(i,15)==0) EXIT END DO END PROGRAM </code>)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	INTEGER :: i = 0
	DO 
		i=i+1
		IF (MOD(i,2)==0) CYCLE
		WRITE (*,*) i
		IF (MOD(i,15)==0) EXIT
	END DO
END PROGRAM
Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Reinício_o_ciclo_DO&oldid=719"