Proceso repetitivas1
definir i Como Entero
para i<-1 hasta 20 Hacer
Escribir i
FinPara
FinProceso
Proceso repetitivas2
definir suma, i,N Como Entero
Escribir "Ingrese el número de términos: "
leer N
suma<-0
para i<-1 Hasta N Hacer
Escribir i
suma<- suma +i
FinPara
Escribir "La suma es: ", suma
FinProceso
Proceso repetitivas3
Definir i, N, Cantaprob, Cantdesap, nota Como Entero
Definir PorcDes, PorcAprob Como Real
Escribir "Ingrese la cantidad de estudiantes: "
leer N
Cantaprob<-0
Cantdesap<-0
Para i<-1 Hasta N Hacer
Escribir "Ingrese la nota - ",i
Leer nota
Si nota>=12 Entonces
Cantaprob<-Cantaprob+1
SiNo
Cantdesap<-Cantdesap+1
FinSi
FinPara
PorcAprob<-Cantaprob*100/N
PorcDes<- Cantdesap*100/N
Escribir "La cantidad de aprobados es:", Cantaprob
Escribir "La cantidad de desaprobados es: ", Cantdesap
Escribir "El porcentaje de aprobados es: ", PorcAprob
Escribir "El porcentaje de desaprobados es: ", PorcDes
Proceso ejercicio1
Definir i, sum Como Entero
sum<-0
para i<-11 Hasta 20 Con Paso 2 Hacer
Escribir i
sum<- sum+i
FinPara
Escribir "La suma es: ", sum
FinProceso
Proceso ejercicio4
Definir i, sum Como Entero
sum<-0
Escribir "Los números pares comprendidos entre 20 y 10 en forma descendente son: "
Para i<-18 Hasta 12 Con Paso -2 Hacer
Escribir i
sum<- sum+i
FinPara
Escribir "La suma es : ", sum
FinProceso
Proceso ejercicio4
Definir i, num, limN, multiplos Como Entero
Escribir "Ingrese el número del cual desea tener múltiplos: "
leer num
Escribir "Ingrese hasta que número desea el múltiplo: "
leer limN
mult<-0
Para i<-1 Hasta (limN/num) -1 Con Paso 1 Hacer
mult<-num*i
Escribir mult
FinPara
FinProceso
Mientras
Proceso mientras_1
definir i como entero
i<-1
mientras i<=3 Hacer
escribir "Buenas tardes"
i<- i + 1
FinMientras
FinProceso
Proceso Ejercicio3
Definir i, num, suma Como Entero
Escribir "Ingrese la cantidad de números a imprimir: "
leer num
i<-1
suma<-0
Mientras i<=num Hacer
Escribir i
suma<- suma+i
i<-i+1
FinMientras
Escribir "La suma es: ", suma
FinProceso
Proceso Ejercicio4
Definir i, num, Nvend, Como Entero
Definir mont1, mont2, mont3, prom, suma, sumaT Como Real
Escribir "Ingrese el número de vendedores: "
leer Nvend
i<-1
prom<-0
suma<-0
sumaT<-0
Mientras i<=Nvend Hacer
Escribir "Empleado", i
Escribir "Ingrese las tres ventas: "
Leer mont1,mont2, mont3
suma<-mont1+mont2+mont3
prom<-suma/3
Escribir "El promedio del empleado- " , i ," s/ ", prom
sumaT<- sumaT+suma
i<-i+1
Escribir "El total de ventas es: ", sumaT
FinMientras
Proceso mientras_notas
definir i, n, nota, sumaNotas Como Entero
definir prom Como Real
escribir "Ingrese nro de estudiantes: "
leer n
i<- 1
sumaNotas <- 0
mientras i<=n Hacer
escribir "Ingrese nota final (0 a 20) de estudiante-",i
leer nota
si nota>=0 y nota<=20
Entonces
sumaNotas <- sumaNotas + nota
i<- i +1
SiNo
escribir "Error en nota"
FinSi
FinMientras
prom<- sumaNotas / n
Escribir "Promedio de aula: ",prom
FinProceso
REPETIRRR
Proceso ejercicio2
Definir i, n Como Entero
Escribir "Ingrese hasta que número desea imprimir: "
Leer n
i<-1
suma<-0
Repetir
Escribir i
suma<-suma+i
i<-i+1
Hasta Que i>n
Escribir "La suma es: ", suma
FinProceso
Proceso Rept4
Definir cantPer, edad Como Entero
Definir PorcMayo,PorcMeno Como Real
Escribir "Ingrese la cant de personas: "
leer cantPer
i<-1
CantMayo<-0
CantMen<-0
Repetir
Escribir"persona-" i
Escribir "Ingrese su edad: "
Leer edad
si edad>=18 Entonces
CantMayo<- CantMayo+1
SiNo
CantMen<- CantMen+1
FinSi
i<-i+1
Hasta Que i>cantPer
PorcMayo<- (CantMayo*100)/cantPer
PorcMeno<- (CantMen*100)/cantPer
Escribir "La cantidad de mayores de edad es: ", CantMayo
Escribir "La cantidad de menores de edad es: ", CantMen
Escribir "El porcentaje de mayores de edad es: ", PorcMayo ,"%"
Escribir "El porcentaje de menores de edad es: ", PorcMeno , "%"
FinProceso
Proceso validación
definir n Como Entero
Repetir
escribir "Ingrese un número menor que 100: "
leer n
Hasta Que n<100
escribir "El nro ingresado es: ",n
FinProceso
Proceso ejercicio6
Definir nombre, respt Como Caracter
Definir edad, cantVisit Como Entero
cantVisit<-0
Repetir
Escribir "Ingrese el nombre del visitante: "
Leer nombre
Escribir "Ingrese la edad: "
Leer edad
Escribir "¿Hay más visitantes para registrar S/N?"
Leer respt
cantVisit<- cantVisit+1
Hasta Que Mayusculas(respt)= "N"
Escribir "La cant de visitantes es: ", cantVisit
FinProceso
Proceso repetitivas_anidadas_
definir i,n,cMenos, cMas Como Entero
definir sueldo, pMenos, pMas Como Real
cMas<- 0
cMenos<-0
Repetir
escribir "Ingrese nro de empleados: "
leer n
Hasta Que n>0
para i<-1 hasta n Hacer
Repetir
Escribir "Ingrese sueldo entre 900 y 6000. Empleado-",i
leer sueldo
Hasta Que sueldo>=900 y sueldo<=6000
si sueldo<= 4000 EntoncescMenos <- cMenos+1SiNocMas<- cMas + 1FinSiFinParapMenos<-
cMenos*100/npMas<- cMas*100/nEscribir "Nro. de empleados que ganan hasta S/. 4000: "
cMenosEscribir "Nro. de empleados que ganan más S/. 4000: " cMasEscribir "Porc. de
empleados que ganan hasta S/. 4000: " pMenosEscribir "Porc. de empleados que ganan más
S/. 4000: " pMasFinProceso
Proceso sin_titulo
Definir cantPers,i,F, M Como Entero
Definir gen Como Caracter
CantMuj<-0
CantVaro<-0
Repetir
Escribir "ingrese la cantidad de personas: "
leer cantPers
Hasta Que cantPers>0
Para i<-1 Hasta cantPers
Repetir
Escribir "Ingrese el género (F-M) persona- ", i
Leer gen
gen<- Mayusculas(gen)
Hasta Que gen="M" o gen="F"
si gen="F" Entonces
CantMuj<- CantMuj+1
SiNo
CantVaro<-CantVaro+1
FinSi
FinPara
Escribir "La cant de mujeres es: ", CantMuj
Escribir "La cant de varones es: ", CantVaro
FinProceso
