PROGRAMACI •PROFESOR.
JOSE LUIS PEREA PEREZ
ON •ALUMNO:LUIS GERARDO GOMEZ CISNEROS
PR_1
•Dim n1 As Double
Realice un programa en visual basic tal •Dim n2 As Double
que dado el costo de un articulo vendido y •Dim r As Double
PROBLEMA 1.1
la cantidad de dinero entregada por el •n1 = Val([Link])
cliente, calcule e imprima el cambio que •n2 = Val([Link])
se debe entregar al mismo. •r = n2 - n1
•[Link] = CStr(r)
•Dim n1 As Double
•Dim n2 As Double
Realice un programa en visual basic tal •Dim r As Double
PROBLEMA 1.2
que dadas la base y la altura de un •n1 = Val([Link])
triangulo, calcule e imprima la superficie. •n2 = Val([Link])
•r = n2 * n1 / 2
•[Link] = CStr(r)
•Dim pes, kil As Double
Realice un programa en visual basic tal que •pes = Val([Link])
dado como datos el nombre de un dinosaurio, •lon = Val([Link])
su peso y su longitud, expresados estos dos •c = [Link]
PROBLEMA 1.3
últimos en libras y pies respectivamente; •a = pes / 2.205
escriba el nombre del dinosaurio, su peso •b = lon * 0.3047
expresado en kilogramos y su longitud •[Link] = CStr(c)
•[Link] = CStr(a)
expresada en metros.
•[Link] = CStr(b)
•Dim g As Double
Realice un programa en visual basic que resuelva
el problema que tienen en una gasolinera. Los •g = Val([Link])
surtidores de la misma registran lo que “surten” en PROBLEMA 1.4
galones, pero el precio de la gasolina está fijado en
litros. El diagrama de flujo debe calcular e •a = 3.785 * 8.2 * g
imprimir lo que hay que cobrarle al cliente.
•[Link] = CStr(a)
•Dim r, h As Double
•h = Val([Link])
Realice un programa en visual basic tal que •r = Val([Link])
dado como datos el radio y la altura de un PROBLEMA 1.5
cilindro, calcule e imprima el área y su •a = 3.1416 * r * h * 2
volumen. •b = 3.1416 * (r * r) * h
•[Link] = CStr(a)
•[Link] = CStr(b)
PR_2
Dim sonidos, temperatura As Double
sonidos = InputBox("dame los grillidos")
If sonidos < 0 Then
temperatura = 0
Else
If sonidos > 0 Then
temperatura = (sonidos / 4) + 40
End If
End If
temgr = temperatura
MsgBox ("la temperatura es:" & Str(temgr))
• Realice un programa en visual
basic en el cual el número de
sonidos emitidos por un grillo
en un minuto, es una función
de la temperatura. Como
resultado de esto, es posible
determinar el nivel de la
temperatura haciendo uso de
un grillito como termómetro.
PR_2.1
Dim p, q, exp, val, val2 As Double
p = InputBox("dame valor p")
q = InputBox("dame valor q")
exp = (p ^ 3) + (q ^ 4) - (2 * p ^ 2)
val = p
val2 = q
• Realice un programa en visual basic tal que dado
If exp < 680 Then
resul = val
como datos los valores enteros P y Q, determine
resul1 = val2
End If
si los mismos satisfacen la siguiente expresión:
MsgBox ("valor p es:" & Str(resul))
MsgBox ("valor q es:" & Str(resul1))
PR_2.2
Dim a, b, c, dis, x1, x2 As Double
a = InputBox("dame el valor de a")
b = InputBox("dame el valor de b")
c = InputBox("dame el valor de c")
dis = (b * b) - 4 * a * c
x1 = (-b + dis ^ (1 / 2)) / (2 * a)
x2 = ((-b) - (dis) ^ (1 / 2)) / (2 * a)
• Realice un programa en visual basic para calcular
If dis >= 0 Then
las raíces reales, de ser posible, de una ecuación
resul = x1
resul2 = x2 de segundo grado.
End If
[Link] = Str(resul)
[Link] = Str(resul2)
PR_2.3
Dim cal1, cal2, cal3, cal4, cal5, promedio, resultado As Double
cal1 = InputBox("dame la calificacion 1")
cal2 = InputBox("dame la calificacion 2") • Realice un programa en visual basic tal que dado
cal3 = InputBox("dame la calificacion 3")
cal4 = InputBox("dame la calificacion 4")
cal5 = InputBox("dame la calificacion 5")
como datos la matrícula y 5 calificaciones de un
promedio = (cal + cal2 + cal3 + cal4 + cal5) / 5 alumno; imprima la matrícula, el promedio y la
If promedio >= 6 Then
resultado = ("aprobado")
palabra “aprobado” si el alumno tiene un
Else
resultado = ("reprobado") promedio mayor o igual que 6, y la palabra “no
End If
[Link] = resultado aprobado” en caso contrario.
PR_2.4
Dim num As Double
num = InputBox("dame un valor")
If num > 0 Then
resul = "positivo"
Else
If num = 0 Then
resul = "nulo"
Else
If num < 0 Then
resul = "negativo"
End If
End If
End If
[Link] = CStr(resul)
• Realice un programa en visual
basic tal que dado como dato
un número entero, determine
e imprima si el mismo es
positivo, negativo o nulo.
PR_2.5
num1 = InputBox("dame el numero 1")
num2 = InputBox("dame el numero 2")
num3 = InputBox("dame el numero 3")
If (num1 < num2) And (num2 < num3) Then
MsgBox ("orden creciente")
Else
MsgBox ("no esta en orden creciente")
End If
• Realice un programa en visual
basic tal que dado como datos
de entrada tres números
enteros, determine si los
mismos están en orden
creciente.
PR_2.7
Dim compra, des As Single
compra = InputBox("dame el valor de la compra")
If compra < 500 Then
[Link] = compra
Else
If compra >= 500 & compra < 1000 Then
[Link] = compra - (compra * 0.05)
Else
If compra >= 1000 & compra < 7000 Then
[Link] = compra - (compra * 0.11)
Else
If compra >= 7000 & compra < 15000 Then
[Link] = compra - (compra * 0.18)
Else
If compra > 15000 Then
[Link] = compra - (compra * 0.25)
End If
End If
End If
End If
End If
• Realice un programa en visual
basic tal que dado el monto
de la compra de un cliente,
determine lo que el mismo
debe pagar.PR_2.8
Dim clave, min, precio As Double
clave = Val(InputBox("dame la clave"))
min = Val(InputBox("dame los min"))
Select Case clave
Case 12
precio = min * 2
Case 15
precio = min * 2.2
Case 18
precio = min * 4.5
• Realice un programa en visual basic que le
Case 19
precio = min * 3.5
Case 23, 25
permita calcular e imprimir el costo total de una
llamada.
precio = (min * 6)
Case 29
precio = min * 5
Case Else
precio = "error"
End Select
MsgBox ("el costo de la llamada sera de:" & Str(precio))
PR_2.11
Dim suel, cat As Double
Dim he, phe, nsue As Double
cat = Val(InputBox("dame la categoria"))
• Realice un programa en visual basic que permita
suel = Val(InputBox("dame el sueldo"))
he = Val(InputBox("dame las horas extras"))
Select Case cat
Case 1
calcular lo que hay que pagarle a un trabajador
phe = 30
Case 2
phe = 38
Case 3
teniendo en cuenta su sueldo y las horas extras
phe = 50
Case 4
phe = 70
Case Is > 4
phe = 0
Case Else
phe = "error"
End Select trabajadas. Para el pago de horas extras se toma
en cuenta la categoría del trabajador.
If he > 30 Then
nsue = suel + 30 * phe
Else
If he < 30 Then
nsue = suel + he * phe
End If
MsgBox ("el sueldo nuevo es:" & Str(nsue))
PR_2.12
• Realice un programa en visual Basic tal que dado como
datos la matricula de un alumno, la carrera en la que está
inscrito, su semestre y su promedio; determine si el mismo
es apto para pertenecer a alguna de las facultades menores
que tiene la universidad. Si el alumno es aceptado teniendo
en cuenta las especificaciones que se listan abajo, se debe
imprimir su matrícula, carrera y la palabra “aceptado”.
PR_2.13
PR_3
Dim n, i As Single
Dim suma As Single
n = Val(InputBox("hasta que numero deseas"))
suma = 0
For i = 1 To n
If i Mod 2 = 1 Then
suma = suma + 1 / i • Realice un programa en visual basic que lea un número
entero N y calcule el resultado de la siguiente serie
Else
suma = suma - 1 / i
End If
Next
MsgBox ("la suma de la serie es" + Str(suma))
PR_3.3
Dim N, nom, SUE, I As Single
Dim AUMENTO As Single
N = Val(InputBox("DAME EL NUMERO DE TRABAJADORES"))
nom = 0
For I = 1 To N
SUE = Val(InputBox("DAME EL SUELDO"))
If SUE < 1000 Then
AUMENTO = SUE * 1.15
MsgBox ("TU AUMENTO SERA DE :" & Str(AUMENTO))
nomina = nom + AUMENTO
Else
• Calcule el aumento de sueldo para un grupo de empleados
de una empresa teniendo en cuenta el siguiente criterio:
If SUE >= 1000 Then
AUMENTO = SUE * 1.12
MsgBox ("TU AUMENTO SERA DE :" & Str(AUMENTO))
Else
MsgBox ("TU NO TIENES AUMENTO")
End If
End If
nom = nom + AUMENTO
Next
MsgBox ("EL TOTAL DE LA NOMINA SERA DE :" & Str(nomina))
PR_3.4
GRACIAS
