FACULTA DE INGENERIA INDUSTRIAL

ESCUELA DE MECATRONICA

AUTOR:
Sergio David Guerrero Alvirena

Curso:
Algoritmos

DOCENTE:

Dra. Carmen Infante Saavedra

CICLO I

2023-PIURA
TAREA 5 HACER LOS 35 EJERCICIOS DE
Hacer un algoritmo en Pseudocódigo para:
1.Que permita mostrar los N primeros números naturales
INICIO
1-Var: X , N
2-Escribir "INDIQUE EL NUMERO DE TERMINOS QUE QUIERE"
3-LEER N
4-X=0
5-Mientras X<N Hacer
X=X+1
Escribir X
FinMientras
FIN
2. Que permita mostrar la suma de los N primeros números naturales
INICIO

1- Var: N, X , S .Tipo:entero

2-Leer : N , X=1, S=0

3-Mientras X<=N hacer

-S=S+1 X=X+1

-Escribir: S

FIN

3. Que permita mostrar el promedio de los N primeros números naturales

INICIO
1-definir N,SUMA,CONTADOR Como Entero
2-Definir PROMEDIO Como Real
 3-CONTADOR=0
4-SUMA=0

5-Escribir "INGRESE EL NUMERO DE NUMEROS A EVALUAR"

6-LEER N
-MIENTRAS CONTADOR<N HACER
-CONTADOR=CONTADOR+1
SUMA=SUMA+CONTADOR
FinMientras
7-ESCRIBIR SUMA
8-PROMEDIO=SUMA/N
9-Escribir "PROMEDIO ES:",PROMEDIO
FIN
4. Que permita mostrar los N primeros números pares

INICIO
1-VAR: N, I .Tipo:Entero
2-LEER N
3-PARA I=1 HASTA N-1 HACER
I=I+1
4-Mostrar I
FinPara
FIN
5.Que permita mostrar la suma de los N primeros números pares
INICIO
 1-VAR: N, SUMA , CONTADOR.TIPO : ENTERO
2-ESCRIBIR "INGRESE EL NUMERO DE LOS PRIMEROS PARES A
PROMEDIAR"
3-LEER N
4- X=1
5-CONTADOR=1
6-MIENTRAS CONTADOR <=N HACER
SI X MOD 2= 0 ENTONCES ESCRIBIR X
SUMA=SUMA+X
CONTADOR=CONTADOR+1
FinSi
X=X+1
FinMientras
ESCRIBIR "LA SUMA DE LOS N PRIMEROS NUMEROS PARES ES:"
SUMA
FinAlgoritmo
6. Que permita mostrar el promedio de los N primeros números pares
INICIO
1-definir n, acumulador, contador ,promedio Como Real
2-escribir "ingrese un numero"
3-leer n
4-acumulador=0
5-contador=0
6-mientras contador<2*n hacer
contador =contador+1
si contador mod 2 =0 Entonces
 acumulador =acumulador+contador

FinSi

FinMientras
7-promedio=acumulador/n
8-escribir "el promedio es:",promedio
FIN
7.Que permita mostrar los N primeros números impares
INICIO
1-Var: N, C .tipo : entero
2-Escribir “ingrese numero”
3-LEER n
4-C<-1
5-MIENTRAS C<=N hacer
6-Escribir C
7-C<-C+2
FIN MIENTRAS
FIN
8. Que permita mostrar la suma de los N primeros números impares
INICIO
1-VAR: N , I .TIPO: ENTERO
2-ESCRIBIR "INGRESE EL NUMERO DE LOS PRIMEROS IMPARES A
PROMEDIAR"
3-LEER N
4-DEFINIR X,CONTADOR,SUMA Como Entero
5-X=1
 6-CONTADOR=1
7-MIENTRAS CONTADOR <=N HACER
SI X MOD 2= 1 ENTONCES ESCRIBIR X
SUMA=SUMA+X
CONTADOR=CONTADOR+1
FinSi
X=X+1
FinMientras
8-ESCRIBIR "LA SUMA DE LOS N PRIMEROS NUMEROS PARES ES:"
SUMA
FIN
9. Que permita mostrar el promedio de los N primeros números impares
INICIO
1-ESCRIBIR "INGRESE EL NUMERO DE LOS PRIMEROS IMPARES A
PROMEDIAR"
2-LEER N
3-DEFINIR X,CONTADOR,SUMA Como Entero
4-Definir p Como Real
5-X=1
6-CONTADOR=1
7-MIENTRAS CONTADOR <=N HACER
SI X MOD 2= 1 ENTONCES ESCRIBIR X
SUMA=SUMA+X
CONTADOR=CONTADOR+1
FinSi
X=X+1
 p=SUMA/N
FinMientras

ESCRIBIR p
FIN
10. Que permita leer N valores ingresados por teclado y muestre los que
son múltiplos de 5.
INICIO
1-Definir N,S,CONTINUAR Como Real
2-Escribir "INGRESE NUMERO DE VALORES "
3-LEER N
4-CONTINUAR=0
5-Mientras CONTINUAR<N HACER
CONTINUAR=CONTINUAR+1
Escribir "Ingrese el numero a evaluar"
LEER S
SI S MOD 5=0 ENTONCES
ESCRIBIR "El numero:",S,"es multiplo de 5"
FinSi
FinMientras
FIN
11. Que permita ingresar N notas. Mostrar el promedio.
INICIO
1-Definir N,S,PROMEDIO,ACUMULADOR,CONTADOR Como Real
2-Escribir "INGRESE EL NUMERO DE NOTAS A EVALUAR"
3-LEER N
 4-ACUMULADOR=0
5-CONTINUAR=0
6-Mientras CONTINUAR<N HACER
Escribir "INGRESAR NOTA"
LEER S
CONTINUAR=CONTINUAR+1
ACUMULADOR=ACUMULADOR+S

FinMientras
7-P=ACUMULADOR/N
8-ESCRIBIR "EL PROMEDIO ES:" P
FIN
12. En una empresa se van a producir aumentos de sueldos a sus
trabajadores en base a la siguiente escala : Sueldo (soles) Aumento ( %)
501 a más 20 hasta 500 30 La empresa cuenta con 5 trabajadores. Calcule
el total de personas que recibirán el 20 y 30 % de aumento, así como el
total a desembolsa0r por la empresa de todos los sueldos de los
trabajadores.
INCIO
1-Var: Sp, ST=0: tipo real; x, Per20=0, Per30=0: tipo entero
2. Desde x=1 hasta x=5 (x=x+1) hacer
Escribir “Ingrese el monto de sueldo del trabajador”
Leer Sp
Si Sp≤500 entonces
Sp=Sp*1.3 Per30=Per30+1
Si_no
Sp=Sp*1.2
Per20=Per20+1 Fin_Si ST=ST+Sp
Fin_Desde
3. Mostrar “Las personas que recibirán aumento de 20% son:”, Per20 “Las
personas que recibirán aumento de 30% son:”, Per30 “La empresa tendrá
que desembolsar un total de”, ST, “soles a los trabajadores”
FIN
13. Que calcule la siguiente suma: S=1+ x/1! + x2/2! + x3/3! +….

14. El promedio que existe entre los números X y Y con un incremento de

0.5
INICIO
1. Var: X, Y, P: tipo real
2. Escribir “Ingrese los dos números a operar”
3. Leer X, Y
4. P=(X+Y)/2 5. Mientras P≠0 hacer P=P+0.5 Mostrar P 6.
Fin_Mientras
FIN
15. Que muestre las tablas de multiplicar del 1 al 15
INICIO
definir x,n,resultado Como Entero
Escribir "ingrese el numero que quiere multiplicar"
leer n
para x=1 hasta 15 hacer
resultado=n*x
escribir reultado
FinPara
 FIN
16. Que permita mostrar N números por teclado y calcule el promedio de
los números pares e impares por separado, el promedio de todos los
números ingresados y el número total de pares e impares ingresados.
INICIO
DEFINIR
N,PROMEDIOP,PROMEDIOI,PROMEDIOTOTAL,NUMEROSPARES,NUMEROS
IMPARES,CONTADOR1,CONTADOR2,CONTADOR3,K Como Real
CONTADOR1=0
CONTADOR2=0
CONTADOR3=0
NUMEROSIMPARES=0
NUMEROSPARES=0
PROMEDIOP=0
PROMEDIOI=0
ESCRIBIR "INGRESE LA CANTIDAD DE NUMEROS"
LEER N
MIENTRAS CONTADOR1<N HACER
CONTADOR1=CONTADOR1+1
ESCRIBIR "INGRESE EL NUMERO A EVALUAR"
LEER K
SI K MOD 2=0 ENTONCES
CONTADOR2=CONTADOR2 +1
NUMEROSPARES=NUMEROSPARES+K
SiNo
CONTADOR3=CONTADOR3+1
 NUMEROSIMPARES=NUMEROSIMPARES+K
FINSI
FinMientras
PROMEDIOP=NUMEROSPARES/CONTADOR2
PROMEDIOI=NUMEROSIMPARES/CONTADOR3
PROMEDIOTOTAL=(PROMEDIOI+PROMEDIOP)/2
ESCRIBIR" EL PROMEDIO DE LOS NUMEROS PARES ES",PROMEDIOP
ESCRIBIR "EL PROMEDIO DE LOS NUMEROS IMPARES
ES:",PROMEDIOI
ESCRIBIR "EL PROMEDIO TOTAL ES:" PROMEDIOTOTAL
FIN
17. Que permita calcular el promedio de N números ingresados por
teclado
INICIO
DEFINIR CONTADOR,N,ACUMULADOR,PROMEDIO,K Como Real
CONTADOR=0
ACUMULADOR=0
SUMA=0
ESCRIBIR "INGESE EL NUMERO A DE LOS QUE SE VAN A
PROMEDIAR"
LEER N
Mientras CONTADOR<N Hacer
CONTADOR=CONTADOR+1
ESCRIBIR "INGRESE NUMERO A PROMEDIAR"
LEER K
ACUMULADOR=ACUMULADOR+K
 FinMientras
PROMEDIO=ACUMULADOR/N
ESCRIBIR " EL PROMEDIO ES:", PROMEDIO
FIN
18. Que permita decir si el numero ingresado es primo o no es primo
INICIO
DEFINIR X,N,CONTADOR Como Entero
Escribir "ingrese numero a evaluar"
leer N
X=1
CONTADOR=0
Mientras X<=N HACER
SI N MOD X=0 ENTONCES
CONTADOR=CONTADOR+1
FinSi
X=X+1
FinMientras
SI CONTADOR=2 ENTONCES
ESCRIBIR "EL NUMERO INGRESADO ES PRIMO"
SINO
ESCRIBIR "EL NUMERO INGRESADO NO ES PRIMO"

FinSi
FIN
19. Una universidad tiene como política de descuento en % (D) sobre el
pago de pensiones de enseñanza (PPE), que se basa en el Tipo de colegio
que estudio (Colegio Nacional, Colegio Particular y Otros) y el Rendimiento
del alumno (Bueno, Regular, Deficiente). Ingresar el tipo de colegio y el
rendimiento de N alumnos, y diga cuál es su descuento y cuanto pagará al
final de pensión (PFP) para cada uno.

Bueno (B) Regular (R) Deficiente

(D)
Colegio 30 25 20
Nacional (CN)
Colegio 15 10 5
Particular (CP)
Otros 4 0 0

INICIO
1. Var: PPE: tipo real; Cal: char; Cole, AL, x: tipo entero
2. Escribir “Ingrese la cantidad de alumnos a ingresar”
3. Leer AL
4. Desde x=1 hasta x=AL (x=x+1) hacer
Escribir “Ingrese el actual monto de pensión por enseñanza”
Leer PPE
Escribir “Colegio Nacional (1)”
“Colegio Particular (2)”
“Otro (3)”
“Ingrese el código (número) del tipo de I.E. de procedencia
correspondiente”
Leer Cole
Escribir
“Bueno (B)”
“Regular (R)”
“Deficiente (D)”
 “Ingrese la calidad del rendimiento académico correspondiente (letra
representativa)”
Leer Cal Casos(Cole)
Si Cole=1:
Casos (Cal)
Si Cal=B:
Mostrar “Usted tiene un descuento de 30%. Su
nuevo monto a pagar es:”, PPE*0.7, “soles”
Si Cal=R:
Mostrar “Usted tiene un descuento de 25%. Su
nuevo monto a pagar es:”, PPE*0.75, “soles”
Si Cal=D:
Mostrar “Usted tiene un descuento de 20%. Su
nuevo monto a pagar es:”, PPE*0.8, “soles”
Fin_Casos
Si Cole=2: Casos (Cal)
Si Cal=B:
PPE*0.85; D=15
Mostrar “Usted tiene un descuento de 15%. Su nuevo monto a pagar
es:”, PPE*0.85, “soles”
Si Cal=R: PPE*0.9;D=10
Mostrar “Usted tiene un descuento de 10%. Su nuevo monto a
pagar es:”, PPE*0.9, “soles”
Si Cal=D: PPE*0.95; D=5
Mostrar “Usted tiene un descuento de 5%. Su nuevo
monto a pagar es:”, PPE*0.95, “soles”
Fin_Casos
 Si Cole=3: Casos (Cal)
Si Cal=B: PPE*0.96; D=4
Mostrar “Usted tiene un descuento de 4%. Su nuevo monto a
pagar es:”, PPE*0.96, “soles”
Si Cal=R: D=0
Mostrar “Usted no posee descuento alguno. Su monto a pagar
continúa siendo”, PPE, “soles”
Si Cal=D: D=0 Mostrar “Usted no posee descuento alguno. Su
monto a pagar continúa siendo”, PPE, “soles”
Fin_Casos
Fin_Casos
Fin_Desde
FIN
20. Una persona procesa facturas correspondientes a sus ventas
ingresando código e importe, el proceso termina cuando el código de la
factura es 0. Se desea mostrar la factura con mayor importe vendido, el
número total de facturas y el importe total de las facturas procesadas .
INICIO
1. Var: S, Im, ImMax: tipo real
2. x, Cod, CodM: tipo entero
3. Escribir “Ingrese el código de la primera factura y su respectivo
importe”
4. Leer Cod,InMax
5. Si Cod≠0 entonces
S=InMax; CodM=Cod; x=1
Mientras Cod≠0 hacer
Escribir “Ingrese otro código de factura y su respectivo importe”
Leer Cod, Im
Si Cod≠0 entonces
Si Im>ImMax entonces
InMax=Im; CodM=Cod; S=S+Im; x=x+1
 Si_no S=S+Im; x=x+1
Fin_Si
Fin_Si
Fin_Mientras
6. Mostrar “El código de la factura con mayor importe es:”, CodM “El
número total de facturas es:”, x “El importe total de las facturas
es:”, S
Fin_Si
FIN
21. En una empresa se van a producir aumentos de sueldos a sus
trabajadores en base a la siguiente escala :

Sueldo (soles) Aumento ( %)

1001 a más 30
851 a 1000 20
501 a 850 10
Hasta 500 5
La empresa cuenta con 5 trabajadores. Calcule el total de personas que
recibirán el 5, 10, 20 y 30 % de aumento, así como el total a desembolsar
por la empresa de todos los sueldos de los trabajadores.
INICIO
definir A5, A20, A10, A30, Sp, ST como real
ST=0
A30=0
A20=0
A5=0
A10=0

definir x como entero

 x=1
mientras x<=5 hacer
x=x+1
Escribir "Ingrese el monto de sueldo del trabajador"
Leer Sp
Si Sp<=500 Entonces
Sp=Sp*1.05; A5=A5+1
FinSi
Si 500 <Sp y Sp<=850 Entonces
Sp=Sp*1.1; A10=A10+1
finsi
Si 850<Sp y Ps<=1000 entonces Sp=Sp*1.2;
A20=A20+1
finsi
Si Sp>1000 entonces Sp=Sp*1.3;
A30=A30+1
finsi
ST=ST+Sp

FinMientras

escribir "Las personas que

recibirán 5% de aumento son:", A5
escribir "Las personas que
recibirán 10% de aumento son:", A10
escribir "Las personas que
recibirán 20% de aumento son:", A20
 escribir "Las personas que
recibirán 30% de aumento son:", A30
escribir "El total a desembolsar
es:", ST
fin
22. Que lea N números y que muestre el mayor de ellos.
INICIO
definir N,CONTADOR,NUMERO_MAYOR,ACUMULADOR,K Como
Real
ESCRIBIR "INTRODUSCA LA CANTIDAD DE NUMEROS A EVALUAR"
LEER N
CONTADOR=0
ACUMULADOR=0
MIENTRAS CONTADOR<N Hacer
CONTADOR=CONTADOR+1
ESCRIBIR "INGRESE EL NUMERO A EVALUAR"
LEER K
SI CONTADOR=1 Entonces
NUMERO_MAYOR=K
SINO
SI K>NUMERO_MAYOR Entonces
NUMERO_MAYOR=K
FinSi
FinSi
FinMientras
Escribir "EL NUMERO MAYOR ES:", NUMERO_MAYOR
 FIN
23. Que calcule la suma de los números impares que están entre 1000 y
5000.
INICIO
VAR: I TIPO:REAL
PARA I=1000 HASTA 4999 HACER
I=I+1
Mostrar I
FinPara
FIN
24. Que calcule la suma y el promedio de los números pares menores o
iguales que un número K que lee al comienzo.
INICIO
definir N,SUMA,CONTADOR Como Entero
Definir PROMEDIO Como Real
CONTADOR=0
SUMA=0

Escribir "INGRESE EL NUMERO DE NUMEROS A EVALUAR"

LEER N
MIENTRAS CONTADOR<N HACER
CONTADOR=CONTADOR+1
SUMA=SUMA+CONTADOR
PROMEDIO=SUMA/N
FinMientras
PROMEDIO=SUMA/N
 ESCRIBIR "EL PROMEDIO ES :" PROMEDIO
FIN
25. Que imprima los múltiplos de 5 entre un límite inferior A y un límite
superior B.
INICIO
DEFINIR A,B Como Real
ESCRIBIR "INGRESE LIMITE INFERIOR"
LEER B
ESCRIBIR "INGRESE LIMITE SUPERIOR "
LEER A
MIENTRAS B<A HACER
B=B+1
SI B MOD 5=0 ENTONCES
ESCRIBIR B
FINSI
FinMientras
FIN
26. El costo de un telegrama ordinario es de $1000 si el número de
palabras es hasta 10, por cada palabra adicional se cobra $200. Si el
telegrama es urgente los costos son de $2000 y $400 respectivamente.
Escribir el algoritmo para un programa que lea el tipo del telegrama (una
sola letra, 'O' para ordinario y 'U' para urgente) y el número de palabras
del telegrama y escriba el costo de éste.
INICIO
1. Var: Tipo: char; NPal, x, CT: tipo entero
2. Escribir “Ingrese el tipo de telegrama: Ordinario (O) o Urgente (U)”
3. Leer Tipo
4. Escribir “Ingrese cuántas palabras contendrá el telegrama”
5. Leer NPal
6. Casos (Tipo) Si Tipo=O: Si NPal≤10 entonces CT=1000
Si_no
Desde x=1 hasta x=NPal-10 hacer
CT=1000+x*200
Fin_Desde
Fin_Si
Si Tipo=U: Si NPal≤10 entonces
CT=2000
Si_no
Desde x=1 hasta x=NPal-10 hacer
CT=2000+x*400 Fin_Desde Fin_Si Fin_Casos
7. Mostrar “El costo total del telegrama es:”, CT, “soles”
FIN

27. Introducir 100 números por teclado, de forma que el ordenador nos
avise cuando introducimos un número par, y nos muestre al final del
proceso el total de números pares introducidos.
INICIO
DEFINIR N ,CONTADOR,CONTADOR2 Como Real
CONTADOR=0
CONTADOR2=0
MIENTRAS CONTADOR<100 Hacer
ESCRIBIR "INTRODUSCA UN NUMERO"
LEER N
 CONTADOR=CONTADOR+1
SI N MOD 2=0 ENTONCES
CONTADOR2=CONTADOR2+1
ESCRIBIR "EL NUMERO " N " ES PAR"
FinSi
FinMientras
ESCRIBIR "EL NUMERO TOTAL DE PARES INGRESADOS ES :",
CONTADOR2
FIN
28. Que lea del teclado un número entero y que compruebe si es menor
que 5. Si no lo es, debe volver a leer un número, repitiendo la operación
hasta que el usuario escriba un valor correcto. Finalmente debe escribir
por pantalla el valor leído
INICIO
ESCRIBIR "INGRESE UN NUMERO"
LEER N
MIENTRAS N>=5 HACER
Escribir "INGRESE UN NUMERO"
LEER N
FinMientras
MOSTRAR "EL NUMERO " N " ES MENOR A 5"
FIN
29. Que cuente e imprima los números que son múltiplos de 2 o de 3 que
hay entre 1 y 100. 30. Que calcule el pago que hacen un grupo de
personas para ver una película teniendo en cuenta que si el grupo es
menor de 8 personas el pago es de 1.5 soles por persona y para grupos de
8 personas o más el pago es 0.5 soles por persona.
INICIO
1. Var: x, Mul=0: tipo entero
2. Desde x=1 hasta x=100 (x=x+1) hacer
Si xMOD2=0 ó xMOD3=0 entonces
Imprimir x; Mul=Mul+1
Fin_Desde
3. Mostrar “Hay un total de”, Mul, “múltiplos de 2 o 3 entre el 1 y el 100”
FIN
31. La Universidad los pagos por curso desaprobado son de 20 soles, con
un cargo máximo de 120 soles independiente del número de cursos
tomados. Ejemplo si un alumno desaprueba 3 cursos pagaría 60 soles,
mientras que uno que desaprueba 8 cursos paga 120 soles. Escriba el
algoritmo de un programa en el que las entradas sean el número de
cursos desaprobados y la salida sea el valor del pago total que el alumno
haga por los cursos desaprobados.
32. Una tienda comercial está evaluando a sus N agencias, para ello
necesita saber:
- Nombre agencia y nivel de ventas.
- Total de agencias que sobrepasan los $1500 en ventas y la suma
acumulada de SUS ventas.
- Agencia de mayor nivel de ventas y su nivel
INICIO
1. Var: Name, NameTop: string; x, n, NV, NVTop, VTo=0, ATop=0: tipo
real
2. Escribir “Ingrese la cantidad de agencias a analizar”
3. Leer n
4. Escribir “Ingrese el nombre de la primera agencia a analizar, y cuánto
vendió (en soles)”
5. Leer NameTop, NVTop
6. Si n>1 entonces
Si NVTop>1500 entonces
ATop=ATop+1; VTo=VTo+NVTop
Fin_Si
Desde x=1 hasta x=n-1 (x=x+1) hacer
Escribir “Ingrese el nombre de otra agencia y cuánto vendió”
Leer Name, NV
Si NV>1500 entonces
ATop=ATop+1; VTo=VTo+NV
Fin_Si
Si NV>NVTop entonces NameTop=Name; NVTop=NV
Fin_Si
Fin_Desde
Si_no
Si NVTop>1500 entonces
ATop=ATop+1; VTo=VTo+NVTop Fin_Si Fin_Si
8. Mostrar “El total de agencias que sobrepasan los S/.1500 en ventas
es:”, ATop “La suma acumulada de ventas de las agencias que
sobrepasan los S/.1500 en ventas es:”, VTo, “soles” “Agencia con
mayor venta:”, NameTop, “Su nivel de venta fue:”,NVTop, “soles”
FIN
33. RENIEC está tratando de evaluar a sus 6 electores:
- Listado nombre y edad de sus electores.
- Cantidad de hombres y mujeres.
- Cuántos son realmente mayores de 60 años y cuántos no.
INICIO
1. Var: Name: string; E, x, M60=0, Hs=0, Ms=0: tipo entero; Sexo: char
2. Desde x=1 hasta x=6 (x=x+1) hacer
Escribir “Ingrese nombre y edad de elector”
Leer Name
E Escribir “Ingrese sexo del elector: Masculino (M) o Femenino (F)”
Leer Sexo
Casos (Sexo)
Si Sexo=M: Hs=Hs+1 Si E>60 entonces M60=M60+1
Fin_Si
Mostrar “Nombre:”,Name, “Edad:”, E
Si Sexo=F: Ms=Ms+1 Si E>60 entonces
M60=M60+1 Fin_Si
Mostrar “Nombre:”,Name, “Edad:”, E Fin_Casos
3. Mostrar “La cantidad de mujeres es:”, Ms “La cantidad de hombres es:”,
Hs “La cantidad de electores mayores de 60 años es:”, M60
FIN

34. Se quiere calcular la deuda actual de 30 alumnos, para ello debe solicitar los datos del
alumno, el monto adeudado. A esa deuda se le cargará un porcentaje de mora o recargo
dependiendo de la facultad a la que pertenece.

Sistemas 15%
Contabilidad 12.4%
Derecho 16%
Administración 14.5%
Civil 19%
Deberá mostrar el código del alumno, nombres y apellidos, su especialidad, semestre, deuda y
monto a pagar (deuda + recargo).

INICIO

1. Var: Codigo, Nombre, Sem: tipo cadena; Esp, x: tipo entero; D: tipo real
 2. Desde x=1 hasta x=30 (x=x+1) hacer Escribir “Ingrese el nombre completo del
alumno”

Leer Nombre

Escribir “Ingrese su código universitario”

Leer Codigo

Escribir “Ingrese su especialidad: Sistemas (1), Contabilidad (2), Derecho (3), Administración
(4), Civil (5)”

Leer Esp

Escribir “Ingrese el semestre a cursar”

Leer Sem

Escribir “Ingrese el monto adeudado”

Leer D Casos (Esp)

Si Esp=1:

Mostrar “Código:”, Codigo, “Nombre:”, Nombre, “Especialidad: Sistemas. Semestre:”,Sem,

“Monto adeudado:”, D, “Monto a pagar:”, D*1.15

Si Esp=2:

Mostrar “Código:”, Codigo, “Nombre:”, Nombre, “Especialidad: Contabilidad.

Semestre:”,Sem, “Monto adeudado:”, D, “Monto a pagar:”, D*1.124

Si Esp=3: Mostrar “Código:”, Codigo, “Nombre:”, Nombre, “Especialidad: Derecho.

Semestre:”,Sem, “Monto adeudado:”, D, “Monto a pagar:”, D*1.16

Si Esp=4: Mostrar “Código:”, Codigo, “Nombre:”, Nombre, “Especialidad: Administración.

Semestre:”,Sem, “Monto adeudado:”, D, “Monto a pagar:”, D*1.145

Si Esp=5: Mostrar “Código:”, Codigo, “Nombre:”, Nombre, “Especialidad: Civil. Semestre:”,Sem,

“Monto adeudado:”, D, “Monto a pagar:”, D*1.19

Fin_Casos

Fin_Desde

FIN

35. Se tiene una caja de ahorros, el programa deberá solicitar los datos del cliente y el monto a
depositar. Se desea saber si hay más hombres o mujeres ahorrando, el monto mayor de ahorro
con nombre y procedencia, la suma mayor total de ahorros de hombres o mujeres, edad
menor y el promedio de ahorro total.

INICIO

1. Var: NOMBRE, NOMBRETOP: STRING; MDD, AMAX=0, SUMTH=0, SUMTM=0, PAHT=0:

tipo real; NUMC, x, E, EMIN=150, NUMH=0, NUM=0: tipo entero; Sex: char
2. Escribir “Ingrese la cantidad de clientes”
3. Leer NUMC
4. Desde x=1 hasta x=NUMC (x=x+1) hacer
5. Desde x=1 hasta x=NUMC (x=x+1) hacer
Escribir “Ingrese el nombre del cliente”
Leer NOMBRE
Escribir “Ingrese su sexo: Masculino (M) o Femenino (F)”
Leer Sex
Escribir “Ingrese edad del cliente”
Leer E
Escribir “Ingrese el monto de depósito”
Leer MDD
Casos (Sex)
Si Sex=M:
NUMH=NUMH+1
SUMTH= SUMTH+MDD
Si Sex=F:
NUMM=NUMM+1
SUMTM= SUMTM+MDD
Fin_Casos
Si MDD>AMAX entonces
AMAX=MdD; NameTop=NOMBRE
Fin_Si
Si E≤EMin entonces
EMin=E
Fin_Si
Fin_Desde
5. PAHT=(SUMTH+SUMTM)/NUMC
6. Si NUMH>NUMM entonces Mostrar “De acuerdo con los datos, confirmamos que
nuestros clientes son mayormente hombres"
Si_no
Mostrar "De acuerdo con los datos, confirmamos que nuestros clientes son
mayormente mujeres"
Fin_Si
7. Mostrar “El monto de mayor ahorro es:”, AMAX, "Cliente:”, NOMBRETop
8. Si SUMTH>SUMTM entonces Mostrar “La mayor suma total de ahorros proviene de
nuestros clientes. Con un total de:”, SUMTH
Si_no
Mostrar “La mayor suma total de ahorros proviene de nuestras clientas. Con un total
de:”, SUMTM
Fin_Si
9. Mostrar “La menor nota ingresada es:”, EMin
10. Mostrar “El promedio total de ahorro es:”, PAHT
FIN