UNIVERSIDAD NACIONAL DEL CALLAO

FACULTAD DE INGENIERÍA QUÍMICA 2022B

CURSO: INFORMÁTICA APLICADA PARA INGENIERÍA

LABORATORIO 5

1) Suponga que en una reciente elección hubo 4 candidatos con identificadores

(1, 2, 3, 4). usted habrá de encontrar mediante un programa, el número de
votos correspondiente a cada candidato y el porcentaje que obtuvo respecto
al total de los votantes. el usuario tecleara los votos de manera
desorganizada tal y como se obtuvieron en la elección.

INICIO

VOTO

1 2 3 4
C1 = C1 + 1 C2 = C2 + 1 C3 = C3 + 1 C4 = C4 + 1

X=X+1

NO

X=N

SI

S = C1 + C2 + C3 + C4

1
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

P1 = C1 / S * 100

P2 = C2 / S * 100

P3 = C3 / S * 100

P4 = C4 / S * 100

C1,C2,C3,C4,P1,P2,P3,P4

FIN

PSEUDOCODIGO
INICIO
VARIABLES VOTO, C1, C2, C3, C4, S: ENTERO
Leer Nro
Repetir
LEER VOTO
SEGÚN VOTO HACER
CASO 1: C1 = C1 + 1
CASO 2: C2 = C2 + 1
CASO 3: C3 = C3 + 1
CASO 4: C4 = C4 + 1
FIN SEGÚN
X = X +1
Hasta X = N
S = C1 + C2 + C3 + C4
P1 = (C1 / S) * 100
P2 = (C2 / S) * 100
P3 = (C3 / S) * 100
P4 = (C4 / S) * 100
ESCRIBIR C1, C2, C3, C4, P1, P2, P3, P4
FIN

2
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

 PROGRAMA EN VISUAL BASIC

Public Class Form1

Public VOT, C1, C2, C3, C4, S As Integer
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
VOT = [Link]
[Link](VOT)
[Link] = ""
[Link]()
Select Case VOT
Case 1 : C1 = C1 + 1
Case 2 : C2 = C2 + 1
Case 3 : C3 = C3 + 1
Case 4 : C4 = C4 + 1
End Select
S = C1 + C2 + C3 + C4
End Sub

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim P1, P2, P3, P4 As Double
P1 = (C1 / S) * 100
P2 = (C2 / S) * 100
P3 = (C3 / S) * 100
P4 = (C4 / S) * 100
[Link] = C1
[Link] = C2
[Link] = C3
[Link] = C4
[Link] = P1
[Link] = P2
[Link] = P3
[Link] = P4
End Sub

3
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()
C1 = 0
C2 = 0
C3 = 0
C4 = 0

End Sub

Private Sub Button4_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub
End Class

2) Diseñe un algoritmo que determine la cifra de las unidades de un numero

natural como palabra

Pseudocódigo
Variables Nro, D: Entero: Palabra: String
Leer Nro
D = nro mod 10
Según_sea D hacer
Case 0 : Palabra= “ Cero “
Case 1 : Palabra= “ Uno “
Case 2 : Palabra= “ Dos “
Case 3 : Palabra= “ Tres “
Case 4 : Palabra= “ Cuatro “
Case 5 : Palabra= “ Cinco “
Case 6 : Palabra= “ Seis “
Case 7 : Palabra= “ Siete “
Case 8 : Palabra= “ Ocho “
Case 9 : Palabra= “ Nueve “
Fin segun
Escribir (palabra)
Fin

4
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

3) Diseñe un programa que determine la cantidad de días y el nombre de un

mes conociendo los valores numéricos del mes y del año.

Pseudocódigo
Variables mm, aa, Cant_dia : Entero
Nombre: String
Leer mm, aa
según_sea MM hacer
1 : Nombre =”Enero”
2 : Nombre =”Febrero”
3 : Nombre =“marzo”
4 : Nombre =”Abril”
5 : Nombre =”Mayo”
6 : Nombre =“Junio”
7 : Nombre =”Julio”
8 : Nombre =”Agosto”
9 : Nombre =“Setiembre”
10 : Nombre =”Octubre”
11 : Nombre =”Noviembre”
12 : Nombre =“diciembre”
si_no
Nombre=” Error. de mes”
fin_según

según_sea MM hacer
1, 3, 5, 7, 8, 10 ,12 : Cant_dia = 31
4, 6, 9, 11: Cant_dia = 30
2 : Si aa mod 4 = 0 Entonces
Cant_dia = 29
Si no
Cant_dia = 28
Fin si
fin_según
Escribir(“ El nombre del mes es : “ , Nombre)
Escribir(“ La cantidad de días es: “, Cant_dia )
Fin

4) Realizar un programa que permita validar una fecha ingresada como día,
mes, año, devolviendo un indicador lógico sobre la validez o invalidez de la
fecha ingresada. El año aceptado debe ser mayor 1990.

5) Diseñe un programa que permite ingresar, mediante un botón y de uno en

uno, números en el intervalo de 1 a 5 y muestre luego de cada ingreso
cuantas veces se ingresaron cada uno de los números del 1 al 5 y cuantas
veces se ingresaron otros números.

5
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

Pseudocódigo
Variables Nro, c1, c2, c3, c4, c5, x, N: Entero
Leer N
Repetir
Leer Nro
según_sea Nro hacer
1 : c1 = c1+1
2 : c2 = c2 +1
3 : c3 = c3 +1
4 : c4 = c4 +1
5 : c5 = c5 +1
si_no
c6 = c6 + 1
fin_según
X = X +1
Hasta X = N
Escribir (“Cantidad de veces” , c1, c2 , c3, c4, c5, c6 )
Fin

6) En un peaje se desea saber cuántos vehículos de cada tipo pasaron por el

peaje y la cantidad total de pasajeros por tipo de vehículo. Los tipos de
vehículos a considerar son: 1=automóvil, 2=camión, 3=camioneta,
4=ómnibus, y 5=otros.

6
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

Public Class Form1

Public CANT_PAS, A1, A2, A3, A4, A5 As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim TIP_VEH As String
TIP_VEH = [Link]
CANT_PAS = [Link]
[Link](TIP_VEH & " " & CANT_PAS)
Select Case TIP_VEH
Case "AUTOMOVIL" : A1 = A1 + CANT_PAS
Case "CAMION" : A2 = A2 + CANT_PAS
Case "CAMIONETA" : A3 = A3 + CANT_PAS
Case "OMNIBUS" : A4 = A4 + CANT_PAS
Case Else
A5 = A5 + CANT_PAS
End Select
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = A1
[Link] = A2
[Link] = A3
[Link] = A4
[Link] = A5
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]
End
End Sub
End Class

7) Diseñe un programa que permita ingresar, mediante un botón y de uno en

uno, los sueldos de los empleados de una empresa y muestre luego la
cantidad de sueldos ingresados, el mayor y el menor sueldo ingresado y, el
sueldo promedio.

7
UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

8
 UNIVERSIDAD NACIONAL DEL CALLAO
FACULTAD DE INGENIERÍA QUÍMICA 2022B

Pseudocódigo
{ PROM variables de tipo real }
{ WMENOR, WMAYOR, SUELDO, X, S variables de tipo entero }

Leer N
WMENOR=99999
Repetir
Leer SUELDO

Si SUELDO > WMAYOR Entonces

WMAYOR = SUELDO
Fin si

Si SUELDO < WMENOR Entonces

WMENOR = SUELDO
Fin si

S = S + SUELDO
X=X+1

Hasta X = N
PROM = S / X
Escribir X, WMAYOR, WMENOR, PROM
Fin

8) Escriba un programa tal, que dados como datos N números enteros, obtenga
la suma de los números impares y el promedio de los números pares.
Pseudocódigo
Variables nro, spar, cpar, Simp, x : Entero
Prom_pares : Real
Leer N
Repetir
Leer Nro
Si Nro mod 2 = 0 Entonces
Spar = Spar + Nro
Cpar = Cpar + 1
Si no
Simp = Simp + Nro
Fin si
X=X+1
Hasta X = N
Prom_pares = Spar / Cpar
Escribir ( “La suma de nros. Impares es: “, Simp )
Escribir ( “El promedio de nros. Pares es: “, Prom_pares )
Fin