Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
1.- Hacer un algoritmo para sumar dos nmeros.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
2.- Hacer un algoritmo para hallar el rea de un crculo.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
3.- Hallar un diagrama de flujo, para calcular el volumen de un cilindro.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
4.- Hacer un diagrama de flujo para hallar la hipotenusa de un tringulo rectngulo.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
5.- Hacer un programa para ingresar un nmero entero de dos cifras y mostrar invertido
FORMULARIO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
6.- Hacer un programa para ingresar un numero entero, si el nmero es par, mostrar el triple del
nmero y si es impar mostrar el doble del nmero.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
7.- Hacer un programa para ingresar tres nmeros y mostrar el mayor.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
8.- Hacer un programa para ingresar un nmero de dos cifras y si termina en 2 mostrar UAP, y si
termina en 5 mostrar Civil y si empieza en 3 mostrar Rocio.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
9.- Hacer un programa para ingresar dos nmeros enteros de dos cifras y mostrar el numero cuya
suma de cifras es mayor.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
10.- Hacer un programa para ingresar dos nmeros y mostrar el mayor utilizando if thenelse
end if.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
11.- Hacer un programa para ingresar un nmero y mostrar si es positivo y negativo o neutro.
Utilizar if thenelse..end if.
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
12.- Hacer un programa para sumar la serie : S= n/1! n/2! + n/3! n/4! + n/n!
FORMULARIO:
CODIGO:
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
13.- Programa para calcular el metrado de un techo.
FORMULARIO
PROGRAMA
Public Class METRADO
Private Sub BTCALCULAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim LARGO, ANCHO, AREA, COTI, PLA As Double
If Not [Link]([Link]) And Not
[Link]([Link]) And Not [Link]([Link])
And Not [Link]([Link]) Then
PLA = [Link]
COTI = [Link]
LARGO = [Link]
ANCHO = [Link]
AREA = LARGO * ANCHO
[Link] = Format(AREA * 2.34 / 8 / PLA, "### ###")
[Link] = Format(AREA * 4.88 / 8 / PLA, "### ###")
[Link] = AREA * 9.35 * 0.1
[Link] = AREA * 0.35 * 0.08
[Link] = AREA * 0.75 * 0.08
[Link] = AREA * 9.32
[Link] = AREA * 4.56
[Link] = AREA * 0.32
[Link] = AREA * 0.54 * 0.08
[Link] = AREA * 0.32
[Link] = Format(AREA * 120 * COTI, "### ###.##")
Else
[Link]("NO SEAS BURRO")
End If
End Sub
Private Sub BTNUEVO_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub txtlargo_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If Asc([Link]) = 13 Then
[Link]()
End If
End Sub
Private Sub txtancho_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If Asc([Link]) = 13 Then
[Link]()
End If
End Sub
Private Sub TXTDOLAR_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If Asc([Link]) = 13 Then
[Link]()
End If
End Sub
Private Sub BTSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If MsgBox("DESEA SALIR DE LA APLICACION?", [Link],
"boleta de pago") = [Link] Then
[Link]()
End If
End Sub
Private Sub TXTPLAZO_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If Asc([Link]) = 13 Then
[Link]()
End If
End Sub
End Class
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
14.- Programa para resolver el factorial a partir de una funcin
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
15.- Programa para ingresar un ngulo y mostrar el coseno, seno, tangente, etc.
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
16.- Programa para ingresar el sueldo bruto y un prstamo, realizar los descuentos y mostrar el sueldo
neto
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
17.- Programa para ingresar n nmeros enteros y mostrar el porcentaje de pares y porcentaje de impares
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
18.- Hacer un programa para ingresar el precio de un producto, si el precio es mayor o igual a 120.00 debe
realizarse un descuento del 12%, si el precio est entre 100 y 119 (incluir los extremos) debe realizar un
descuento del 8%, si el precio es menor a 100 no hay descuento.
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
19.- Hacer un programa para ingresar un nmero entero de tres cifras, luego ingresar un digito el cual se
desea buscar en el nmero de las tres cifras. Si el digito existe en el nmero mostrar si existe, caso contrario
no existe.
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
20.- Programa para ingresar dos matrices de 2 x 2 y mostrar la suma de ambos
ublic Class Form1
Dim matriz1(2, 2), matriz2(2, 2), suma(2, 2) As Integer
Dim x, y As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 2
For y = 1 To 2
matriz1(x, y) = InputBox("ingrese numero" & Str(x) & " " &
Str(y))
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 2
For y = 1 To 2
matriz2(x, y) = InputBox("ingrese numero" & Str(x) & " " &
Str(y))
Next
Next
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 2
For y = 1 To 2
suma(x, y) = matriz1(x, y) + matriz2(x, y)
Next
Next
For x = 1 To 2
[Link](Str(matriz1(x, 1)) & " " & Str(matriz1(x, 2)))
[Link](Str(matriz2(x, 1)) & " " & Str(matriz2(x, 2)))
[Link](Str(suma(x, 1)) & " " & Str(suma(x, 2)))
Next
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
End Sub
End Class
21.- Programa para ingresar una matriz de 3 x 3 y mostrar su traspuesta.
Public Class Form1
Dim matriz(3, 3), traspuesta(3, 3) As Integer
Dim x, y As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 3
For y = 1 To 3
matriz(x, y) = InputBox("ingresar numero" & Str(x) & " " &
Str(y))
Next
Next
For x = 1 To 3
For y = 1 To 3
traspuesta(x, y) = matriz(y, x)
Next
Next
For x = 1 To 3
[Link](Str(matriz(1, x)) & " " & Str(matriz(2, x)) & " "
& Str(matriz(3, x)))
[Link](Str(traspuesta(1, x)) & " " & Str(traspuesta(2,
x)) & " " & Str(traspuesta(3, x)))
Next
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
End Class
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
22.- Programa para ingresar tres listas de 3 elementos y luego formar una matriz de 3 x 3 a partir de estos.
Public Class Form1
Dim a(3), b(3), c(3) As Integer
Dim x As Integer
Dim matriz(3, 3) As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 3
a(x) = InputBox("Ingrese numero" & Str(x))
Next
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 3
b(x) = InputBox("ingrese numero" & Str(x))
Next
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
For x = 1 To 3
c(x) = InputBox("ingrese numero" & Str(x))
Next
End Sub
Private Sub Button4_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
matriz(1, 1) = a(1)
matriz(2, 1) = a(2)
matriz(3, 1) = a(3)
matriz(1, 2) = b(1)
matriz(2, 2) = b(2)
matriz(3, 2) = b(3)
matriz(1, 3) = c(1)
matriz(2, 3) = c(2)
matriz(3, 3) = c(3)
For x = 1 To 3
[Link](Str(matriz(x, 1)) & " " & Str(matriz(x, 2)) & " "
& Str(matriz(x, 3)))
Next
End Sub
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
End Class
23.- Hacer un programa para hallar el factorial de un nmero utilizando la recursividad.
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
Centro de Entrenamiento y Actualizacin
en Arquitectura, Ingeniera y Construccin.
Incrementa tu productividad acadmica y laboral
24.- Hacer un programa para ingresar datos a una matriz de 3 x 3 y mostrar el nmero mayor.
Av. Uruguay N 865 San Carlos - Huancayo
Telfono: 064 234228
cedeconsult@[Link]
