programa de visualización de la tabla de la verdad
2: CONJUNCIÓN"
3: CONDICIONAL"
4: BICONDICIONAL"
5: NEGACIÓN"
6: DISYUNCIÓN EXCLUSIVA"
7: TAUTOLOGÍA"
8: CONTRADICCIÓN"
9: CONTINGENCIA"
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Algoritmo menuTablasVerdad
//Elaborado por:leonardo Cabezas Briones
Dimension tablasVerdad[4,12]
Definir tablasVerdad, salir Como Logico
Definir opcMenu Como Entero
tablasVerdad[1,1] <- Verdadero
tablasVerdad[2,1] <- Verdadero
tablasVerdad[3,1] <- Falso
tablasVerdad[4,1] <- Falso
tablasVerdad[1,2] <- Verdadero
tablasVerdad[2,2] <- Falso
tablasVerdad[3,2] <- Verdadero
tablasVerdad[4,2] <- Falso
hacerTablas(tablasVerdad)
salir <- Falso
Repetir
Escribir ""
escribir " MENU"
Escribir "--------------------------"
Escribir "(1) DISYUNCIÓN"
Escribir "(2) CONJUNCIÓN"
Escribir "(3) CONDICIONAL"
Escribir "(4) BICONDICIONAL"
Escribir "(5) NEGACIÓN"
Escribir "(6) DISYUNCIÓN EXCLUSIVA"
Escribir "(7) TAUTOLOGÍA"
Escribir "(8) CONTRADICCIÓN"
Escribir "(9) CONTINGENCIA"
Escribir "(0) SALIR"
Escribir "Elija una opción....." Sin Saltar
Leer opcMenu
Escribir ""
Borrar Pantalla
Segun opcMenu Hacer
1:
mostrarDisyuncion(tablasVerdad)
2:
mostrarConjuncion(tablasVerdad)
3:
mostrarCondicional(tablasVerdad)
4:
mostrarBicondicional(tablasVerdad)
5:
mostrarNegacion(tablasVerdad)
6:
mostrarDisExclusiva(tablasVerdad)
7:
mostrarTautologia(tablasVerdad)
8:
mostrarContradiccion(tablasVerdad)
9:
mostrarContingencia(tablasVerdad)
0:
salir <- Verdadero
De Otro Modo:
Escribir "Opción incorrecta. Inténtelo de nuevo"
FinSegun
Hasta Que salir
FinAlgoritmo
Funcion hacerTablas(matriz Por Referencia)
Definir i Como Entero
Para i<-1 Hasta 4 Con Paso 1 Hacer
// Disyunción
matriz[i,3] <- matriz[i,1] O matriz[i,2]
// Conjunción
matriz[i,4] <- matriz[i,1] Y matriz[i,2]
// Condicional
Si matriz[i,1] Y matriz[i,2] Entonces
matriz[i,5] <- Verdadero
FinSi
Si matriz[i,1] Y !matriz[i,2] Entonces
matriz[i,5] <- Falso
FinSi
Si !matriz[i,1] Y matriz[i,2] Entonces
matriz[i,5] <- Verdadero
FinSi
Si !matriz[i,1] Y !matriz[i,2] Entonces
matriz[i,5] <- Verdadero
FinSi
// Biondicional
Si matriz[i,1] Y matriz[i,2] Entonces
matriz[i,6] <- Verdadero
FinSi
Si matriz[i,1] Y !matriz[i,2] Entonces
matriz[i,6] <- Falso
FinSi
Si !matriz[i,1] Y matriz[i,2] Entonces
matriz[i,6] <- Falso
FinSi
Si !matriz[i,1] Y !matriz[i,2] Entonces
matriz[i,6] <- Verdadero
FinSi
Si matriz[i,1] Entonces
matriz[i,7] <- Falso
FinSi
Si !matriz[i,1] Entonces
matriz[i,6] <- Verdadero
FinSi
Si matriz[i,2] Entonces
matriz[i,8] <- Falso
FinSi
Si !matriz[i,2] Entonces
matriz[i,8] <- Verdadero
FinSi
Si matriz[i,1] Y matriz[i,2] Entonces
matriz[i,9] <- Falso
FinSi
Si matriz[i,1] Y !matriz[i,2] Entonces
matriz[i,9] <- Verdadero
FinSi
Si !matriz[i,1] Y matriz[i,2] Entonces
matriz[i,9] <- Verdadero
FinSi
Si !matriz[i,1] Y !matriz[i,2] Entonces
matriz[i,9] <- Falso
FinSi
FinPara
// Tautología
Para i<-1 Hasta 4 Con Paso 1 Hacer
matriz[i,10] <- Verdadero
FinPara
// Contradicción
Para i<-1 Hasta 4 Con Paso 1 Hacer
matriz[i,11] <- Falso
FinPara
matriz[1,12] <- Verdadero
matriz[2,12] <- Verdadero
matriz[3,12] <- Falso
matriz[4,12] <- Verdadero
FinFuncion
Funcion C <- deLogicoATexto(valorLogico)
Definir C Como Caracter
Si valorLogico Entonces
C <- 'V'
SiNo
C <- 'F'
FinSi
FinFuncion
Funcion mostrarDisyuncion(matriz)
Definir i Como Entero
Escribir " p q Disyunción"
Escribir "------ ------ ----------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,1]) + " " + deLogicoATexto(matriz[i,2]) + " " + deLogicoATexto(matriz[i,3])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarConjuncion(matriz)
Definir i Como Entero
Escribir " p q Conjunción"
Escribir "------ ------ ----------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,1]) + " " + deLogicoATexto(matriz[i,2]) + " " + deLogicoATexto(matriz[i,4])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarCondicional(matriz)
Definir i Como Entero
Escribir " p q Condicional"
Escribir "------ ------ -----------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,1]) + " " + deLogicoATexto(matriz[i,2]) + " " + deLogicoATexto(matriz[i,5])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarBicondicional(matriz)
Definir i Como Entero
Escribir " p q Bicondicional"
Escribir "------ ------ -------------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,1]) + " " + deLogicoATexto(matriz[i,2]) + " " + deLogicoATexto(matriz[i,6])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarNegacion(matriz)
Definir i Como Entero
Escribir " p q !p !q"
Escribir "------ ------ ------- -------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,1]) + " " + deLogicoATexto(matriz[i,2]) Sin Saltar
Escribir " " + deLogicoATexto(matriz[i,7]) + " " + deLogicoATexto(matriz[i,8])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarDisExclusiva(matriz)
Definir i Como Entero
Escribir " p q D. Exclusiva"
Escribir "------ ------ ------------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,1]) + " " + deLogicoATexto(matriz[i,2]) + " " + deLogicoATexto(matriz[i,9])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarTautologia(matriz)
Definir i Como Entero
Escribir "Tautología"
Escribir "----------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,10])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarContradiccion(matriz)
Definir i Como Entero
Escribir " Contradiccion"
Escribir "--------------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,11])
FinPara
teclaBorrar
FinFuncion
Funcion mostrarContingencia(matriz)
Definir i Como Entero
Escribir " Contingencia (ej)"
Escribir "------------------"
Para i<-1 Hasta 4 Con Paso 1 Hacer
Escribir " " + deLogicoATexto(matriz[i,12])
FinPara
teclaBorrar
FinFuncion
Funcion teclaBorrar
Definir t Como Caracter
Escribir "Pulsa una tecla para continuar...." Sin Saltar
Leer t
Borrar Pantalla
FinFuncion
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
No hay comentarios:
Publicar un comentario