F90: Tabela verdade do OU

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	LOGICAL :: l1, l2
	l1=.TRUE.
	l2=.TRUE.
	WRITE (*,*) "T ou T =", l1 .OR. l2 
	WRITE (*,*) "T ou F =", l1 .OR. .NOT. l2
	WRITE (*,*) "F ou T =", .NOT. l1 .OR. l2
	WRITE (*,*) "F ou F =", .NOT. l1 .OR. .NOT. l2
END PROGRAM aula