SEMANA # 28

CICLO MIENTRAS CON REGISTRO CENTINELA
1
Se tiene el nombre, código del producto, el total de las ventas de los vendedores de una empresa. Calcule su comisión teniendo en cuenta que si el producto es 
de: Código 1 esta es del 5%, Código 2 esta es del 8%, Código 3 esta es del 7%, código 4 es del 6.5% Imprima el nombre código del producto y la comisión de cada 
vendedor y el total comisiones pagadas por la empresa por cada producto, el porcentaje del producto de código 2. El fin de archivo lo indica un código del 
producto 00000.
N <- NOMBRE
CP <- CODIGO PRODUCTO
TV <- TOTAL VENTAS 
C <- COMISION
TCPE1 <-  total comisiones pagadas por la empresa por producto cdoigo 1
TCPE2 <-  total comisiones pagadas por la empresa por producto cdoigo 2
TCPE3 <-  total comisiones pagadas por la empresa por producto cdoigo 3
TCPE4 <-  total comisiones pagadas por la empresa por producto cdoigo 4
PPC2 <- porcentaje del producto de código 2
CT <- CONTADOR TOTAL

CADENA [30] N
REAL TV, C, TCPE1, PPC2, TCPE2, TCPE3, TCPE4
ENTERO CP, CT

INICIO

TCPE1 <- 0
TCPE2 <- 0
TCPE3 <- 0
TCPE4 <- 0
CT <- 0

ESCRIBA " DIGA EL NOMBRE "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL CODIGO DEL PRODUCTO "
LEA CP
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL TOTAL DE VENTAS "
LEA TV
LLAMAR NUEVA_LINEA

MIENTRAS (CP <> 0)HAGA

SI ( CP = 1) ENTONCES
C <- TV*0.05
TCPE1 <- TCPE1+C

SINO 

SI(CP = 2 ) ENTONCES
C <- TV* 0.08
TCPE2 <- TCPE2+C

SINO 
SI (CP =3) ENTONCES
C <- TV * 0.07
TCPE3 <- TCPE3+C
SINO 

SI ( CP =4)ENTONCES
C <- TV * 0.065
TCPE4 <- TCPE4+C

FIN SI
FIN SI
FIN SI
FIN SI

ESCRIBA " LA COMISION PAGADA A: ", N
ESCRIBA " ES DE: ", C
ESCRIBA " Y DE CODIGO: ",CP
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL NOMBRE "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL CODIGO DEL PRODUCTO "
LEA CP
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL TOTAL DE VENTAS "
LEA TV
LLAMAR NUEVA_LINEA

CT <- CT+1
FIN MIENTRAS

PPC2 <- (TCPE2*100)/CT

ESCRIBA " EL TOTAL DE COMICIONES PAGADAS POR LA EMPRESA POR EL PRODUCTO DE CODIGO DE 1 ES DE: ",TCPE1
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE COMICIONES PAGADAS POR LA EMPRESA POR EL PRODUCTO DE CODIGO DE 2 ES DE: ",TCPE2
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE COMICIONES PAGADAS POR LA EMPRESA POR EL PRODUCTO DE CODIGO DE 3 ES DE: ",TCPE3
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE COMICIONES PAGADAS POR LA EMPRESA POR EL PRODUCTO DE CODIGO DE 4 ES DE: ",TCPE4
LLAMAR NUEVA_LINEA
ESCRIBA " EL PORCENTAJE DEL PRODUCTO DE CODIGO DOS ES DE: ", PPC2
LLAMAR NUEVA_LINEA
FIN

2

 Se tienen las calificaciones de matemáticas y español de los estudiantes de un curso, con su nombre y el carnet. Hallar e imprimir: La calificación promedio 
del grupo Porcentaje de estudiantes que gano las dos materias Total estudiantes que aprobaron Español Total estudiantes que perdieron Español Total estudiantes 
que aprobaron Matemáticas Total estudiantes que perdieron Matemáticas. La señal de fin de archivo es un nombre en ********
CM <- CALIFICACION MATEMATICA 
CE <- CALIFICACION ESPAÑOL
NE <- NOMBRE DEL ESTUDUIANTEP 
CT <- CARNET
CP <- CLIFICACIONES PROMEDIO 
PEG2 <- PORSENTAJE DE ESTUDIENTES QUE GANO LAS DOS MATERIAS
TEG2 <- TOTAL DE ESTUDIANTES GANARON LAS DOS
TEAE <- TOTAL DE ESTUDIANTES APROVO ESPAÑOL
TEPE <- TOTAL DE ESTUDIANTES PERDIO ESPAÑOL
TEAM <- TOTAL DE ESTUDIANTES APROVO MATEMATICA
TEPM <- TOTAL DE ESTUDIANTES PERDIO MATEMATICA
CR <- CONTADOR
CNM <- COONTADOR NOTA MATEMATICA
CNE <- CONTADOR NOTA ESPAÑOL


CADENA [30] NE
ENTERO CT, TEAE, TEPE, TEAM, TEPM, CR, TEG2
REAL CM, CE, CP, PEG2, CNM, CNE

INICIO

TEG2 <- 0
TEAE <- 0
TEPE <- 0
TEAM <- 0
TEPM <- 0
CR <- 0
CNM <- 0
CNE <- 0

ESCRIBA " DIGA EL NOMBRE DEL ESTUDIANTE "
LEA NE
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL CODIGO DEL CARNET "
LEA CT
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA CALIFICACION DE MATEMATICAS "
LEA CM
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA CALIFICACION DE ESPAÑOL "
LEA CE
LLAMAR NUEVA_LINEA

MIENTRAS ( CT <> 000) HAGA

SI (CE > 3.5) Y ( CM > 3.5)ENTONCES
TEG2 <- TEG2+1

FIN SI

SI (CE < 3.5 ) ENTONCES
TEPE <- TEPE + 1

SINO 

TEAE <- TEAE + 1

FIN SI

CNE <- CNE+CE

SI ( CM < 3.5 ) ENTONCES
TEPM <- TEPM + 1

SINO 

TEAM <- TEAM + 1

FIN SI

CNM <- CNM + CM

ESCRIBA " DIGA EL NOMBRE DEL ESTUDIANTE "
LEA NE
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL CODIGO DEL CARNET "
LEA CT
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA CALIFICACION DE MATEMATICAS "
LEA CM
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA CALIFICACION DE ESPAÑOL "
LEA CE
LLAMAR NUEVA_LINEA

CR <- CR + 1

FIN MIENTRAS

CP <- (CNE+CNM)/CR
PEG2 <- ((TEG2)*100)/CR

ESCRIBA " EL TOTAL DE ESTUDIANTES :", CR
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE ESTUDIANTES QUE PERDIERON ESPAÑOL ES: ",TEPE
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE ESTUDIANTES QUE APROVARON ESPANOL ES: ",TEAE
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE ESTUDIANTES QUE PERDIERON MATEMATICA ES: ",TEPM
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE ESTUDIANTES QUE APROVARON MATEMATICA ES: ",TEAM
LLAMAR NUEVA_LINEA
ESCRIBA " LA CALIFICACION PROMEDIO DEL GRUPO ES: ", CP

LLAMAR NUEVA_LINEA

ESCRIBA " EL PROCENTAJE DE ESTUDIANTES QUE GANO LAS DOS MATERIAS ES DE: ", PEG2

FIN

3

En una empresa se requiere calcular el salario semanal de cada uno de los obreros que laboran en ella, el total de salarios pagados y el total de horas extras 
pagadas. El salario se obtiene de la siguiente forma:
Si el obrero trabaja 40 horas o menos se le paga $20 por hora Si trabaja mas de 40 horas se le paga $20 por cada una de las primeras 40 horas y $25 por cada 
hora extra. Se lee: nombre, numero de horas trabajadas Señal Fin de archivo es horas trabajadas 00000
SS <- SALARIO SEMANAL
TSP <- TOTAL SALRIOS PAGADOS
THEP <- TOTAL DE HORAS EXTRAS PAGADAS
N <- NOMBRE
NHT <- NUMEROS HARAS TRABAJADAS
HE <- HORAS EXTRA
PHE <- PAGO HORAS EXTRA


CADENA [30] N
REAL SS, TSP, THEP, PHE
ENTERO NHT,HE

INICIO

TSP <- 0
THEP <- 0
ESCRIBA " DIGA EL NOMBRE DEL TRABAJADOR "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA NUMERO HORAS TRABAJADAS "
LEA NHT
LLAMAR NUEVA_LINEA

MIENTRAS (NHT <> 0)HAGA

SI (NHT <= 40) ENTONCES
SS <- NHT*20
ESCRIBA " EL SALRIO SEMANA ES DE: ",SS
LLAMAR NUEVA_LINEA

SINO

SI (NHT>40) ENTONCES

HE <- NHT-40
PHE <- (HE*25)
SS <- PHE+(40*20)
ESCRIBA "EL SALARIO SEMANAL ES DE: ", SS
LLAMAR NUEVA_LINEA

FIN SI
FIN SI

ESCRIBA " DIGA EL NOMBRE DEL TRABAJADOR "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA NUMERO HORAS TRABAJADAS "
LEA NHT
LLAMAR NUEVA_LINEA


TSP <- TSP+SS
THEP <- THEP+PHE

FIN MIENTRAS

ESCRIBA " EL TOTAL SALRIOS PAGADOS ES DE:", TSP
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE HORAS EXTRAS PAGADAS ES DE: ", THEP
LLAMAR NUEVA_LINEA

FIN

4

Se tiene un archivo con: el nombre, la edad, sexo, estado civil de varias personas. Imprima su nombre, sólo si es un hombre casado y mayor de 30. De lo 
contrario si es mujer y soltera menor de 20 Imprima un mensaje que diga "Es Libre". Imprimir cuantas mujeres solteras hay, cuántos hombres casados que reúnan 
las condiciones, el porcentaje de divorciados, el promedio de viudos. Se leen Nombre, sexo (1 femenino, 2 masculino) edad, estado civil (soltero=s, casado=c, 
divorciado=d, viudo= v).
N <- NOMBRE
E <- EDAD
EC <- ESTODO CIVIL
X <- SEXO
TMS <- TOTAL MUJERES SOLTERAS
THCC <- TOTAL DE HOMBRES CASADOS REUNEN CONDICIONES
PD <- PORCENTAJE DIVORCIO
PV <- PROMEDIO VIUDOS
CHD <- CONTADOR HOMBRES DIVORCIADOS 
CMD <- CONATDOR MUJERES DIVIRCIADOS
CHV <- CONTADOR DE HOMBRES VIUDOS
CMV <- CONTADOR DE MUJERES VIUDOS
THM <- TOTAL DE HOMBRES MUJERES


CADENA [30] N,EC,C,S,D,V
ENTERO X,TMS,THCC,E,CHD,CMD,CHV,CMV, THM
REAL PD, PV

INICIO

TMS <- 0
THCC <- 0
CHD <- 0
CHV <- 0
CMD <- 0
CMV <- 0
THM <- 0

ESCRIBA " DIGA SU NOMBRE"
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA SU EDAD "
LEA E
LLAMAR NUEVA_LINEA

ESCRIBA "tenaga en cuneta la siguiente informacion FEMENINO=1, MASCULINO=2 "
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL SEXO "
LEA X
LLAMAR NUEVA_LINEA

ESCRIBA " tenaga en cuanta la siguiente informacion SOLTERO=S, CASADO=C, DIVORCIADO=D, VIUDO=V "
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA SU ESTADO CIVIL "
LEA EC
LLAMAR NUEVA_LINEA

MIENTRAS ( E<>00)HAGA

SI (X=1) Y (E<=20) Y (EC=S) ENTONCES 
TMS <- TMS+1
ESCRIBA " ESTA LIBRE "
LLAMAR NUEVA_LINEA
SINO

SI (X=1) Y (EC=S) ENTONCES
TMS <- TMS+1

SINO

SI ( X=2) Y (E > 30)Y (EC=C) ENTONCES
THCC <- THCC + 1
ESCRIBA " CUMPLE CON LAS CONDICIONES ES:", N
LLAMAR NUEVA_LINEA

SINO

SI(X=2)Y(EC=D)ENTONCES
CHD <- CHD + 1

SINO 
SI (X=2) Y (EC=V)ENTONCES
CHV <- CHV + 1

SINO
SI (X=1) Y (EC=D) ENTONCES
CMD <- CMD + 1

SINO 
SI (X=1) Y (EC=V) ENTONCES
CMV <- CMV + 1

FIN SI
FIN SI
FIN SI
FIN SI
FIN SI
FIN SI
FIN SI

THM <- THM + 1

ESCRIBA " DIGA SU NOMBRE"
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA SU EDAD "
LEA E
LLAMAR NUEVA_LINEA

ESCRIBA "tenaga en cuneta la siguiente informacion FEMENINO=1, MASCULINO=2 "
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL SEXO "
LEA X
LLAMAR NUEVA_LINEA

ESCRIBA " tenaga en cuanta la siguiente informacion SOLTERO=S, CASADO=C, DIVORCIADO=D, VIUDO=V "
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA SU ESTADO CIVIL "
LEA EC
LLAMAR NUEVA_LINEA

FIN MIENTRAS

PV <- (CHV+CMV)/THM
PD <- ((CHD+CHD)*100)/THM

ESCRIBA " EL TOTAL DE MUJERES SOLTERAS ES DE: ",TMS
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE HOMBRES CASADOS QUE REUNEN CON LA CONDICIONES ES DE: ",THCC
LLAMAR NUEVA_LINEA
ESCRIBA " EL PORCENTAJE DE DIVORCIOS ES DE: ", PD
LLAMAR NUEVA_LINEA
ESCRIBA " EL PROMEDIO DE VIUDOS ES DE: ", PV
FIN

CICLO MIENTRAS CON REGISTRO IDENTIFICADOR O CONTROLADO POR  UN 
CONTADOR

1

 En  las  elecciones se tienen  4  candidatos.  Una  persona puede elegir  su voto de acuerdo al número que indique al candidato
1-  Pedro,
2- Pablo,
3- Martha 
4- Juan 
5 -Blanco
Decir  cual candidato fue el ganador; el número de votos de  cada uno y además el total de personas que votaron.
CP <- CONTADOR PEDRO
CA <- CONTADOR PABLO
CM <- CONTADOR MARTHA
CJ <- CONTADOR JUAN
CB <- CONTADOR BLANCO
CTV <- CONTADOR TOTAL DE VOTOS
V <- VOTO
*/

ENTERO CP, CA, CM, CJ, CB, CTV, V, TV, gan


INICIO

CP <- 0
CA <- 0
CM <- 0
CJ <- 0
CB <- 0
CTV <- 0

ESCRIBA " Diga el total de votantes "
LEA TV
LLAMAR NUEVA_LINEA

MIENTRAS (TV<=CTV ) HAGA

ESCRIBA " tenga en cuenta la siguiente informacion PEDRO=1, PABLO=2, MARTHA=3, JUAN=4 Y VOTO EN BLANCO=5"
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA SU VOTO "
LEA V
LLAMAR NUEVA_LINEA



SI (V= 1) ENTONCES
CP <- CP +1

SINO 

SI (V=2) ENTONCES
CA <- CA+1

SINO

SI (V=3)ENTONCES
CM <- CM +1

SINO

SI (V=4) ENTONCES
CJ <- CJ +1

SINO 

SI (V=5) ENTONCES
CB <- CB + 1

FIN SI
FIN SI
FIN SI
FIN SI
FIN SI

CTV <- CTV+1

FIN MIENTRAS

SI (CP<CA)Y(CA<CM)Y (CM<CJ)ENTONCES
ESCRIBA " EL GANADOR ES JUAN "
LLAMAR NUEVA_LINEA

SINO
SI  (CP<CA)Y(CA<CJ)Y(CJ<CM)ENTONCES
ESCRIBA " EL GANADOR ES MARTHA" 
LLAMAR NUEVA_LINEA

SINO
SI (CP<CJ)Y(CJ<CM)Y(CM<CA)ENTONCES
ESCRIBA " EL GANADOR ES PABLO"
LLAMAR NUEVA_LINEA

SINO
SI (CJ<CM)Y(CM<CA)Y(CA<CP)ENTONCES
ESCRIBA " EL GANADOR ES PEDRO "
LLAMAR NUEVA_LINEA

FIN SI
FIN SI
FIN SI
FIN SI

ESCRIBA " LOS VOTOS DE PEDRO SON: ", CP
LLAMAR NUEVA_LINEA
ESCRIBA " LOS VOTOS DE PABLO SON: ", CA
LLAMAR NUEVA_LINEA
ESCRIBA " LOS VOTOS DE MARTHA SON: ", CM
LLAMAR NUEVA_LINEA
ESCRIBA " LOS VOTOS DE JUAN SON: ", CJ
LLAMAR NUEVA_LINEA
ESCRIBA " LOS VOTOS DE BLANCO SON: ", CB
LLAMAR NUEVA_LINEA
ESCRIBA " EL TOTAL DE PERSONAS QUE VOTARON ES DE: ", CTV

FIN

2

En una empresa se requiere calcular el salario semanal de cada uno de los 100 obreros que laboran en ella; por cada obrero se lee nombre, código, horas 
trabajadas.. El salario se obtiene de la siguiente  forma:   Si el obrero trabaja 40 horas o menos se le paga $ 500 por hora. Si trabaja mas de 40 horas se le 
paga $ 500 por cada una de las primeras 40 horas y $700 por cada hora extra. Cuánto paga en total de salarios, el valor promedio  de las horas extras pagadas.
N <- NOMBRE
C <- CODIGO
HT <- HORAS TRABAJADAS
S <- SALARIO
TS <- TOTAL SALRIO
PHE <- PROMDIO HORAS ESXTRAS
CT <- CONTADOR
HE <- HORAS EXTRAS
PHET <- PAGO HORA EXTRA
VHE <. VALOR HORAS EXTRA*/

CADENA [30] N
ENTERO C, HT, HE, CT
REAL S, TS, VPE, VHE, PHET, PHE

INICIO

VHE <- 0
CT<- 0

MIENTRAS (CT<=100)HAGA

ESCRIBA " DIGA EL NOMBRE DEL TRABAJADOR "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA EL CODIGO DEL TRABAJADOR "
LEA C
LLAMAR NUEVA_LINEA

ESCRIBA " DIGA HORAS TRABAJADAS "
LEA HT
LLAMAR NUEVA_LINEA

SI (HT <= 40) ENTONCES
S <- HT*500
ESCRIBA " EL SALRIO ES DE: ",S
LLAMAR NUEVA_LINEA

SINO

SI (HT>40) ENTONCES

HE <- HT-40
PHET <- HE *700
TS <- (40 * 500)+VHET
ESCRIBA "EL SALARIO TOTAL ES DE: ", TS
LLAMAR NUEVA_LINEA

FIN SI
FIN SI
CT <- CT +1
FIN MIENTRAS

VHE <- VHE+PHET
PHE <- (VHE*100)/HE


ESCRIBA " EL VALOR PROMEDIO PGADA POR HORAS EXTRAS ES DE: ",PHE
FIN

3
Hacer un diagrama de flujo o algoritmo que lea de un primer registro identificador “ El número total de experimentos” de física que entraran
seguidamente. Cada uno en un registro diferente, y con los siguientes datos. Velocidad Inicial, velocidad final y distancia recorrida por un móvil, 
y que mediante la formula :
Aceleración = (velocidad final - velocidad inicial)/ D
Calcular:

·      Números de móviles acelerados(aceleración positiva)
·      Numero de móviles desacelerados(aceleración Negativa)
·      Numero de móviles sin aceleración(aceleración cero)
·      Valor promedio de la aceleración
·      Valor promedio de la desaceleración.
VF <- VELOCIDAD FINAL
VI <- VELOCIDAD INICIAL
D <- DISTANCIA
A <- ACELERACION
    

entero nte, nma, nmda, nmsa, tma, tmda 
real vi, vf, d, pa, pda, a

inicio
escriba "velocidad inicial"
lea vi
llamar nueva_linea
escriba "velocidad final"
lea vf
llamar nueva_linea
escriba "distancia"
lea d
llamar nueva_linea

nte <- 0
nma <- 0
nmda <- 0
nmsa <- 0
tma <- 0
tmda <- 0

mientras (nte < 3) haga

a <- (vi - vf) / d

si (a > 0) entonces
nma <- nma + 1

sino

si (a < 0) entonces
nmda <- nmda + 1

sino

nmsa <- nmsa + 1

fin si
fin si

escriba "aceleracion:", a
llamar nueva_linea

tma <- tma + nma
tmda <- tmda + nmda
nte <- nte + 1

llamar nueva_linea
escriba "velocidad inicial"
lea vi

llamar nueva_linea
escriba "velocidad final"
lea vf

llamar nueva_linea
escriba "distancia"
lea d

llamar nueva_linea

fin mientras

pa <- tma / nte
pda <- tmda / nte

llamar nueva_linea
escriba "numero de autos con aceleracion:", nma
llamar nueva_linea
llamar nueva_linea
escriba "numero de autos con desaceleracion:", nmda
llamar nueva_linea
llamar nueva_linea
escriba "numero de autos sin aceleracion:", nmsa
llamar nueva_linea
llamar nueva_linea
escriba "promedio autos con aceleracion:", pa
llamar nueva_linea
llamar nueva_linea
escriba "promedio autos con desaceleracion:", pda

fin