1.

Construya un diagrama de flujo que dados los datos del sueldo de 10 trabajadores de una
compañía calcule e imprima el pago de la nomina

Proceso Nomina
//Programa que calcula la nomina
de una empresa
Definir i Como Entero;
Definir sueldo Como Real;
Definir nomin Como Real;

nomin<-0;
Para i<- 1 Hasta 10 Hacer
Escribir "ingrese el
sueldo de los trabajadores";
Leer sueldo;
nomin <- nomin + sueldo;
i<-i+1;
FinPara

Escribir "el pago de la nomina

es ", nomin;

FinProceso
2. Escriba un diagrama de flujo que calcule el cuadrado y el cubo de los numeros dados

Proceso Cuadrado_cubo

Definir num Como Entero;

Definir cuadrado Como Entero;
Definir cubo Como Entero;
Definir x Como Entero;

Para x<-1 Hasta 7 Con Paso 1

Hacer
Escribir "Ingrese el
numero del que desea calcular el
cuadrado y el cubo";
leer num;

cuadrado <- num^2;

cubo = num^3;
Escribir "Cuadrado y
cubo del numero: ",num;
Escribir "Cuadrado:
",cuadrado;
Escribir "Cubo: ",
cubo;

FinPara
FinProceso
3. Dado N numeros enteros realice un diagrama de flujo que
1. Obtenga cuantos numeros fueron mayores que 0
2. Calcule el promedio de los numeros positivos
3. Obtenga el promedio de todos los numeros

Proceso Promedio_num
//Programa para calcular el
promedio, promedio de los positivos y
cuantos numeros son positivos

Definir n Como Entero;

Definir num Como Entero;
Definir i Como Entero;
Definir sum Como Real;
Definir sum2 Como Real;
Definir pro Como Real;
Definir prop Como Real;
Definir p Como Real;

Escribir "Digite el numero entero";

Leer n;
sum<-0;
sum2<-0;
p<-0;
Para i <- 1 Hasta n Hacer
Escribir "Digite el numero";
Leer num;
Si num>0 Entonces
sum<-num+sum;
p<-p+1;
SiNo
sum2<-num+sum2;
FinSi
FinPara

pro<-(sum+sum2)/n;
prop<-(sum/p);

Escribir "El promedio de los

numeros es:", pro;

Escribir "El promedio de los

numeros positivos es:", prop;

Escribir "Los numeros positivos

son:", p;

FinProceso
4. Construya un diagrama de flujo que dado N números enteros calcule el mayor y el menor de
estos números

Proceso mayor_menor
//Programa para calcular el
mayor y el menor dentro de unos
numeros
Definir n Como Entero;
Definir may Como Entero;
Definir men Como Entero;
Definir i Como Entero;
Definir num Como Entero;

Escribir "Digite la cantidad de

numeros a los cuales desea hallar
su mayor y menor";

Leer n;
may<--10000;
men<-10000;
i<-1;

Para i <- 1 Hasta n Con Paso

1 Hacer
Escribir "Digite los
numeros a los cuales desea
conocer su mayor y menor" ;

Leer num;
Si num>may Entonces
may<-num;
FinSi
Si num<men Entonces
men<-num;
FinSi

FinPara
Escribir "El numero mayor
es: ", may;
Escribir "El numero menor
es: ", men;

FinProceso
5. Supongamos que en el último fin de semana realizamos un viaje de vacaciones y se realizaron
una cantidad de gastos sin especificar, realice un diagrama de flujo que permita calcular el total
de gastos realizados teniendo en cuenta que no sabemos cuántos son

Proceso gastos_fin_de_semana
//Programa que calcula
los gastos de viaje
Definir gasto Como
Real;
definir gastos Como
Entero;
Definir totgas Como
Real;
Definir cr Como Entero;
Definir cont Como
Entero;

totgas<-0;
cr<-0;
cont <- 0;

Escribir "Digite
cuantos gastos tuvo";
Leer gastos;

Mientras cont < gastos

Hacer
cont <- 1+cont;
Escribir "Ingrese
el valor de su gasto
numero", cont;
Leer gasto;

totgas<-
totgas+gasto;
cr<-cr+1;
Escribir "Su gasto
es de: ", gasto;
FinMientras

Escribir "El total de

los gastos en el viaje es:
", totgas;
Escribir "Gastos
realizados es igual a: ",
cr;
FinProceso
6. El próximo 29 de octubre se realizarán elecciones a nivel nacional en el municipio de Jordán se
presentaron 4 candidatos para ser elegidos como alcalde, realiza un diagrama de flujo que calcule
el número de votos correspondiente para cada candidato, de igual manera el porcentaje que obtuvo
con respecto al total de votantes, el usuario encargado, le enviara una lista de votos, de forma
desorganizada tal y como fueron llegando en la elección, el fin de datos se representa por un
número "0"
Proceso Votos
Definir cont Como Entero;
Definir votantes Como Entero;
Definir opciones Como Entero;
Definir Candidato1 Como Entero;
Definir Candidato2 Como Entero;
Definir Candidato3 Como Entero;
Definir Candidato4 Como Entero;
Definir porcenc1 Como Real;
Definir porcenc2 Como Real;
Definir porcenc3 Como Real;
Definir porcenc4 Como Real;
definir continuar Como Logico;

Candidato1 <- 0;
Candidato2 <- 0;
Candidato3 <- 0;
Candidato4 <- 0;
cont <- 0;
continuar <- Verdadero;
Escribir"Cantidad de votantes: ";
Leer votantes;
Mientras cont < votantes Y continuar Hacer
Escribir "Realice su votacion
(1: Candidato1, 2: Candidato2, 3:
Candidato3, 4: Candidato4, 0: finalizar
votación): ";
Leer opciones;
si opciones = 1 Entonces
Candidato1 =
Candidato1 +1;
FinSi
si opciones = 2 Entonces
Candidato2 =
Candidato2 +1;
FinSi
si opciones = 3 Entonces
Candidato3 =
Candidato3 + 1;
FinSi
si opciones = 4 Entonces
Candidato4 =
Candidato4 +1;
FinSi
si(opciones = 0) Entonces
continuar <- falso;
FinSi
cont <- 1 + cont;
FinMientras
porcenc1 = Candidato1/cont;
porcenc2 = Candidato2/cont;
porcenc3 = Candidato3/cont;
porcenc4 = Candidato4/cont;
Escribir "Total de votos: ", cont;
Escribir "Votos candidato 1: ",
Candidato1;
Escribir "Porcentaje votos candidato
1: ",porcenc1;
Escribir "Votos candidato 2: ",
Candidato2;
Escribir "Porcentaje votos candidato
2: ",porcenc2;
Escribir "Votos candidato 3: ",
Candidato3;
Escribir "Porcentaje votos candidato
3: ",porcenc3;
Escribir "Votos candidato 4: ",
Candidato4;
Escribir "Porcentaje votos candidato
4: ",porcenc4;

FinProceso
7. En el próximo partido de la selección de Colombia en Barranquilla se vendieron en 4 localidades
diferentes, norte, sur, este y occidente, identificadas con un código numérico entre 1 y 4, los precios
de la silletería y de cada dato referente a las boletas vendidas, se dieron de la siguiente forma:
L1, L2, L3, L4 1. Lea el precio de la boletería.
C1, C2, C3, C4 2. Lea los datos de la venta de cada boletería.
3. Imprima cada venta, el código, la cantidad, el total de la venta.
4. Calcule e imprima la cantidad de Boletas que se vendieron por cada localidad.
5. Calcule e imprima la recaudación total que hubo por esa venta.
Proceso Boletas
Definir c1 Como Entero;
Definir c2 Como Entero;
Definir c3 Como Entero;
Definir c4 Como Entero;
Definir l Como Entero;
Definir cb Como Entero;
Definir preb Como real;
Definir total Como Real;
Definir cont Como Entero;
definir continuar Como Logico;
definir tot1 Como real;
definir tot2 Como real;
definir tot3 Como real;
definir tot4 Como real;
Definir totalventas Como Real;

c1 <- 0;
c2 <- 0;
c3 <- 0;
c4 <- 0;

tot1 <- 0;
tot2 <- 0;
tot3 <- 0;
tot4 <- 0;

cont <- 0;

continuar <- Verdadero;

Mientras cont < 2533 Y continuar Hacer

Escribir"¿En que localidad comprará? 1: Localidad1, 2:
Localidad2, 3: Localidad3, 4: Localidad4, 0:cierre de ventas";
Leer l;

Si l = 1 Entonces
Escribir "¿Cual es el precio de la boleta?";
Leer preb;
Escribir "¿Cuantas boletas desea comprar?";
leer cb;
cont <- cont +1;

total <- preb * cb;

Escribir "Venta numero ", cont, " en la localidad
c1, cantidad de boletas ",cb ,"precio total de la venta ", total;

c1 = cb + c1;
tot1 = total + tot1;
Finsi

Si l = 2 Entonces
Escribir "¿Cual es el precio de la boleta?";
Leer preb;
Escribir "¿Cuantas boletas desea comprar?";
leer cb;
cont <- cont +1;

total <- preb * cb;

Escribir "Venta numero ", cont, " en la localidad
c1, cantidad de boletas ",cb ,"precio total de la venta ", total;

c2 =cb + c2;
tot2 = total + tot2;
FinSi

Si l = 3 Entonces
Escribir "¿Cual es el precio de la boleta?";
Leer preb;
Escribir "¿Cuantas boletas desea comprar?";
leer cb;
cont <- cont +1;

total <- preb * cb;

Escribir "Venta numero ", cont, " en la localidad
c3, cantidad de boletas ",cb ,"precio total de la venta ", total;

c3 = cb + c3;
tot3 = total + tot3;
FinSi

Si l = 4 Entonces
Escribir "¿Cual es el precio de la boleta?";
Leer preb;
Escribir "¿Cuantas boletas desea comprar?";
leer cb;
cont <- cont +1;

total <- preb * cb;

Escribir "Venta numero ", cont, " en la localidad
c4, cantidad de boletas ",cb ,"precio total de la venta ", total;

c4 = cb + c4;
tot4 = total + tot4;
FinSi

Si l = 0 Entonces
continuar <- falso;
FinSi

FinMientras

Escribir "Cantidad de boletas vendidas, localidad 1 ",c1;

Escribir "Cantidad de boletas vendidas, localidad 2 ",c2;
Escribir "Cantidad de boletas vendidas, localidad 3 ",c3;
Escribir "Cantidad de boletas vendidas, localidad 4 ",c4;
Escribir "Recaudación total, localidad 1 ",tot1;
Escribir "Recaudación total, localidad 2 ",tot2;
Escribir "Recaudación total, localidad 3 ",tot3;
Escribir "Recaudación total, localidad 4 ",tot4;
totalventas = tot1 + tot2 + tot3 + tot4;
Escribir "Total de ventas en general ",totalventas;

FinProceso
 Taller Segundo Corte
1. Diseñar un programa que permita leer N números positivos, sumarlos y mostrar el resultado,
al final muestra en pantalla la cantidad de números leídos, el resultado de la suma y el
promedio de todos los números. Para salir del programa ingrese un valor menor que cero,
(Ciclo Mientras).
Proceso Ejercicio1
definir n como entero;
definir sum como entero;
definir cont como entero;
definir num como entero;
definir continuar Como Logico;

Definir prom Como Real;

Escribir "Ingrese la cantidad de

números que desea sumar";
leer n;
sum <- 0;
cont <- 0;
prom <- 0;

continuar <- Verdadero;

Mientras cont < n Y continuar

Hacer
Escribir "Ingrese el
número";
leer num;

si(num < 0) Entonces

continuar <- falso;
FinSi

sum <- num + sum;

cont <- 1 + cont;

FinMientras

prom <- sum/n;

Escribir "La suma de los
numeros es", sum;
Escribir "El promedio de
los numeros es de ", prom;

FinProceso
2 Desarrolle un programa para una empresa, que le permita calcular el pago de nómina,
calculando y mostrando por pantalla la nómina para sus N empleados a quienes debe
cancelar por días trabajados. Si el sueldo calculado es mayor a 250.000 bonifique el 4% y si
es menor a este valor bonifíquele el 6%. El valor por día de trabajo es igual para todos. Al
finalizar deberá mostrar el valor total de la nómina. (Ciclo Para).

Proceso ejercicio 2
definir emple Como Entero;
Definir sueldo Como Real;
Definir x Como Entero;
definir boni Como Real;
definir nomin Como Real;

Escribir "Ingrese la cantidad de

empleados";
leer emple;

Para x <- 1 Hasta emple Con Paso

1 Hacer

Escribir "Ingrese su
sueldo";
leer sueldo;

si sueldo>250000 Entonces
boni <- sueldo*0.04;

nomin <- sueldo +

boni;
Escribir "Su nomina
es de: ", nomin;
FinSi

si sueldo<250000 Entonces
boni <- sueldo*0.06;

nomin <- sueldo +

boni;
Escribir "Su nomina
es de: ", nomin;
FinSi
FinPara

FinProceso
3. Realizar un programa que permita el registro de notas del grupo en el que el usuario digita
el nombre del estudiante y las 3 notas correspondientes a sus tres cortes de la asignatura
que cursó. Calcule y muestre en pantalla el nombre de cada estudiante y su nota definitiva.
Al final muestre la mejor nota, la peor nota y el promedio del grupo en la materia que cursaron
los estudiantes. (Ciclo Mientras – Ciclo Para).
Ciclo Mientras
Proceso Ejercicio3mientras

definir alumnos Como Entero;

definir cont Como Entero;
definir nombre como texto;
definir nota1 como Real;
definir nota2 como Real;
definir nota3 como Real;
definir sumanot Como Real;
definir def Como Real;
Definir mejor Como Real;
Definir sumaasigna Como Real;
Definir defgrupo Como Real;

Escribir "Ingrese la cantidad de alumnos";

leer alumnos;
cont <- 0;
sumaasigna <- 0;

Mientras cont < alumnos Hacer

Escribir "Ingrese su nombre";
leer nombre;

Escribir "Ingrese la nota del corte 1:

";
leer nota1;
sumaasigna <- sumaasigna + nota1;

Escribir "Ingrese la nota del corte 2:

";
leer nota2;
sumaasigna <- sumaasigna + nota2;

Escribir "Ingresa la nota del corte

3: ";
leer nota3;
sumaasigna <- sumaasigna + nota3;

sumanot <- nota1 + nota2 + nota3;

def <- sumanot/3;

Escribir"Su promedio es: ",def;

si nota1 > nota2 y nota1 > nota3

Entonces
Escribir"La mejor nota es ",
nota1;
FinSi

si nota2 > nota1 y nota2 > nota3

Entonces
Escribir"La mejor nota es
",nota2;
FinSi

si nota3 > nota1 y nota3 > nota2

Entonces
Escribir"La mejor nota es
",nota3;
FinSi

si nota1 < nota2 y nota1 < nota3

Entonces
Escribir"La peor nota es
",nota1;
FinSi

si nota2 < nota1 y nota2 < nota3

Entonces
Escribir"La peor nota es
",nota2;
FinSi

si nota3 < nota1 y nota3 < nota2

Entonces
Escribir"La peor nota es
",nota3;
FinSi

cont <- 1 + cont;

FinMientras

defgrupo <- sumaasigna/(alumnos*3);

Escribir"La definitiva del grupo es ",defgrupo;

FinProceso
Ciclo Para
Proceso Ejercicio3para

definir alumnos Como Entero;

Definir sumaasigna Como Real;
Definir x Como Entero;
definir nombre como texto;
definir nota1 como Real;
definir nota2 como Real;
definir nota3 como Real;
definir sumanot Como Real;
definir def Como Real;
Definir mejor Como Real;
Definir defgrupo Como Real;

sumaasigna <- 0;

Escribir "Ingrese la cantidad de alumnos";

leer alumnos;

Para x <- 1 Hasta alumnos Con Paso 1 Hacer

Escribir "Ingrese su nombre";
leer nombre;

Escribir "Ingrese la nota del corte 1:

";
leer nota1;
sumaasigna <- sumaasigna + nota1;

Escribir "Ingrese la nota del corte 2:

";
leer nota2;
sumaasigna <- sumaasigna + nota2;

Escribir "Ingresa la nota del corte

3: ";
leer nota3;
sumaasigna <- sumaasigna + nota3;

sumanot <- nota1 + nota2 + nota3;

def <- sumanot/3;
Escribir"Su promedio es: ",def;

si nota1 > nota2 y nota1 > nota3

Entonces
Escribir"La mejor nota es ",
nota1;
FinSi

si nota2 > nota1 y nota2 > nota3

Entonces
Escribir"La mejor nota es
",nota2;
FinSi

si nota3 > nota1 y nota3 > nota2

Entonces
Escribir"La mejor nota es
",nota3;
FinSi

si nota1 < nota2 y nota1 < nota3

Entonces
Escribir"La peor nota es
",nota1;
FinSi

si nota2 < nota1 y nota2 < nota3

Entonces
Escribir"La peor nota es
",nota2;
FinSi

si nota3 < nota1 y nota3 < nota2

Entonces
Escribir"La peor nota es
",nota3;
FinSi

FinPara

defgrupo <- sumaasigna/(alumnos*3);

Escribir"La definitiva del grupo es ",defgrupo;

FinProceso
4. Elabore un algoritmo que permita a un usuario generar la tabla de multiplicar que desee conocer
y pueda repetir esta operación tantas veces como tablas quiera ver en pantalla. (Ciclo Mientras –
Ciclo Para).
Ciclo Mientras
Proceso Ejercicio4mientras

definir tabla como entero;

definir cont Como Entero;
definir numtabla como entero;
definir inicio Como Entero;
Definir x Como Entero;
definir result Como Entero;

Escribir "Ingrese la cantidad de

tablas de multiplicar que desee
conocer";
leer tabla;

cont <- 0;

Mientras cont < tabla Hacer

Escribir "Ingrese el número

de la tabla que desee conocer";
leer numtabla;

Escribir "TABLA DE
MULTIPLICAR DEL ",numtabla;

Para x<-1 Hasta 10 Con Paso

1 Hacer
result <- numtabla *
x;
Escribir
"",numtabla,"x",x,"=",result;
FinPara

cont <- 1 + cont;

FinMientras

FinAlgoritmo
Ciclo Para
Proceso Ejercicio4para

definir tabla como entero;

definir numtabla como
entero;
definir inicio Como Entero;
Definir x Como Entero;
definir result Como Entero;

Escribir "Ingrese la
cantidad de tablas de multiplicar
que desee conocer";
leer tabla;

Para x<-1 hasta tabla Con

Paso 1 Hacer
Escribir "Ingrese el
número de la tabla que desee
conocer";
leer numtabla;

Escribir "TABLA DE
MULTIPLICAR DEL ",numtabla;

Para x<-1 Hasta 10 Con

Paso 1 Hacer
result <-
numtabla * x;
Escribir
"",numtabla,"x",x,"=",result;
FinPara
Fin para

FinAlgoritmo
5. Construya un diagrama de flujo tal que dado N números enteros como dato, calcule el mayor y
el menor de estos números. Explicar cada una de las variables utilizadas. (Ciclo Para)

Algoritmo Ejercicio5

Definir n Como Entero;

Definir num Como Entero;
Definir mayor Como Entero;
Definir menor Como Entero;
definir x Como Entero;

Escribir "Ingrese la
cantidad de números a
comparar:";
Leer n;

Escribir "Ingrese el ",1,"

número:";
Leer num;
mayor <- num;
menor <- num;

Para x <- 2 Hasta n Hacer

Escribir "Ingrese el
",x," número:";
Leer num;
Si num > mayor
Entonces
mayor <- num;
FinSi;

Si num < menor

Entonces
menor <- num;
FinSi
FinPara

Escribir "El número

mayor es: ", mayor;
Escribir "El número
menor es: ", menor;
FinAlgoritmo
6. Elabore un algoritmo que permita simular el juego de la moneda (cara o sello), tantas veces como
el usuario quiera repetir el juego. Al final muestre las estadísticas de cuantas veces jugó, cuantas
caras y cuantos sellos se generaron. (Ciclo Mientras)
Algoritmo Ejercicio6

Definir cont Como Entero;

Definir cara Como Entero;
Definir sello Como Entero;
Definir repeti Como Entero;
Definir result_ante Como Entero;
definir repetir_resul Como Logico;
Definir resultado Como Entero;

cont <- 0;
cara <- 0;
sello <- 0;
result_ante <- -1;

Escribir "BIENVENIDO AL JUEGO DE LA

MONEDA :)";

repeti <- 1; // Inicializamos con un

valor diferente de cero

Mientras repeti = 1 Hacer

cont <- cont + 1;

repetir_resul <- Verdadero;

Mientras repetir_resul =
Verdadero Hacer
resultado <-
Aleatorio(0,1);
si resultado <>
result_ante Entonces
repetir_resul <-
falso;
FinSi
FinMientras

Escribir "Lanzamiento # ", cont;

Si Aleatorio(0, 1) = 0 Entonces
Escribir "Sello";
sello <- sello + 1;
Sino
Escribir "Cara";
cara <- cara + 1;
FinSi;

result_ante <- resultado;

Escribir "¿Desea jugar de nuevo?

(1: Sí, 0: No): ";
Leer repeti;
FinMientras;

Escribir "Estadísticas del juego:";

Escribir "Total de lanzamientos: ",
cont;
Escribir "Total de Caras: ", cara;
Escribir "Total de Sellos: ", sello;
FinAlgoritmo