Universidad Tecnológica de Panamá

Centro Regional de Chiriquí

Facultad de Ingeniería Civil

Portafolio Final Semestral de:

Programación

MIRIAM ENEIDA VEGA

8-969-1335

Profesor: Marlenis Pimentel

Grupo: 21C231

Viernes 14/Mayo/2021
 Tabla de Contenido

1. Presentación de la asignatura: ………………………………………………………

2. Carta de presentación: ……………………………………………………………….…….
3. Asignaciones y bitácora de aprendizajes: …………………………………………
4. Parciales……………………………………………………………………………………………….
5. Materiales de apoyo a la asignatura: …………………………………………………
6. Consideraciones finales de la asignatura: …………………………………………….
7. Rúbrica……………………………………………………………………………………………….
8. Área para evaluación del profesor………………………………………………..
 Presentación de la Asignatura
El objetivo de la programación es la de crear software, que después será
ejecutado de manera directa por el hardware de la computadora, o a través
de otro programa.

La programación se guía por una serie de reglas y un conjunto pequeño de

órdenes, instrucciones y expresiones que tienden a parecerse a una lengua
natural acotada. El lenguaje de programación, son todas aquellas reglas o
normas, símbolos y palabras particulares empleadas para la creación de un
programa y con él, ofrecerle una solución a un problema determinado.

El lenguaje de programación es el responsable de que la computadora siga

paso a paso las órdenes que el programador ha diseñado en el algoritmo. Con
esto se entiende que el lenguaje de programación es una especie de
intermediario entre el ordenador y el usuario, para que este último pueda
darle respuesta a los problemas mediante la computadora y haciendo uso de
palabras (funciones), que le interpretan dicho programa al computador para
la realización de ese trabajo.
 Carta de Presentación

MIRIAM ENEIDA VEGA

Hola, soy Miriam, tengo 20 años, nací el 10 de noviembre del 2000 en la
ciudad de Panamá, pero me crie en Chiriquí, actualmente vivo en Puerto
armuelles. Tengo 1 mellizo llamado
Javier Vega y 9 hermanos; mi
mama se llama Miriam Saldaña y
mi papa, Altalicio Morales, tengo 2
mascotas: mi perrito se llama
Rocko y un loro llamado Rheagal.
En el 2012, me gradué de primaria
de la escuela bilingüe de puerto
llamada Las Palmas; por lo que
manejo el idioma ingles(avanzado)
y coreano(básico) ; y en el año
2018, me gradué de secundaria del
Colegio San Antonio de Padua con
el bachiller de Ciencias y Letras;
Escogí la carrera de civil, porque
me llama la atención el área de
construcción en todos sus sentidos. Mis metas son poder graduarme, hacer
sentir a mis padres orgullosos de mí, poder viajar a otro país a trabajar y
compartir mis habilidades por el mundo.
Mis hobbies son ver series coreanas, chinas y tailandesas, escuchar música
coreana, y estoy aprendiendo el idioma coreano, turco y chino.
 Asignaciones y bitácoras

Tarea 1
1.
Module Program
Sub Main()

Dim m, ft As Decimal
[Link]("convertidor de medidas")
[Link]("introduzca su altura en m")
m = [Link]()
ft = (m * 3.28084)
[Link]("su altura en pies es de" & ft & " ft")
m = [Link]()

End Sub
End Module

2.
Module Program
Sub Main()

Dim m As Decimal
Dim ft As Decimal
Dim pulgadas As Decimal
Dim m1 As Decimal
Dim m2 As Decimal
pulgadas = 39.37
ft = 0.08333
[Link]("escriba la medida en metros")
m = [Link]()
m1 = m * pulgadas
m2 = m1 * ft
[Link](" escriba la medida en metros equivale a " & m1 & "
pulgadas ")
[Link]()
[Link](" la medida de " & m1 & " pulgadas equivale a " & m2 & "
ft ")
[Link]()

End Sub
End Module

3.

Module Program
 Sub Main()

[Link]("costo de rellenar un tanque")

Dim p As Decimal
Dim g As Decimal
Dim l As Decimal
Dim m1 As Decimal
Dim m2 As Decimal
m1 = 0.264
m2 = 0.8
[Link]("capacidad en galones ")
g = [Link]()
l = g * m1
p = l * m2
[Link]("la capacidad en l es de " & l & "")
[Link]("el precio toal es de " & p & " centavos ")
[Link]()

End Sub
End Module

4.
Module Program
Sub Main()
[Link]()
Dim a As Decimal
Dim r As Decimal
Dim c As Decimal
Dim d As Decimal
c = 39.37
d = 0.5
[Link]("ingrese medida de r ")
r = [Link]()
a = (c * d * r)
[Link]("la multipicacion es " & a & " dolares ")
[Link]()
End Sub
End Module

5.
Module Program
Sub Main()
[Link]()
Dim p As Decimal
Dim i As Decimal
Dim d As Decimal
Dim t1 As Decimal
Dim t2 As Decimal
[Link]("ingrese p del articulo ")
p = [Link]()
[Link]("ingrese el d ")
d = [Link]()
[Link]("diga el i")
i = [Link]()
t1 = p - ((p * d) / 100)
 t2 = ((t1 * i) / 100) + t1
[Link]("el total del articulo es de " & t2 & " dolares ")
[Link]()
End Sub
End Module

LA TAREA 2 AUN NO LA HE ENTREGADO

Tarea 3

PROBLEMA 1
 Se requiere un algoritmo para obtener la nota
promedio de la materia de programación de un
grupo de N alumnos.

Module Program
Sub Main()
Dim nota, n, prom, suma, j As Double
[Link]("inserte la cantidad de alumnos en el salon")
n = [Link]
suma = 0
j = 1
[Link]("inserte la nota de los alunmos")

Do
nota = [Link]
suma = suma + nota
j = j + 1
Loop While j <= n

prom = (suma) / (n)

[Link]("la nota promedio es " & prom)
[Link]()

End Sub
End Module
Imports System

Module Program
Sub Main()
Dim nota, suma, prom, j As Double
suma = 0
For c = 1 To 10
nota = [Link]()
suma = suma + nota
Next
[Link]("la nota promedio es de " & nota)
[Link]()

End Sub
End Module

Imports System

Module Program
Sub Main()
Dim nota, suma, prom, j As Double
suma = 0
j = 1
Do
nota = [Link]()
suma = suma + nota
j = j + 1
Loop Until j > 10
[Link]("la nota promedio es de " & nota)
[Link]()

End Sub
End Module

Module Program
Sub Main()
Dim nota, suma, prom, j As Double
suma = 0
j = 1
Do While j <= 10
nota = [Link]()
suma = suma + nota
 j = j + 1
Loop
[Link]("la nota promedio es de " & nota)
[Link]()

End Sub
End Module

Module Program
Sub Main()
Dim nota, suma, prom, j As Double
suma = 0
j = 1
While j <= 10
nota = [Link]()
suma = suma + nota
j = j + 1
End While
[Link]("la nota promedio es de " & nota)
[Link]()

End Sub
End Module

Problema 2

 Se requiere un algoritmo para determinar

cuánto ahorrará un estudiante en 6 meses, si
al final de cada mes deposita cantidades
variadas de dinero; además, se requiere
saber cuánto lleva ahorrado cada mes.
Module Program
Sub Main()
Dim deposito, ahorro, totalmes As Double
Dim j As Integer

j = 1
[Link]("introduzca la cantidad de mese que va a ahorra")
ahorro = [Link]()
While j <= ahorro
[Link]("introduzca el monto a depositar el mes " & j)
 deposito = [Link]()
totalmes = totalmes + deposito
[Link]("lleva ahorrado a la fecha " & totalmes)

j = j + 1
End While

[Link]()

End Sub
End Module

Module Program
Sub Main()
Dim deposito, ahorro, totalmes As Double
Dim j As Integer

j = 1
[Link]("introduzca la cantidad de mese que va a ahorra")
ahorro = [Link]()
Do While j <= ahorro
[Link]("introduzca el monto a depositar el mes " & j)
deposito = [Link]()
totalmes = totalmes + deposito

j = j + 1
Loop
[Link]("lleva ahorrado a la fecha " & totalmes)
[Link]()

End Sub
End Module

Module Program
Sub Main()
Dim deposito, ahorro, totalmes As Double
Dim j As Integer
j = 1
[Link]("introduzca la cantidad de mese que va a ahorra")
ahorro = [Link]()
Do
[Link]("introduzca el monto a depositar el mes " & j)
deposito = [Link]()
totalmes = totalmes + deposito

j = j + 1
 Loop While j <= ahorro
[Link]("lleva ahorrado a la fecha " & totalmes)
[Link]()

End Sub
End Module

Module Program
Sub Main()
Dim deposito, ahorro, totalmes As Double
Dim j As Integer
j = 1
[Link]("introduzca la cantidad de mese que va a ahorra")
ahorro = [Link]()
Do
[Link]("introduzca el monto a depositar el mes " & j)
deposito = [Link]()
totalmes = totalmes + deposito
j = j + 1
Loop Until j > ahorro
[Link]("lleva ahorrado a la fecha " & totalmes)
[Link]()

End Sub
End Module

Module Program
Sub Main()
Dim deposito, ahorro, totalmes As Double
Dim j As Integer
j = 1
[Link]("introduzca la cantidad de mese que va a ahorra")
ahorro = [Link]()
For j = 1 To 10

[Link]("introduzca el monto a depositar el mes " & j)

deposito = [Link]()
totalmes = totalmes + deposito
Next
[Link]("lleva ahorrado a la fecha " & totalmes)
[Link]()

End Sub
End Module
Problemas de la clase

Module Module1
Sub Main()
Dim c, su, va As Double
su = 0
c=1
While c <= 10
va = [Link]()
su = su + va
c=c+1
End While
[Link]("La suma de 10 datos es " & su)
[Link]()
End Sub
End Module

Module Module1
Sub Main()
Dim c, su, va as Double
su = 0
c=1
Do While c <= 10
va = [Link]()
su = su + va
c=c+1
Loop
 [Link]("La suma de 10 datos es " & su)
[Link]()
End Sub
End Module

Module Module1
Sub Main()
Dim c, su, va As Double
su = 0
c=1
Do
va = [Link]()
su = su + va
c=c+1
Loop While c <= 10
[Link]("La suma de 10 datos es " & su)
[Link]()
End Sub
End Module

Module Module1
Sub Main()
Dim c, su, va As Double
su = 0
c=1
Do
va = [Link]()
su = su + va
c=c+1
 Loop Until c > 10
[Link]("La suma de 10 datos es " & su)
[Link]()
End Sub
End Module

Module Module1
Sub Main()
Dim c, su, va As Double
su = 0
For c = 1 To 10
va = [Link]()
su = su + va
Next
[Link]("La suma de 10 datos es " & su)
[Link]()
End Sub
End Module

Tarea 4
1. Una agencia de viajes, ofrece paquetes de viaje a diferentes destinos. El destino 1 es
a Cancún y tiene un costo de 2000, el destino 2 es a Centro América y tiene un costo
de 1000 y el destino 3 es para España, tiene un costo de 3000. 5 personas compran
diferentes destinos, calcule el costo por destino y el costo total.

Module Module1

Sub Main()
Dim c, dest, cost1, cost2, cost3, total1, total2, total3, total As Double
[Link]("Bienvenidos a Viajes Turísticos Américas")
[Link]("Presentamos los siguientes destinos: El destino 1 es a
Cancún y tiene un costo de 2000, el destino 2 es a Centro América y tiene un costo
de 1000 y el destino 3 es para España, tiene un costo de 3000")
c = 1
total1 = 0
total2 = 0
 total3 = 0
Do While c <= 5
[Link]("¿Qué destino desea elegir?")
dest = [Link]()
Select Case dest
Case 1
[Link]("Destino Seleccionado: Cancún")
cost1 = 2000
[Link]("Precio por persona: " & cost1 & " dólares")
total1 = total1 + cost1
Case 2
[Link]("Destino Seleccionado: Centro América")
cost2 = 1000
[Link]("Precio por persona: " & cost2 & " dólares")
total2 = total2 + cost2
Case 3
[Link]("Destino Seleccionado: España")
cost3 = 3000
[Link]("Precio por persona: " & cost3 & " dólares")
total3 = total3 + cost3
Case Else
[Link]("Este numero no coincide con ningún destino
registrado. Favor de elegir un destino predeterminado")
End Select
c = c + 1
total = total1 + total2 + total3
Loop
[Link]("El costo total por región es de:")
[Link]("Costo por destino a Cancún: " & total1 & " dólares")
[Link]("Costo por destino a Centro América: " & total2 & "
dolares")
[Link]("Costo por destino a España: " & total3 & " dólares")
[Link]("El costo total de los viajes es de " & total & "
dolares")
[Link]()

End Sub

End Module

2. Realice un seudocódigo en DevC++ para calcular el pago que debe realizar un

comprador por 5 artículos. Los artículos con clave 1 tiene un descuento del 10%, los
artículos con clave 2 tiene un descuento del 15%, los artículos con clave 3, tiene un
descuento del 25%, además debe pagar el impuesto que es del 10%.

Module Module1

Sub Main()

Dim c, clave, precio, precio2, precio3, total1, total2, total3, total As

Double
[Link]("Bienvenidos al comercio de Miriam <3")
 [Link]("Presentamos las siguientes opciones: Los artículos con
clave 1 tiene un descuento del 10%, los artículos con clave 2 tiene un descuento del
15%, los artículos con clave 3, tiene un descuento del 25%, además debe pagar el
impuesto que es del 10%. ")
c = 1
total1 = 0
total2 = 0
total3 = 0

Do While c <= 5

[Link]("¿Qué clave desea elegir?")

clave = [Link]()

Select Case clave

Case 1

[Link]("Consta con un descuento del 10% mas 10% de

impuesto")
[Link]("indroduzca el precio")
[Link]()

total1 = precio - 0.1 + 0.1

[Link]("Precio ah pagar: " & total1 & " dólares")

Case 2

[Link]("Consta con un descuento del 15% mas 10% de

impuesto")
[Link]("indroduzca el precio2")
[Link]()

total2 = precio2 - 0.15 + 0.1

[Link]("Precio ah pagar: " & total2 & " dólares")

Case 3

[Link]("Consta con un descuento del 25% mas 10% de

impuesto")
[Link]("indroduzca el precio3")
[Link]()

total3 = precio3 - 0.25 + 0.1

[Link]("Precio ah pagar: " & total3 & " dólares")

Case Else

[Link]("Este numero no coincide con ningúna clave

registrada. Favor de elegir una clave predeterminada")

End Select
 c = c + 1

total = total1 + total2 + total3

Loop

[Link]("El precio total a pagar es de:")

[Link]("Costo por la clave 1 : " & total1 & " dólares")
[Link]("Costo por la clave 2: " & total2 & " dolares")
[Link]("Costo por la clave 3: " & total3 & " dólares")
[Link]("El costo total de las claves es de " & total & "
dolares")
[Link]()
End Sub

End Module

3. El gerente de una compañía automotriz desea determinar el impuesto que va a pagar

por 10 de los automóviles que posee, además del total que va a pagar por cada
categoría y por todos los vehículos, basándose en la siguiente clasificación:
• Los vehículos con clave 1 pagan 10% de su valor.
• Los vehículos con clave 2 pagan 7% de su valor.
• Los vehículos con clave 3 pagan 5% de su valor.
Module Module1

Sub Main()

Dim c, clave, precio, precio2, precio3, total1, total2, total3, total As

Double
[Link]("Bienvenidos a la compañia automotriz de Miriam <3")
[Link]("Presentamos las siguientes opciones: Los vehículos con
clave 1 pagan 10% de su valor, Los vehículos con clave 2 pagan 7% de su valor, Los
vehículos con clave 3 pagan 5% de su valor")
c = 1
total1 = 0
total2 = 0
total3 = 0

Do While c <= 10

[Link]("¿Qué clave desea elegir?")

clave = [Link]()

Select Case clave

Case 1

[Link]("pagara un 10% de su valor")

[Link]("")
precio = total1 + (10 / 100)
 [Link]()

[Link]("Precio ah pagar: " & precio & " dólares")

Case 2

[Link]("pagara un 7% de su valor")
[Link]("")
precio2 = total2 + (7 / 100)

[Link]()

[Link]("Precio ah pagar: " & precio2 & " dólares")

Case 3

[Link]("pagara un 5% de su valor")
[Link]("")
precio3 = total3 + (5 / 100)

[Link]()

[Link]("Precio ah pagar: " & precio3 & " dólares")

Case Else

[Link]("Este numero no coincide con ningúna clave

registrada. Favor de elegir una clave predeterminada")

End Select

c = c + 1

total = total1 + total2 + total3

Loop

[Link]("El precio total a pagar es de:")

[Link]("Costo por la clave 1 : " & precio & " dólares")
[Link]("Costo por la clave 2: " & precio2 & " dolares")
[Link]("Costo por la clave 3: " & precio3 & " dólares")
[Link]("El costo total de las claves es de " & total & "
dolares")
[Link]()
End Sub

End Module

Tarea 5
 1.
Module Module1
Sub Main()

Dim i, exo As Double

i = 1
exo = 0
[Link]("Numeros pares")
While i <= 50
exo = exo + 2
[Link](exo)
i = i + 1

End While
End Sub
End Module

2.
Module Module1
Sub Main()

Dim m, i, j, vM, vN, l As Integer

[Link]("ingrese la cantidad de valores")
m = [Link]()
i = 1
Do
[Link](".......................................")
[Link]("ingrese el valor")
j = [Link]()

If j < 0 Then
vN = vN + 1
[Link](" el valor es menor de cero")
Else
If j > 0 Then
vM = vM + 1
[Link](" el valor es mayor de cero")

Else
l = l + 1
[Link]("el valor es igual a cero")

End If
End If
i = i + 1

Loop Until i > m

[Link]("..........................")
[Link]("valores menores a cero" & vN)
[Link]("valores mayores a cero" & vM)
[Link]("valores iguales a cero" & l)
End Sub
 End Module

3.
Module Module1
Sub Main()
Dim j As Double
j = 49
Do
[Link](j)
j = j - 2

Loop While j >= 1

[Link]()

End Sub
End Module

4.
Module Module1
Sub Main()
Dim j, l As Integer

For j = 1 To 12
[Link]("....................")
[Link]("tabla del " & j)
[Link]("....................")
For l = 1 To 12
[Link](j & " x " & l & " = " & j * l)
Next
Next
[Link]()
End Sub
End Module

Tarea 6
 Tarea 7

1.

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

[Link]
Dim r2, pi, respuesta As Integer
r2 = [Link]
pi = [Link]
respuesta = r2 * pi
[Link] = respuesta

End Sub
End Class
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

[Link]
Dim base, altura, respuesta As Integer
base = [Link]
altura = [Link]
respuesta = (base * altura) / 2
[Link] = respuesta

End Sub
End Class
Tarea 8
 Tarea 9

2. El Gobierno determinará el bono solidario en base a la siguiente

información, si es mayor a los 70 años, debe llenar un formulario cada
mes (solo indicar si, no), no debe recibir capacitación. Si está en entre la
edad de 18 y 69 años debe llenar el formulario e indicar que capacitación
desea recibir:
3.
• Habilidades blandas a nivel personal
• Ciberseguridad de datos personales
• Introducción al emprendimiento
• Gastronomía
El seudocódigo debe reflejar: Nombre, edad, formulario (si, no) Nombre del
curso que desea recibir
Tarea 10
 Tarea 11
Modo Consola en Visual Basic
Problema 1. (Valor 20 pts.).
Realice un seudocódigo para calcular el mantenimiento de 5 equipos de una
planta industrial, de acuerdo al promedio de horas de uso, como sigue:
Si el promedio de horas es menor o igual a 1000 horas, el mantenimiento es de B/.
250.00
Si el promedio de horas es mayor a 1000 horas, el mantenimiento aumenta en
15% sobre 250.00
Si el promedio de horas es mayor a 2000 horas, el mantenimiento aumenta en
25% sobre 250.00
Además calcule el mantenimiento total

Problema 2. (Valor 20 pts.).

Realice un pseudocódigo que revise la temperatura en un cuarto de enfriamiento,
en Celsius, tres veces al día, la temperatura debe estar por debajo de 0, para que
congele. Si la temperatura está por arriba de cero debe enviar un msg de alerta.
 LABORATORIO (PROF. BALTAZAR)

Tarea 1: Video de auto presentación

Tarea 2:
1. Una tienda ofrece un descuento del 15% sobre el total de la compra y un
cliente
desea saber cuanto deberá pagar finalmente por su compra.

2. Un alumno desea saber cual será su calificación final en la materia de

Algoritmos.
Dicha calificación se compone de los siguientes porcentajes:
55% del promedio de sus tres calificaciones parciales.
30% de la calificación del examen final.
15% de la calificación de un trabajo final.
3. Un maestro desea saber que porcentaje de hombres y que porcentaje de
mujeres hay
en un grupo de estudiantes.
4. Realizar un algoritmo que calcule la edad de una persona.
Tarea 3:
 Diseñe un programa que al introducir un dígito del 0 a 9, muestre como se
lee.
2. Se desea calcular el sueldo de un trabajador, a partir de las hora
trabajadas en la semana y la clase a la que pertenece: Trabajadores Clase
“A”, se les paga $7 por hora. Trabajadores clase “B”, se paga $5 por hora.
Trabajadores clase “C”, se les paga $4 por hora y los de clase “D”, $3.5 por
hora.
3. Un comerciante se dedica a la venta de sillas únicamente. Vende tres tipos
de sillas: tipo A, tipo B y Tipo C los precios son $5.00, $7.00 y $10.00
respectivamente. Por cada cinco sillas compradas del tipo A, del tipo B o del
tipo C los clientes reciben un descuento de 3%, 5% y 7%, las demás se
cobran a precio normal. Diseñe un programa que imprima en forma de
factura, con el nombre, precio unitario, precio total, nombre de la tienda, etc
lo que debe cancelar cada cliente en concepto de la compra.
4. En un hospital existen tres áreas: Ginecología, Pediatría, Traumatología. El
presupuesto anual del hospital se reparte conforme a la sig. tabla:
Área Porcentaje del presupuesto
Ginecología 40%
Traumatología 30%
Pediatría 30%
Obtener la cantidad de dinero que recibirá cada área, para cualquier monto
presupuestal.
5. Un alumno desea saber cual será su promedio general en las tres materias
mas
difíciles que cursa y cual será el promedio que obtendrá en cada una de ellas.
Estas
materias se evalúan como se muestra a continuación:
La calificación de Matemáticas se obtiene de la sig. manera:
Examen 90%
Promedio de tareas 10%
En esta materia se pidió un total de tres tareas.
La calificación de Física se obtiene de la sig. manera:
Examen 80%
Promedio de tareas 20%
En esta materia se pidió un total de dos tareas.
La calificación de Química se obtiene de la sig. manera:
Examen 85%
Promedio de tareas 15%
En esta materia se pidió un promedio de tres tareas.
Tarea 3.1
 Tarea 4.1

1. Una persona debe realizar un muestreo con N personas para determinar el promedio de peso de
los niños, jóvenes, adultos y viejos que existen en su zona habitacional. Se determinan las
categorías con base en la sig, tabla:
CATEGORIA EDAD
Niños 0 - 12
Jóvenes 13 - 29
Adultos 30 - 59
Viejos 60 en adelante
2. En una empresa se requiere calcular el salario semanal de cada uno de los n obreros que laboran
en ella. El salario se obtiene de la sig. forma:
Si el obrero trabaja 40 horas o menos se le paga $20 por hora
Si trabaja mas de 40 horas se le paga $20 por cada una de las primeras 40 horas y $25
por cada hora extra.
Determinar cuantos hombres y cuantas mujeres se encuentran en un grupo de n personas, suponiendo
que los datos son extraídos alumno por alumno.
 Tarea 4.2
1. Calcular el promedio de un alumno que tiene 7 calificaciones. Imprimir el promedio del estudiante.
2. Leer 10 números y obtener su cubo y su cuarta.
3. Leer 15 números negativos y convertirlos a positivos e Escribir dichos números.
 Tarea 4.3

1. El Depto. de Seguridad Publica y Transito de Panamá desea saber, de los n autos que entran a la
ciudad de México, cuantos entran con calcomanía de cada color. Conociendo el ultimo dígito de
la placa de cada automóvil se puede determinar el color de la calcomanía utilizando la sig.
relación:
DÍGITO COLOR
1o2 amarilla
3o4 rosa
5o6 roja
7o8 verde
9o0 azul
 Parciales
EXAMEN PARCIAL 1

Nombre: MIRIAM ENEIDA VEGA Total: 100 pts.

Cédula: 8-969-1335 Puntos Obtenidos:
____
Fecha: Viernes 14 de mayo del 2021
Observación: Escriba el seudocódigo en Visual Basic, modo consola, copie el
seudocódigo y lo pega en este archivo, es decir que no lo pegue como imagen.
Guarde el archivo con su apellido, nombre Parcial 1 Civil…ejemplo: Perez Maria
Parcial 1.

Problema 1. El Supermercado Valle de la Luna tiene descuentos para los que

cambien su bono solidario. Si el monto de la compra es hasta 50, aplican un 10%,
si las compras van de 51 a 100, el descuento es de 15%, y de 101 a en adelante, el
descuento es de 20%. El resultado debe imprimir en pantalla el valor de la compra,
el porcentaje de descuento y el pago total. (Valor 20 pts.)

Ejemplo: El monto de la compra es por 100, el descuento es de 15%, pago total 85

Nota: el monto de la compra ya incluye el impuesto a los artículos que pagan

impuesto
Module Module1

Sub Main()
Dim cantidad, precio As Double
[Link]("Descuentos para los que cambien su bono solidario. ")
[Link]("Introduzca el precio de compra")
cantidad = [Link]()
If 51 > cantidad < 100 Then
precio = (cantidad - 0.15 * cantidad)
End If
If cantidad < 50 Then
precio = (cantidad - 0.1 * cantidad)
End If

If cantidad > 101 Then

precio = (cantidad * 0.2)
End If
[Link]("El precio de la compra es de " & precio & " dólares")
 cantidad = [Link]()
End Sub

End Module

Problema 2. Una compañía de seguros para autos ofrece dos tipos de póliza:
cobertura amplia (A) y daños a terceros (B). Para el plan A, la cuota base es de
$2,000, y para el B, de $1000. A ambos planes se les carga 25% del costo si la
persona que conduce es hombre. Solo para el plan A, si es mujer y tiene de 40
años en adelante, se le carga 15%, mujer con menos de 40 años sólo 10%. Para
el plan B si es mujer no importa la edad se le carga 20%. Todos estos cargos se
realizan sobre el costo base. (Valor 30 pts.).

Problema 3. Determine cuando le toca vacunarse de acuerdo a la zona donde usted

vive, en el Distrito de David. Recuerde que debe tener de 60 años en adelante para
recibir la vacuna Utilice la estructura Según..Hacer para elegir la Zona. (Valor 20
pts.)

Zona Ubicación Fecha

1 David Sur Primera semana de
mayo
2 David Este Segunda semana de
mayo
3 David Cabecera Tercera semana de
mayo
4 Otras Cuarta semana de
mayo

Module Module1

Sub Main()

Dim c, zona As Double

[Link]("Vacunas contra el covid-19")

[Link]("el proceso de vacunacion se realizara en las siguentes

zonas: zona 1: David sur, zona 2 : David este, zona 3 : Davis cabezera , zona 4 :
otras")

[Link]("¿Qué zona desea elegir?")

zona = [Link]()
 Select Case zona

Case 1

[Link]("zona Seleccionada: David sur")

[Link]("le corresponde asistir LA PRIMERA SEMANA DE
MAYO")

Case 2

[Link]("zona Seleccionado: David este")

[Link]("le corresponde asistir LA SEGUNDA SEMANA DE
MAYO")

Case 3

[Link]("zona Seleccionada: David cabezera")

[Link]("le corresponde asistir LA TERCERA SEMANA DE
MAYO")

Case 4

[Link]("zona Seleccionada: otras")

[Link]("le corresponde asistir LA CUARTA SEMANA DE
MAYO")

Case Else

[Link]("Este numero no coincide con ningún destino

registrado. Favor de elegir un destino predeterminado")

End Select

[Link]("le esperamos en el destino afirmado entre las 8:00 am y

12:00 pm; GRACIAS")

[Link]()

End Sub

End Module

Problema 4. Utilizando estructuras de repetición (Elija la que considere). Diseñe

un algoritmo que calcule el consumo en KWs por hora de los laboratorios de la
Fac. de Eléctrica de la UTP, considerando que tiene un laboratorios con software
especiales de la carrera y un laboratorio de uso general:
Laboratorio de software especiales
• El lab 20 computadoras, se usa 6 horas de Lunes a viernes, se usa 5
horas los
Laboratorio de uso general:
• El lab-2 tiene 25 computadoras, se usa 5 horas los Lunes y Miércoles,
los Martes, jueves y viernes se usa 6 horas.
Las computadoras consumen por 0.5894 KWs por hora. El cálculo debe ser
mensual para cada categoría de laboratorio, considerando que todas las semanas
tiene el mismo horario de uso. (Valor 30 pts.).
Module Module1
Sub Main()

Dim c, su, va, T1, com As Double

[Link]("consumo en KWs por hora de los laboratorios de la Fac. de

Eléctrica de la UTP")
[Link](" lab de uso especial")

su = 0
[Link](" introduzca la cantidad de horas de cada dia")
For c = 1 To 5
va = [Link]()
su = su + va
Next
[Link]("la cantidad de horas total es " & su & "horas")
[Link]()

[Link]("cuantas com son?")

[Link]()

[Link]("las horas totales son" & T1)

[Link]()

End Sub
End Module
 EXAMEN PARCIAL 2

Nombre: MIRIAM ENEIDA VEGA Total: 100 pts.

Cédula: 8-969-1335 Puntos Obtenidos: ____
Fecha: Viernes 11 de Junio del 2021
Observación: Escriba el seudocódigo en Visual Basic, copie el seudocódigo y lo
pega en este archivo, es decir que no lo pegue como imagen y también coloque la
ventana de ejecución. Guarde el archivo con su apellido, nombre Parcial 2
Civil…ejemplo: Perez Maria Parcial 2 Civil.
Problema 1. (Valor 20 pts.).
Un cliente de un banco deposita equis cantidad de dinero cada mes en una cuenta
de ahorros. La cuenta percibe un interés fijo durante un año de 10 % anual. Realice
un algoritmo para determinar el total de la inversión final de cada año en los
próximos 3 años. Debe utilizar estructura Do..Loop until

Module Program

Sub Main()
Dim año, M As Double

Dim aho, tot, inte As Integer

[Link]("ingrese los años de aho")
[Link]()
tot = 0
inte = 0
Do
M = 1 > 12
[Link]("el ahorro del mes es", M)
[Link]()
tot = tot + aho
End
inte = inte + (tot * 0.1)
año = año - 1
[Link](" el interes anual es de ", inte)
[Link]("la inversion total es de ", tot + inte)

Loop Until año > 0

End Sub
End Module

Problema 2. (Valor 20 pts.).

Un profesor tiene un salario inicial de $2000, y recibe un incremento de 10 % anual
durante 3 años. ¿Cuál es su salario al cabo de 3 años? ¿Qué salario ha recibido en
cada uno de los 3 años?. Debe utilizar la estructura Do..Loop while

Module Module1
Sub Main()
Dim i, s, q, n As Double
i = 1
s = 2000
q = 3
n = 1

[Link]("saldo inicial =2000")

Do
i = i + 1
[Link]("el sueldo aumento cada año")
n = n + 1
s = s + (s * 10 / 100)
[Link]("s")

Loop While i <= q

[Link]("su safin es" & s)

[Link]()

End Sub
End Module
Problema 3. (Valor 30 pts.).
Diseñe un algoritmo que realice la suma de los números de la columna
marcada en amarillo de ambas matrices y refleje la suma en un vector.
Debe utilizar la estructura for..next

Module Module1

Sub Main()

Dim a1(3, 4), a2(3, 4), s, D(4), x, y, z As Integer

Dim i, l As Integer

For i = 0 To 2
For l = 0 To 3
[Link]("Digite valores para la matriz 1 ")
a1(i, l) = [Link]()
Next l

Next i

For i = 0 To 2
Next i

For i = 0 To 2
For l = 0 To 3

[Link]("Digite valores para la matriz 2 ")

a2(i, l) = [Link]()

Next l
s = 0
Next i
[Link]("La suma de la matriz sería")
For i = 0 To 2
[Link](a1(i, 0) & " " & a1(i, 1) & " " & a1(i, 2) & " " &
a1(i, 3) & " + " & a2(i, 0) & " " & a2(i, 1) & " " & a2(i, 2) & " " & a2(i,
3))
Next i

For l = 0 To 3
[Link](a1(l, 0) & " " & a1(l, 1) & " " & a1(l, 2) & "")
Next l
x = a1(0, 1) + a2(0, 1)
y = a1(1, 1) + a2(1, 1)
 z = a1(2, 1) + a2(2, 1)

[Link]("S " & x & "")

[Link]("S " & y & "")
[Link]("S " & z & "")
[Link]()

[Link]()

End Sub

End Module

Problema 4. (Valor 30 pts.).

Diseñe un algoritmo que sume la nota de tres parciales de 6 estudiante y refleje
el promedio de parcial de cada estudianalete. Debe utilizar la estructura for..next

Puntos extras: Indique el nombre del estudiante con el prom mas alto
y el más bajo.

Module Module1

Sub Main()

Dim i As Integer
Dim k As Integer

Dim j As Integer

Dim num(6, 3) As Integer

Dim nom(6), prom(6) As String

For i = 0 To 5

[Link]("escriba el nombre del estudiante ")

 nom(i) = [Link]()

[Link]("escriba las 3 notas ")

For j = 0 To 2

num(i, j) = [Link]()

Next j

Next i

[Link]("esta es la matriz")

For i = 0 To 5

[Link](nom(i) & " " & num(i, 0) & " " & num(i, 1) & " " &
num(i, 2) & " " & num(i, 3) & " " & prom(k))

Next i

[Link]()

End Sub

End Module
 Diario Metacognitivo

• Sesión de aprendizaje 1: 9 de abril de 2021

Tema discutido: INTRODUCCION AL CURSO
Datos interesantes discutidos hoy: lo interesante fueron los puntos de la
profesora nos pide para desarrollar esta materia y nos escogimos los grupos
y temas para las exposiciones.
–¿Qué cosas fueron difíciles?
–¿Cuáles fueron fáciles?
–¿Qué aprendí hoy?

• Sesión de aprendizaje 2: 16 de abril de 2021

Tema discutido: seudocódigo Visual Basic—Exposición 1: Sistema operativo
Datos interesantes discutidos hoy: Acerca de las estructuras selectivas
–¿Qué cosas fueron difíciles? R: todo me pareció algo difícil puesto que me es
difícil aun entender como hacer estos programas
–¿Cuáles fueron fáciles? R: se veía fácil pero no lo era
–¿Qué aprendí hoy?: todo sobre los sistemas operativos

• Sesión de aprendizaje 3: 23 de abril de 2021

Tema discutido: Exposición 2(mi grupo): Lenguajes de Programación
 Datos interesantes discutidos hoy: rechecamos la clase anterior de las
estructuras selectiva
–¿Qué aprendí hoy? R: aprendí creo un poco más sobre las estructuras.

• Sesión de aprendizaje 4: 30de abril de 2021

Tema discutido: Estructuras repetitivas—Exposición 3: Virtualización
Datos interesantes discutidos hoy: la diferencia entre la estructura de hasta
que, mientras que, desde hasta que.
–¿Qué cosas fueron difíciles? R: fue un poco confusa debido a que se parecen
mucho
–¿Cuáles fueron fáciles?
–¿Qué aprendí hoy?: a diferenciarlas y saber cuando usar cada una,

• Sesión de aprendizaje 5: 7de mayo de 2021

Tema discutido: PSEUDOCODIGO CON ESTRUCTURAS SEGÚN Y ESTRCUTURAS DE
REPETICIÓN EN VISUAL BASIC – MODO CONSOLA---
Exposicion 4: Computación en nube
Datos interesantes discutidos hoy: la exposición
–¿Qué cosas fueron difíciles? R: siento que cada vez se me hace mas difícil
esto porque no la entiendo y ya la próxima semana es el parcial 1
–¿Cuáles fueron fáciles?
 –¿Qué aprendí hoy? R: me gusto la expo fue interesante.

• Sesión de aprendizaje 6: 14de mayo de 2021

Parcial 1

• Sesión de aprendizaje 7: 21de mayo de 2021

Tema discutido: Exposición 5: Inteligencia Artificia

• Sesión de aprendizaje 8: 28de mayo de 2021

Tema discutido: Exposición 6: Realidad Aumentada
• Sesión de aprendizaje 9: 4de junio de 2021
Tema discutido: ESTRUCTURAS DE REPETICIÓN APLICADA A VECTORES Y
MATRICES
• Sesión de aprendizaje 10: 11de junio de 2021
Parcial 2

• Sesión de aprendizaje 11: 18de junio de 2021

Tema discutido: vimos EJEMPLOS EN WINDOWS FORM VISUAL BASIC

• Sesión de aprendizaje 12: 25de junio de 2021

Tema discutido: EJEMPLOS EN WINDOWS FORMS VISUAL BASIC
 • Sesión de aprendizaje 13: 2de julio de 2021
Tema discutido: SEUDOCODIGOS EN WINDOWS FORMS VISUAL BASIC
• Sesión de aprendizaje 14: 9de julio de 2021
Tema discutido: PRÁCTICA DE PSEUDOCODIGO EN VISUAL BASIC – FUNCIONES Y
SUBPROCESOS - TABCONTROL
• Sesión de aprendizaje 15: 16de julio de 2021
Tema discutido: Nos despedimos viendo el video de una vaca, le agradecimos
a la profesora por el semestre.
 Material de Apoyo

1. Solución de problemas: Diccionario de Real Academia de la Lengua

Española (RAE) respecto a la palabra Problema es “Planteamiento de
una situación cuya respuesta desconocida debe obtenerse a través de
métodos científicos”.
Algoritmos : Consiste en aplicar adecuadamente una serie de pasos
detallados que aseguran una solución correcta
CARACTERISTICAS DE UN ALGORTIMO:
Preciso. Debe indicar el orden en el cual debe realizarse cada uno de
los pasos que conducen a la solución del problema.
Definido. Esto implica que el resultado nunca debe cambiar bajo las
mismas condiciones del problema, éste siempre debe ser el mismo.
Finito. No se debe caer en repeticiones de procesos de manera
innecesaria; deberá terminar en algún momento
REPRESENTACIÓN DE ALGORITMOS:
Seudocódigo: secuencia de instrucciones se representa por medio de
frases o proposiciones
Diagrama de Flujo se representa por medio de gráficos.
ELEMENTOS:
Variables: Los identificadores de tipo variable son todos aquellos objetos
cuyo valor cambia durante la ejecución o proceso de solución del problema.
Constante: el valor que se le asigna a este identificador no cambia durante la
ejecución o proceso de solución del problema.
Palabras reservadas: Inicio, Fin, Leer, Escribir, Mientras, Repita, Hasta, Para.
ESTRUCTURA
Secuencia en que se realizan las operaciones o acciones para resolver el
problema; esas estructuras pueden ser: secuenciales, de decisión y de ciclo o
repetición.
Solución de un problema: se deben identificar 3 elementos: entrada, proceso
y salida
ESTRUCTURAS SECUENCIALES:
Las instrucciones se realizan o se ejecutan una después de la otra y, por lo
general, se espera que se proporcione uno o varios datos, los cuales son
asignados a variables para que con ellos se produzcan los resultados que
representen la solución del problema que se planteó.
Para resolver un problema mediante la utilización de cualquier herramienta
es necesario entender y establecer con qué datos se cuenta, los procesos
que se deben realizar y la secuencia apropiada para obtener la solución que
se desea.

2. ESTRUCTURAS SELECTUVAS:
los algoritmos, en determinados momentos, requieren ser selectivos
en lo que respecta a las acciones que deben seguir, basándose en una
respuesta de un determinado cuestionamiento que se formuló para la
solución del problema planteado.
Las estructuras selectivas se utilizan para tomar decisiones lógicas;
de ahí que también se conocen como estructuras de decisión o
alternativas. En las estructuras selectivas se evalúa una condición, y
en función del resultado de la misma se toma un camino u otro.
3. ESTRUCTURAS REPETITIVAS O DE CICLO
Cuando se requiere que un proceso se efectúe de manera cíclica, se
emplean estructuras que permiten el control de ciclos, esas
estructuras se emplean con base en las condiciones propias de cada
problema.
“Mientras que” (While)
“Repite hasta que” y
“Desde, hasta que”
 Estructura “Mientras que”, el ciclo se repite hasta que la condición
lógica resulta ser falsa. Primero se evalúa y luego se realiza el
proceso.

Estructura “Hasta que”, el ciclo se repite siempre y cuando el

resultado de la condición lógica sea falso. Primero se realiza el
proceso y luego se evalúa, por consiguiente este tipo de estructura
siempre realizará por lo menos un proceso.
Estructuras “Desde” se aplican cuando se tiene definido el número de
veces que se realizará el proceso dentro del ciclo, lo que la hace
diferente de las otras es que aquellas se pueden utilizar hasta que las
condiciones cambien dentro del mismo ciclo, estas condiciones pueden
deberse a un dato proporcionado desde el exterior, o bien, al resultado
de un proceso ejecutado dentro del mismo, el cual marca el final.
Además, en el ciclo “Desde”, su incremento es automático, por lo cual
no se tiene que efectuar mediante un proceso adicional, como en los
otros dos tipos.

PRÁCTICA DE PSEUDOCODIGO CON ESTRUCTURAS SECUENCIALES EN

VISUAL BASIC – MODO CONSOLA
VIERNES 9 DE ABRIL DE 2021

Obtener la suma de dos números cualesquiera

Module Module1

Sub Main()

Dim a As Integer
Dim b As Integer
Dim s As Integer
[Link]("Escriba el valor de a")
a = [Link]()
 [Link]("Escriba el valor de b")
b = [Link]()

s = a + b
[Link]("La suma es " & s)
[Link]()

End Sub
End Module

Calcular el promedio de 4 valores dados

Module Module1

Sub Main()

Dim num1 As Integer

Dim num2 As Integer
Dim num3 As Integer
Dim num4 As Integer
Dim promedio As Integer
[Link]("Escriba el número 1")
num1 = [Link]()
[Link]("Escriba el número 2")
num2 = [Link]()
[Link]("Escrina el número 3")
num3 = [Link]()
[Link]("Escrina el número 4")
num4 = [Link]()
promedio = (num1 + num2 + num3 + num4) / 4
[Link]("El promedio de los 4 números es " & promedio)
promedio = [Link]

End Sub

End Module

Calcular el área de un rectángulo (Area= base X altura)

Module Module1

Sub Main()
Dim b, h, A As Integer
[Link]("Calculadora de Área")
[Link]("Introduzca las dimensiones del rectángulo")
[Link]("Altura:")
h = [Link]()
[Link]("Base")
b = [Link]()
A = (h * b)
[Link]("El área del rectángulo es de " & A & " m^2 ")
b = [Link]()
End Sub
End Module

Obtener el área de una circunferencia (Área = PI * R2), PI = 3.1416

Module Module1

Sub Main()
Dim r, A, p As Decimal
p = 3.1416
[Link]("Área de un Circulo")
[Link]("Introduzca las datos")
[Link]("Radio:")
r = [Link]()
A = (r ^ 2) * p
[Link]("El área del circulo es de " & A & "m^2")
r = [Link]()
End Sub

End Module

Calcular el Área del triángulo (Área = (base * altura)/ 2)

Module Module1

Sub Main()
Dim h, b, A As Integer
[Link]("Área de un Triángulo")
[Link]("Introduzca los datos:")
[Link]("Altura")
h = [Link]()
[Link]("Base")
b = [Link]()
A = (b * h) / 2
[Link]("El área del triángulo es de " & A & " m^2")
b = [Link]()
End Sub

End Module

EJEMPLO DE VECTORES Y MATRICES EN VISUAL BASIC – MODO

CONSOLA
VIERNES 3 DE JUNIO DE 2021

EJEMPLO de VECTOR

Module Module1
Sub Main()
Dim i As Integer
Dim nom(4) As String
 For i = 0 To 3
[Link]("introduzca el nombre ", i)
nom(i) = [Link]()
Next i
[Link]("------------------")
[Link]("forma vertical")
[Link]("------------------")
For i = 0 To 3
[Link](nom(i))
Next i
[Link]("------------------")
[Link]("forma horizontal")
[Link]("------------------")
[Link](nom(0) & " -" & nom(1) & " -" & nom(2) & " -" & nom(3))
[Link]()
End Sub

End Module

EJEMPLO de MATRIZ

Module Module1

Sub Main()

Dim i, j As Integer
Dim num(4, 4) As Integer
For i = 0 To 3
For j = 0 To 3
[Link]("numero en la posicion " & i & ", " & j)
num(i, j) = [Link]()

Next j
Next i
[Link]("esta es la matriz")
For i = 0 To 3
[Link](num(i, 0) & " " & num(i, 1) & " " & num(i, 2) & " "
& num(i, 3))
Next i
[Link]()
End Sub

End Module

EJEMPLO de VECTOR Y MATRIZ

Module Module1
 Sub Main()
Dim i As Integer
Dim j As Integer
Dim num(4, 4) As Integer
Dim nom(4) As String
For i = 0 To 3
[Link]("escriba el nombre del estudiante ")
nom(i) = [Link]()
[Link]("escriba las 4 notas ")
For j = 0 To 3

num(i, j) = [Link]()
Next j
Next i
[Link]("esta es la matriz")
For i = 0 To 3
[Link](nom(i) & " " & num(i, 0) & " " & num(i, 1) & " "
& num(i, 2) & " " & num(i, 3))
Next i
[Link]()
End Sub

End Module

//Realice un seudocódigo para almacenar valores num. en una matriz 4x4 y sume los valores por
fila

Module Module1

Sub Main()

Dim i, j As Integer
Dim num(4, 4), S(4), sum As Integer
For i = 0 To 3
For j = 0 To 3
[Link]("numero en la posicion " & i & ", " & j)
num(i, j) = [Link]()
sum = sum + num(i, j)
S(i) = sum
Next j
sum = 0
Next i
[Link]("esta es la matriz")
For i = 0 To 3
[Link](num(i, 0) & " " & num(i, 1) & " " & num(i, 2) & " "
& num(i, 3) & " " & S(i))
Next i

[Link]()
End Sub

End Module
EJEMPLOS EN WINDOWS FORM VISUAL BASIC

VIERNES 18 DE JUNIO DE 2021

Public Class Form1

Private Sub Suma_Click(sender As Object, e

As EventArgs) Handles [Link]

Dim Num1, Num2, Suma As Integer

Num1 = [Link]

Num2 = [Link]

Suma = Num1 + Num2

[Link] = Suma

End Sub

End Class

Public Class Form1

Private Sub Promedio_Click(sender As

Object, e As EventArgs) Handles
[Link]

Dim num1, num2, num3, num4, prom As

Integer

num1 = [Link]

num2 = [Link]

num3 = [Link]

num4 = [Link]

prom = (num1 + num2 + num3 + num4)

/ 4
 [Link] = prom

End Sub

End Class

Public Class Form1

Private Sub Button1_Click(sender As

Object, e As EventArgs) Handles
[Link]

Dim numero As Double

Dim msg1 As String

numero = [Link]

If numero >= 0 Then

msg1 = "Positivo"

[Link] = msg1

Else

msg1 = "Negativo"

[Link] = msg1

End If

End Sub

End Class
 EJEMPLOS EN WINDOWS FORMS VISUAL BASIC
VIERNES 25 DE JUNIO DE 2021

Una compañía de seguros para autos ofrece dos tipos de póliza: cobertura amplia (A) y daños a
terceros (B). Para el plan A, la cuota base es de $1,000, y para el B, de $600. A ambos planes se les
carga 10% del costo si la persona que conduce es hombre, 5% si es mujer, 5% si padece diabetes–,
y si tiene más de 40 años, se le carga 20%, de lo contrario sólo 10%. Todos estos cargos se realizan
sobre el costo base.

Private Sub Button1_Click(sender As Object, e As

EventArgs) Handles [Link]
Dim condicion, costo, edad, base, cargo, vejez As
Double
Dim plan, sexo As String
plan = [Link]
If [Link]("A") Then
base = 1000
ElseIf [Link]("B") Then
base = 600
End If
sexo = [Link]
If [Link]("Hombre") Then
cargo = base * (10 / 100)
Else
If [Link]("Mujer") Then
cargo = base * (5 / 100)
End If
End If
If ([Link] = True) Then
condicion = base * (5 / 100)
ElseIf ([Link] = True) Then
condicion = 0
End If
edad = [Link]
If edad > 40 Then
vejez = base * (20 / 100)
Else
vejez = base * (10 / 100)
End If
costo = (base + cargo + condicion + vejez)
[Link] = costo
End Sub
Public Class Form1

Private Sub Button1_Click(sender As Object, e As

EventArgs) Handles [Link]

Dim condicion, costo, edad, base, cargo, vejez

As Double
Dim plan, sexo As String
plan = [Link]
If [Link]("A") Then
base = 1000
ElseIf [Link]("B") Then
base = 600
End If
sexo = [Link]
If [Link]("Hombre") Then
cargo = base * (10 / 100)
Else
If [Link]("Mujer") Then
cargo = base * (5 / 100)
End If
End If

If ([Link] = True) Then

condicion = base * (5 / 100)
ElseIf ([Link] = True) Then
condicion = 0
End If
edad = [Link]
If edad > 40 Then
vejez = base * (20 / 100)
Else
vejez = base * (10 / 100)
End If
costo = (base + cargo + condicion + vejez)
[Link] = costo

End Sub

Private Sub Button2_Click(sender As Object, e As

EventArgs) Handles [Link]
[Link]()
[Link]()
[Link]()
[Link]()
If ([Link] = True) Then
[Link] = False
End If
If ([Link] = True) Then
[Link] = False
End If
End Sub
End Class
 i j
COLUMNAS 0 0
1
FILAS 0 1 2 3 2
0 10 50 10 20 90 3
(F0, C0) (F0, C1) (F0, C2) (F0, C3) 1 0
1 20 30 40 50 140 1
(F1, C0) (F1, C1) (F1, C2) (F1, C3) 2
2 10 10 10 10 40 3
(F2, C0) (F2, C1) (F2, C2) (F2, C3) 2 0
3 50 40 30 20 140 1
(F3, C0) (F3, C1) (F3, C2) (F3, C3) 2
3
3 0
1
2
3

Lab:
Guia Rapida del uso del pseint ([Link])

EstructurasdecControlSiSegun).mov - Google Drive

 CONSIDERACION MEDIA
Como parte final de este portafolio quiero agradecer a Dios primeramente por
el privilegio que me da de ser quien y como soy. Por levantarme todos los días
con la esperanza de abrir nuevas puertas a mi conocimiento y darme las
fuerzas para continuar con esta carrera. A su vez, le doy gracias a la Prof.
Marlenis Pimentel por ser una maestra ejemplar y ser una mujer admirable
especializada en la educación. a otros como yo que aspiramos ser líderes
educativos. Gracias a todos mis compañeros de clase que de una u otra forma
están conmigo apoyando este proceso y a usted Prof. Marlenis por ser quien
vela por cada detalle del proceso de práctica para que este sea uno de gran
aprovechar y conocimiento profesional y personal.
 RUBRICA:
ASPECTOS A EVALUAR POR REGULAR BUENO EXCELENTE
MEJORAR (Modificar (Puede ser (Cumple
(Requiere algunos mejorado) satisfactoriamente)
mejorar) elementos)

1. Organización e identificación de
secciones
(contenido)
2. Materiales y experiencias presentadas
son
Adecuados
3. Presenta comentarios del alumno con
relación a los materiales de cada sección
4. Presenta los análisis de las evaluaciones
incluidas en las secciones
5. Incluye nuevos materiales por iniciativa
del
Alumno
6. Agrega anécdotas o eventos
importantes
Relacionados
7. Logros sucesivos en la adquisición del
aprendizaje
- Secuencias de calificaciones
- Corrección de los aspectos negativos en
las evaluaciones

8. Manejo de los contenidos:

- Cuadros resúmenes
- Comentarios generales
- Materiales complementarios

9. Establecimiento de relaciones
- Otros materiales de iniciativa propia
- Trabajos de investigación

10. Comentarios del Estudiante

Observaciones:
________________________________________________________________________________________
________________________________________________________________________________________
________________________________________________________________________________________
______________________________

Revisado por el estudiante:

Firma:__________________________________________ Fecha:____________________
AREA PARA EVALUACION DEL PROFESOR: