https://adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_Introdu%C3%A7%C3%A3o_%C3%A0s_FUNCTIONs 2026-05-27T18:31:06Z Revision history for this page on the wiki MediaWiki 1.26.2 https://adonaimedrado.pro.br/wiki/index.php?title=F90:_Introdu%C3%A7%C3%A3o_%C3%A0s_FUNCTIONs&diff=547&oldid=prev 2008-10-02T16:56:16Z

<p>New page: &lt;code lang=&quot;fortran&quot;&gt; PROGRAM aula INTEGER :: Opcao LOGICAL :: a,b DO WRITE (*,*) &quot;1 - E&quot; WRITE (*,*) &quot;2 - OU&quot; WRITE (*,*) &quot;3 - OU Exclusivo&quot; WRITE (*,*) &quot;4 - Sair&quot; READ (*,*...</p> <p><b>New page</b></p><div>&lt;code lang=&quot;fortran&quot;&gt;<br /> PROGRAM aula<br /> INTEGER :: Opcao<br /> LOGICAL :: a,b<br /> DO <br /> WRITE (*,*) &quot;1 - E&quot;<br /> WRITE (*,*) &quot;2 - OU&quot;<br /> WRITE (*,*) &quot;3 - OU Exclusivo&quot;<br /> WRITE (*,*) &quot;4 - Sair&quot;<br /> READ (*,*) Opcao<br /> IF (Opcao &gt;=1 .AND. Opcao &lt;= 3 ) THEN<br /> WRITE (*,*) &quot;Digite uma variavel logica&quot;<br /> READ (*,*) a<br /> WRITE (*,*) &quot;Digite outra variavel logica&quot;<br /> READ (*,*) b<br /> IF (Opcao == 1) THEN<br /> WRITE (*,*) &quot;Resultado = &quot;,ExecutarE(a,b)<br /> ELSE IF (Opcao == 2) THEN<br /> WRITE (*,*) &quot;Resultado = &quot;,ExecutarOU(a,b)<br /> ELSE IF (Opcao == 3) THEN<br /> WRITE (*,*) &quot;Resultado = &quot;,ExecutarOUExclusivo(a,b)<br /> END IF<br /> ELSE IF (Opcao == 4) THEN<br /> EXIT<br /> END IF<br /> END DO<br /> CONTAINS<br /> LOGICAL FUNCTION ExecutarE(x,y)<br /> LOGICAL, INTENT(IN) :: x,y<br /> ExecutarE = x .AND. y<br /> END FUNCTION ExecutarE<br /> LOGICAL FUNCTION ExecutarOU(x,y)<br /> LOGICAL, INTENT(IN) :: x,y<br /> ExecutarOU = x .OR. y<br /> END FUNCTION ExecutarOU<br /> LOGICAL FUNCTION ExecutarOUExclusivo(x,y)<br /> LOGICAL, INTENT(IN) :: x,y<br /> ExecutarOUExclusivo = .NOT. ((x .OR. .NOT. y) .AND. (.NOT. x .OR. y))<br /> END FUNCTION ExecutarOUExclusivo<br /> END PROGRAM aula<br /> &lt;/code&gt;</div>

Adonaimedrado