dfsdfsd

TRABAJO DE PROGRAMACION DE COMPUTADORES






PRESENTADO POR:
Adriana Becerra 538749
Juan Felipe Nieto 538704
Cristian David Pérez Rodríguez 538734











UNIVERSIDAD CATOLICA DE COLOMBIA
INGENIERIA INDUSTRIAL
BOGOTA
2013
CONTENIDO
INTRODUCCION 3
OBJETIVOS 4
ALGORITMOS 5-77
CONCLUSIONES 78
BIBLIOGRAFIA 79




















INTRODUCCIONEn ingeniería existen diversos tipos de lenguajes los cuales son utilizados para dar solución a diversos problemas estos están regidos por diferentes códigos los cuales son las fuentes de estos programas.





















OBJETIVOS
Reconocer las diversas maneras de poder dar solución a los diferentes problemas aquí planteados.
Reconocer las diferentes opciones quebrinda el visual Basic para poder entender problemas numéricos y alfanuméricos.

















ALGORITMOS
3.1.4.1
1) Leer un entero y si es igual a cualquier digito comprendido entre 1 y 5 escribir su nombre: Si es igual a cinco además de escribir su nombre leer otro digito y si este ultimo esta entre 1 y 5, escribir su componente decimal. Si entro un 3 entonces escribir“Cincuenta y tres”, si entro un 1 entonces escribir “Cincuenta y uno”.
Sub entradas ()
Dim a, b, entero, r As Integer
MsgBox "DIGITOS ENTEROS"
a = Val (InputBox ("digite un número"))
If a > 5 Then
MsgBox "error"
MsgBox “REINICIE EL PROGRAMA”
End If
If a = 1 Then
MsgBox "Uno"
End If
If a = 2 Then
MsgBox "dos"
End If
If a = 3 Then
MsgBox "tres"
End If
If a = 4 Then
MsgBox "cuatro"
EndIf
If a = 5 Then
MsgBox "cinco"
b = Val (InputBox ("digite otro numero"))
If b > 5 Then
MsgBox "error"
MsgBox “REINICIE EL PROGRAMA”
End If
If b = 1 Then
MsgBox "cincuenta y Uno"
End If
If b = 2 Then
MsgBox "cincuenta y dos"
End If
If b = 3 Then
MsgBox "cincuenta y tres"
End If
If b = 4 Then
MsgBox "cincuenta y cuatro"
End If
If b = 5 Then
MsgBox "cincuenta y cinco"
End IfEnd If
End Sub




































2) leer un número entero y determinar si es un número terminado en 4.
Sub cuatro()
Dim a As Integer
a = Val(InputBox("digite un numero"))
If (a Mod 10 = 4) Then
MsgBox (" el numero termina en 4")
Else
MsgBox (" El numero no termina en 4")
End If
End Sub3) leer un número y determinar si tiene 3 dígitos.
Sub numero ()
Dim a As Integer
MsgBox "NUMERO DE TRES DIGITOS"
a = Val (InputBox ("digite un numero de tres dígitos"))
If a 0 Then
MsgBox "su número es positivo"
Else
If r < 0 Then
MsgBox "su número es negativo"
End If
End If




























5) leer un númeroentero de dos dígitos y determinar a cuanto es igual la suma de sus dígitos.

Sub numero()
Dim a, b, c, z As Integer
a = Val(InputBox("Digite un numero de dos digitos"))
If a > 99 Or a < 10 Then
MsgBox "error digite u numero de dos digitos"
Else
b = a \ 10
MsgBox " su primer digito es:" & b
c = (a Mod 10) \ 1
MsgBox " se segundodigito es:" & c
z = b + c
MsgBox " la suma de sus digitos es:" & z

End If
End Sub















6) leer un número entero de dos dígitos y determinar si ambos dígitos son pares.
Sub numero()
Dim a, b, c As Integer
a = Val(InputBox("Digite un numero de dos digitos"))
If a > 99 Or a < 10 Then
MsgBox "error digite unumero de dos digitos"
Else
b = a \ 10
MsgBox " su primer digito es:" & b
c = (a Mod 10) \ 1
MsgBox " se segundo digito es:" & c
If b Mod 2 = 0 Then
MsgBox " su primer digito es un numero par:"
Else
MsgBox " su primer digito es un numero impar:"
End If
If c Mod 2 = 0 Then
MsgBox " su segundo...