HERRAMIENTAS INFORMATICAS
Enviado por Edwin2106 • 2 de Agosto de 2022 • Tareas • 606 Palabras (3 Páginas) • 42 Visitas
[pic 1][pic 2]
HERRAMIENTAS INFORMATICAS
2DO PARCIAL
ACTIVIDAD 4
[pic 3]
Desarrollo de la práctica: Diseñar un algoritmo (pseudocódigo y diagrama de flujo) de algunas situaciones y finalmente guardar el archivo.
Situación 1
Hallar el área de un triángulo rectángulo con base de 3 cm, altura 4 cm e Hipotenusa de 5 cm.
ANÁLISIS DEL PROBLEMA | |
Formular el problema: | R- Sumarse la base por la altura y dividirá entre 2 |
Resultados esperados: | R- El área de un triángulo rectángulo |
Datos disponibles: | R- Base = 3 cm, Altura = 4 cm, Hipotenusa = 5 cm |
Determinar las restricciones: | R- hipotenusa, área |
Procesos necesarios: | R- (B*A)/2 |
ALGORITMO EN PSEUDOCÓDIGO | |
1 | INICIO |
2 | B, A→ INTEGER |
3 | ENTRADA |
4 | B= 3 |
5 | A= 4 |
6 | LEER B, A |
7 | OPERACION→ RESULTADO=(B * A) / 2 |
8 | SALIDA→ “EL ÁREA DEL TRIÁNGULO: “ & AREA |
9 | FIN |
CÓDIGO |
Private Sub CommandButton1_Click () Dim B, A, OPCION As Integer B = InputBox("ESCRIBE LA BASE") A = InputBox("ESCRIBE LA ALTURA") AREA = (Val(B) * Val(A)) / 2 MsgBox ("EL AREA DEL TRIANGULO ES:" & AREA) End Sub |
DIAGRAMA DE FLUJO
[pic 4]
ANÁLISIS DEL PROBLEMA | |
Formular el problema: | R- Sumar las 3 calificaciones e igualmente dividir entre 3 |
Resultados esperados: | R- El promedio dado por 3 calificaciones |
Datos disponibles: | R- Parciales = 3 |
Determinar las restricciones: | R- Calificación 1,Calificación 2, Calificación 3, Promedio |
Procesos necesarios: | R- (Parcial 1 + Parcial 2 + Parcial 3) / 3 |
Situación 2
Obtener el valor del promedio de 3 calificaciones proporcionadas.
ALGORITMO EN PSEUDOCÓDIGO | |
1 | INICIO |
2 | PARCIAL1, PARCIAL2, PARCIAL3→ INTEGER |
3 | PROMEDIO→ DOUBLE |
4 | ENTRADA |
5 | PARCIAL1 |
6 | PARCIAL2 |
7 | PARCIAL3 |
8 | LEER PARCIAL1, PARCIAL2, PARCIAL3 |
9 | OPERACIO→ PROMEDIO=(PARCIAL1 + PARCIAL2 + PARCIAL3) / 3 |
10 | SALIDA→ "EL PROMEDIO DE CALIFICACIÓN ES:" & PROMEDIO |
11 | FIN |
CÓDIGO |
Private Sub CommandButton2_Click() Dim PARCIAL1, PARCIAL2, PARCIAL3 As Integer Dim PROMEDIO As Double PARCIAL1 = InputBox("INGRESE CALIFICACIÓN 1") PARCIAL2 = InputBox("INGRESE CALIFICACIÓN 2") PARCIAL3 = InputBox("INGRESE CALIFICACIÓN 3") PROMEDIO = (Val(PARCIAL1) + Val(PARCIAL2) + Val(PARCIAL3)) / 3 MsgBox ("EL PROMEDIO DE CALIFICACIÓN ES:" & PROMEDIO) End Sub |
DIAGRAMA DE FLUJO
[pic 5]
Situación 3
Calcular operaciones con sólo 3 variables para obtener suma, resta, división y multiplicación.
ANÁLISIS DEL PROBLEMA | |
Formular el problema: | R- Realizar una calculadora para seleccionar qué operación se desea realizar |
Resultados esperados: | R- El resultado de las operaciones(suma, resta, división y multiplicación) |
Datos disponibles: | R- Los tipos de operación Suma, Resta, División y Multiplicación. |
Determinar las restricciones: | R- N1 y N2, Resultado |
Procesos necesarios: | R- N1 + N2, N1 − N2, N2 / N1 y N1 * N2 |
...