UNIVERSIDAD NACIONAL DE SAN AGUSTN
FACULTAD DE PRODUCCIN Y SERVICIOS
ESCUELA PROFESIONAL DE INGENIERA INDUSTRIAL
CURSO
: PROGRAMACIN Y MTODOS NUMRICOS
DOCENTE
: Juan Carlos Torreblanca
GRUPO COOPER:
* Chvez Mendoza, Sheyla
* Guzmn Coaguila, Diana
* Pulcha Montenegro, Vanessa
TABLA DE VERDAD
DISYUNCION, CONJUNCION, NEGACION, DISYUNCION EXCLUYENTE
Module Module1
Sub Main()
Dim v, f, y As Integer
Dim a1, b1, a2, b2, a3, b3, a4, b4 As Boolean
[Link] = [Link]
[Link](29, 1)
[Link]("TABLA DE VERDAD")
For y = 1 To 69
[Link] = [Link]
[Link](y, 2)
[Link]("*")
[Link](y, 10)
[Link]("*")
Next
For y = 2 To 10
[Link] = [Link]
[Link](1, y)
[Link]("*")
[Link](9, y)
[Link]("*")
[Link](19, y)
[Link]("*")
[Link](28, y)
[Link]("*")
[Link](39, y)
[Link]("*")
[Link](49, y)
[Link]("*")
[Link](59, y)
[Link]("*")
[Link](70, y)
[Link]("*")
Next
a1
a2
a3
a4
=
=
=
=
True
True
False
False
b1
b2
b3
b4
=
=
=
=
True
False
True
False
For v = a1 To a4
For f = b1 To b4
[Link] = [Link]
[Link](3, 3)
[Link](" p ")
[Link] = [Link]
[Link](3, 5)
[Link]("{0} ", a1)
[Link](3, 6)
[Link]("{0}", a2)
[Link](3, 7)
[Link]("{0}", a3)
[Link](3, 8)
[Link]("{0}", a4)
[Link] = [Link]
[Link](11, 3)
[Link](" q ")
[Link] = [Link]
[Link](11, 5)
[Link]("{0}", b1)
[Link](11, 6)
[Link]("{0} ", b2)
[Link](11, 7)
[Link]("{0}", b3)
[Link](11, 8)
[Link]("{0}", b4)
[Link] = [Link]
[Link](21, 3)
[Link]("p ^ q")
[Link] = [Link]
[Link](21, 5)
[Link](" {0}", a1 And b1)
[Link](21, 6)
[Link](" {0}", a1 And b2)
[Link](21, 7)
[Link](" {0}", a3 And b3)
[Link](21, 8)
[Link](" {0}", a1 And b4)
[Link] = [Link]
[Link](30, 3)
[Link](" p v q")
[Link] = [Link]
[Link](30, 5)
[Link](" {0} ", a1 Or b1)
[Link](30, 6)
[Link](" {0} ", a2 Or b2)
[Link](30, 7)
[Link](" {0} ", a3 Or b3)
[Link](30, 8)
[Link](" {0} ", a4 Or b4)
[Link] = [Link]
[Link](40, 3)
[Link](" p q")
[Link] = [Link]
[Link](40, 5)
[Link](" {0} ", a1 Xor b1)
[Link](40, 6)
[Link](" {0} ", a2 Xor b2)
[Link](40, 7)
[Link](" {0} ", a3 Xor b3)
[Link](40, 8)
[Link](" {0} ", a4 Xor b4)
[Link] = [Link]
[Link](50, 3)
[Link](" -q")
[Link] = [Link]
[Link](50, 5)
[Link](" {0} ", Not b1)
[Link](50, 6)
[Link](" {0} ", Not b2)
[Link](50, 7)
[Link](" {0} ", Not b3)
[Link](50, 8)
[Link](" {0} ", Not b4)
[Link] = [Link]
[Link](60, 3)
[Link](" -p")
[Link] = [Link]
[Link](60, 5)
[Link](" {0} ", Not a1)
[Link](60, 6)
[Link](" {0} ", Not a2)
[Link](60, 7)
[Link](" {0} ", Not a3)
[Link](60, 8)
[Link](" {0} ", Not a4)
Next
Next
[Link]()
End Sub
End Module
TABLA DE VERDAD
DISYUNCION, CONJUNCION
Module Module1
Sub Main()
Dim v, f, y As Integer
Dim a1, b1, a2, b2, a3, b3, a4, b4 As Boolean
[Link] = [Link]
[Link](29, 1)
[Link]("TABLA DE VERDAD")
a1 = True
a2 = True
a3 = False
a4 = False
b1 = True
b2 = False
b3 = True
b4 = False
For v = a1 To a4
For f = b1 To b4
[Link] = [Link]
[Link](3, 3)
[Link](" p
q ")
[Link] = [Link]
[Link](3, 5)
[Link]("{0}
{1}", a1, b1)
[Link](3, 6)
[Link]("{0}
{1}", a2, b2)
[Link](3, 7)
[Link]("{0} {1}", a3, b3)
[Link](3, 8)
[Link]("{0} {1}", a4, b4)
[Link] = [Link]
[Link](21, 3)
[Link]("p ^ q
p v q ")
[Link] = [Link]
[Link](21, 5)
[Link](" {0}
{1} ", a1 And b1, a1 Or b1)
[Link](21, 6)
[Link](" {0}
{1} ", a1 And b2, a2 Or b2)
[Link](21, 7)
[Link](" {0}
{1} ", a3 And b3, a3 Or b3)
[Link](21, 8)
[Link](" {0}
{1} ", a1 And b4, a4 Or b4)
[Link]()
Next
Next
[Link]()
End Sub
End Module
Funciones
TABLA DE VERDAD
DISYUNCION, CONJUNCION
Module Module1
Sub variable(ByVal a As Single, ByVal b As Single)
[Link] = [Link]
[Link](3, 5)
[Link]("{0}
{1}", True, True)
[Link](3, 6)
[Link]("{0}
{1}", True, False)
[Link](3, 7)
[Link]("{0} {1}", False, True)
[Link](3, 8)
[Link]("{0} {1}", False, False)
[Link] = [Link]
[Link](21, 5)
[Link](" {0}
{1} ", True And True, True Or True)
[Link](21, 6)
[Link](" {0}
{1} ", True And False, True Or False)
[Link](21, 7)
[Link](" {0}
{1} ", False And True, False Or True)
[Link](21, 8)
[Link](" {0}
{1} ", False And False, False Or False)
[Link]()
End Sub
Sub main()
Dim p, q As Boolean
[Link] = [Link]
[Link](29, 1)
[Link]("TABLA DE VERDAD")
[Link] = [Link]
[Link](3, 3)
[Link](" p
q ")
[Link] = [Link]
[Link](21, 3)
[Link]("p ^ q
p v q ")
variable(p, q)
End Sub
End Module