F90: Tabela verdade do OU

From AdonaiMedrado.Pro.Br
Revision as of 17:03, 2 October 2008 by Adonaimedrado (Talk | contribs) (New page: <code lang="fortran"> PROGRAM aula LOGICAL :: l1, l2 l1=.TRUE. l2=.TRUE. WRITE (*,*) "T e T =", l1 .OR. l2 WRITE (*,*) "T e F =", l1 .OR. .NOT. l2 WRITE (*,*) "F e T =", .NOT. l1 .O...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
PROGRAM aula
	LOGICAL :: l1, l2
	l1=.TRUE.
	l2=.TRUE.
	WRITE (*,*) "T e T =", l1 .OR. l2 
	WRITE (*,*) "T e F =", l1 .OR. .NOT. l2
	WRITE (*,*) "F e T =", .NOT. l1 .OR. l2
	WRITE (*,*) "F e F =", .NOT. l1 .OR. .NOT. l2
END PROGRAM aula