UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Semestre Paralelo: S2-P3 R
Grupo: G5
Apellidos y Nombres: Berrezueta Pesantez Kevin Steven – 100 %
Chiran Ureña María José – 100%
Gordon Minango Francisco Alejandro – 100%
Tipán Tasiguano Lenin Fernando – 100%
Fecha de entrega: 20 de diciembre de 2024
Periodo lectivo: 2024-2025
Prof.: Dr. Pilaluisa Ramiro.
Ejercicio número 1.
1. Enunciado
Realizar un flujograma en el que indique, imprimir en pantalla “Hola
mundo”
2. Análisis matemático
Hola mundo
3. Declaración de variables y constantes
Hola mundo
4. Flujograma
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 1/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
5. Corrida
Hola mundo
Hola mundo
6. Pseint
Algoritmo HolaMundo
Escribir "Hola, mundo"
FinAlgoritmo
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 2/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 3/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 4/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Ejercicio 2:
1.- Enunciado
Realizar un flujo grama que, dado un triángulo con base y altura conocidas, calcular y mostrar el
área del triángulo.
2.- Análisis matemático
A = (b∗h) /2
b>0 & h>0
3.- Definición de variables y constantes
A, b, h, 2
4.- Flujograma
5. Corrida
Base Altura (b*h) /2 Área
(b) (h)
10 5 (10*5) /2 25
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 5/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
8 4 (8*4) /2 16
6. Pseint
Proceso Areadeltriangulo
Definir A, b, h Como Real;
Escribir "Ingrese la base";
Leer b;
Escribir "Ingreso de la altura";
Leer h;
A<- (b*h)/2;
Escribir "El area del triangulo es: ", A;
FinProceso
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 6/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 7/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Ejercicio número 3.
1. Enunciado
Crear un flujograma donde se desea conocer el momento de empotramiento en una viga con
una carga puntual, donde las constantes sean introducidas por teclado y el resultado se
muestre por pantalla
2. Análisis matemático
𝑀𝑜𝐴 ←
2
P∗A∗b
2
L
𝐿←𝑎+𝑏
3. Declaración de variables y constantes
𝑀𝑜𝐴,𝑃, 𝑎, 𝑏, 2, L
4. Flujograma
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 8/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
5. Corrida
P (N) A (m) B (m) L (m) 𝑀𝑜𝐴 (Nm)
7 5 3 8 4,92
9 7 4 11 8,33
96 12 7 19 156,36
6. PSeint
Algoritmo Empotramiento_en_vigas
Definir p, a, b, l Como Real
Escribir "Ingrese la fuerza p"
Leer p
Escribir "Ingrese distancia a"
Leer a
Escribir "Ingrese distancia b"
Leer b
Si p > 0 Y a > 0 Y b > 0 Entonces
l <- a + b
Mo <- (p * (a + b) ^ 2) / (4 * l)
Escribir "El momento de empotramiento en la viga es: ", Mo
SiNo
Escribir "Ingrese valores mayores a cero"
Fin Si
FinAlgoritmo
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 9/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 10/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 11/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Ejercicio número 4.
1. Enunciado
Una persona va de compras a una tienda departamental, si su compra es mayor a los $1,500
obtendrá un descuento de 15% en caso contrario solamente el 10%. Realizar un flujograma que
calcula e imprima la cantidad a pagar
2. Análisis matemático
cp=cc−(cc×0.15), si
Cp= cc>1500cc
cp=cc−(cc×0.10), si
Si cc>1500cc >, se aplica un descuento del 15%:
cp=cc−(cc×0.15)
Si cc≤1500cc, se aplica un descuento del 10%:
cp=cc−(cc×0.10)
3. Variables y constantes
cc, cp, 1500, 0.15, 0.10
4. Flujograma
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 12/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
5. Corrida
Caso Entrada (cc) Descuento (%) Salida esperada
(cp)
1 534 10% 480,6
2 2000 15% 1700
6. PSeint
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 13/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Proceso Calculodescuento
// Declaración de variables
Definir cc, cp Como Real;
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 14/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
// Entrada de datos
Escribir "Ingrese la cantidad comprada:";
Leer cc;
// Proceso de cálculo
Si (cc>1500) Entonces
cp <- cc - (cc * 0.15);
Escribir "El total a pagar es: ", cp;
SiNo
cp <- cc - (cc * 0.10);
Escribir "El total a pagar es: ", cp;
FinSi
FinProceso
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 15/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Ejercicio 5.
1.- Enunciado
Desarrollar un diagrama que permita con dos números similar una
calculadora (suma resta multiplicación división, potenciación) se debe leer
números desde un teclado y el resultado visualiza en pantalla
2.- Análisis matemático.
Para 1, 2, 3, 4, 5 estamos utilizando para determinar la operación matemática que
se va utilizar
Y=x+t c=k*p w^u=w*w*…*w (u veces )
h=v-m d=b/a
3.- Declaración de variables y constantes.
Y; x; t; h; v; m; c; k; p; d ; a ; b; w; u
4.- Flujograma
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 16/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
5. Corrida
Entrada/Salida Descripción
Entrada: Mostrar menú
"1. SUMA"
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 17/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
"2. RESTA"
"3. MULTIPLICACIÓN"
"4. DIVISIÓN"
"5. POTENCIACIÓN"
Entrada: Opción:1
"Escribe el primer número para
Entrada:
sumar: 5"
"Escribe el segundo número para
Entrada:
sumar: 3"
Salida: "El resultado de la suma es: 8"
Entrada: Opción:2
"Escribe el primer número para
Entrada:
reiniciar: 10"
"Escribe el segundo número para
Entrada:
reiniciar: 4"
Salida: "El resultado de la resta es: 6"
Entrada: Opción:3
"Escribe el primer número para
Entrada:
multiplicar: 2"
"Escribe el segundo número para
Entrada:
multiplicar: 4"
"El resultado de la multiplicación es:
Salida:
8"
Entrada: Opción:4
"Escribe el primer número para
Entrada:
dividir: 20"
"Escribe el segundo número para
Entrada:
dividir: 5"
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 18/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Salida: "El resultado de la división es: 4"
Entrada: Opción:5
Entrada: "Escribe la base: 2"
Entrada: "Escribe el exponente: 3"
"El resultado de la potenciación es:
Salida:
8"
6. Pseint
Algoritmo CalculadoraFlujograma
// Declaración de variables
Definir x, t, h, v, m, c, k, p, d, a, b, w, u, resultado Como Real
Definir opcion, cont Como Entero
// Menú de opciones
Escribir "==== CALCULADORA ===="
Escribir "1. SUMA"
Escribir "2. RESTA"
Escribir "3. MULTIPLICACIÓN"
Escribir "4. DIVISIÓN"
Escribir "5. POTENCIACIÓN"
Escribir Sin Saltar "Seleccione una opción: "
Leer opcion
Segun opcion Hacer
1:
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 19/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
// SUMA
Escribir "Escribe el primer número para sumar: "
Leer x
Escribir "Escribe el segundo número para sumar: "
Leer t
h <- x + t
Escribir "El resultado de la suma es: ", h
2:
// RESTA
Escribir "Escribe el primer número para restar: "
Leer x
Escribir "Escribe el segundo número para restar: "
Leer t
v <- x - t
Escribir "El resultado de la resta es: ", v
3:
// MULTIPLICACIÓN
Escribir "Escribe el primer número para multiplicar: "
Leer k
Escribir "Escribe el segundo número para multiplicar: "
Leer p
c <- k * p
Escribir "El resultado de la multiplicación es: ", c
4:
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 20/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
// DIVISIÓN
Escribir "Escribe el primer número para dividir: "
Leer b
Escribir "Escribe el segundo número para dividir: "
Leer a
Si a <> 0 Entonces
d <- b / a
Escribir "El resultado de la división es: ", d
SiNo
Escribir "Error: No se puede dividir entre cero."
Fin Si
5:
// POTENCIACIÓN
Escribir "Escribe la base: "
Leer w
Escribir "Escribe el exponente: "
Leer u
cont <- 0
resultado <- 1
Mientras cont < u Hacer
resultado <- resultado * w
cont <- cont + 1
Fin Mientras
Escribir "El resultado de la potenciación es: ", resultado
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 21/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
De Otro Modo:
Escribir "Opción no válida."
Fin Segun
FinAlgoritmo
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 22/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Ejercicio número 6.
1. Enunciado
Hacer un algoritmo para encontrar la división de dos números mediante restas sucesivas.
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 23/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
2. Análisis matemático
rar←0
rest←dividendo
rest←divisor≥0
rest+divisor
rar←rar+1
3. Declaración de variables y constantes
rar, rest, dividendo, divisor, 1
4. Flujograma
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 24/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
5. Corrida
60-10=50 0+1=1
50-10=40 1+1=2
40-10=30 2+1=3
30-10=20 3+1=4
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 25/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
20-10=10 4+1=5
10-10=0 5+1=6
6. Pseint
Proceso Division_por_restas_
// UNIVERSIDAD CENTRAL DEL ECUADOR
// Facultad de Ingeniería y Ciencias Aplicadas
// Carrera de Ingeniería Civil
//
// Semestre Paralelo: S2-P3
// Grupo: G5
// Apellidos y Nombres: Berrezueta Pesantez Kevin Steven 100%
// Chiran Ureña Maria Jose 100%
// Gordon Minango Francisco Alejandro 100%
// Tipan Tasiguano Lenin Fernando 100%
//
// Fecha de entrega: viernes 20 de diciembre del 2024
// Periodo Lectivo: 2024 - 2025
// Profesor: Dr. Ramiro PILALUISA.
//----------------------------------------------------------------------------
// Objetivo: Encontrar la division.
// Proyecto: Division de números mediante restas.
// Ejercicio: Hacer un algoritmo para encontrar la division de dos
numeros mediante restas sucesivas.
//----------------------------------------------------------------------------
Definir dividendo,divisor,rar,rest Como Real;
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 26/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Escribir 'Ingrese el (DIVIDENDO)';
Leer dividendo;
Escribir 'Ingrese el (DIVISOR)';
Leer divisor;
rar<-0;
rest<-dividendo;
Mientras rest-divisor>=0 Hacer
rest<-rest-divisor;
Escribir (rest+divisor),'-',divisor,'=',rest;
rar<-rar+1;
FinMientras
Escribir 'la division entre: ',dividendo,'/',divisor,'=',rar;
FinAlgoritmo
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 27/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 28/29
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE INGENIERÍA Y CIENCIAS APLICADAS
CARRERA DE INGENIERIA CIVIL
TEORIA DE LA PROGRAMACION 1
Prof. Ing. José Ramiro Pilaluisa Q. PhD. 2024 -
2025 29/29
