SEMANA # 31

SUICHES O INTERRUPTORES

Los suiches o interruptores son capos de memoria que puede tomar los valores falso o verdadero; si o no; 1 ó 0; a lo largo de la ejecución de un programa y permita comunicar información de una parte a otra del mismo programa
Los suiches o interruptores tienen gran aplicación en la programación y son utilizados para

1- Ejecutar alternativamente acciones dentro de un ciclo
2- Recordar en determinado punto del programa la ocurrencia o no de un suceso anterior
3- Decidir en decisiones alternativas la accion que se debe segir

EJM

ENTERO CN, CT
REAL PR, ST, I, TP, MG
CADENA [20] NM
CARACTER R, S, N

INICIO

R <- 'S'
CT <- 0
MG <- 0

MIENTRAS (R='S') HAGA

ESCRIBA "Nombre"
LEA NM
LLAMAR NUEVA_LINEA
ESCRIBA "Precio del producto"
LEA PR
LLAMAR NUEVA_LINEA
ESCRIBA "Cantidad"
LEA CN
LLAMAR NUEVA_LINEA

ST <- CN*PR 
I <- ST*0.16
TP <- ST+I

MG <- MG+ST

ESCRIBA "El subtotal es", ST
LLAMAR NUEVA_LINEA
ESCRIBA "El iva es", I
LLAMAR NUEVA_LINEA
ESCRIBA "El total a pagar es", TP
LLAMAR NUEVA_LINEA

CT <- CT+1


ESCRIBA " Desea continuar S/N  "
LEA R 
LLAMAR NUEVA_LINEA

FIN MIENTRAS

ESCRIBA "EL MONTO GLOBAL ES", MG
LLAMAR NUEVA_LINEA
FIN


TALLER CEUDO-CODIGO

1.       Leer un numero entero y determinar cuántos dígitos tiene

N <- numero (ENTERO)

Ct <- contador (ENTERO)

ENTERO CT,  N

INICIO

ESCRIBA " NUMERO"
LEA N
LLAMAR NUEVA_LINEA

MIENTRAS (N <> 0) HAGA

CT <- N/10

ESCRIBA " NUMERO"
LEA N
LLAMAR NUEVA_LINEA


 ESCRIBA "LOS DIGITOS SON: ", CT
 LLAMAR NUEVA_LINEA

FIN MIENTRAS

FIN

2.       Leer dos números enteros y mostrar todos los enteros comprendidos entre el menor y el mayor.

N1 <- NUMERO UNO (ENTERO)

N2 <- NUMERO DOS (ENTERO)

AX <- AUXILIAR (ENTERO)

ENTERO N1,N2,AX

INICIO

AX <- 0

ESCRIBA "DIGA EL PRIMER NUMERO "
LEA N1
LLAMAR NUEVA_LINEA

ESCRIBA "DIGA EL SEGUNDO NUMERO "
LEA N2
LLAMAR NUEVA_LINEA

SI (N1<N2) ENTONCES
AX <-N1

MIENTRAS ( AX <= N2) HAGA

ESCRIBA AX
AX <- AX+1
LLAMAR NUEVA_LINEA
FIN MIENTRAS

FIN SI

SI (N2<N1) ENTONCES
AX <- N2

MIENTRAS ( AX <= N2) HAGA

ESCRIBA AX
AX <- AX+1
LLAMAR NUEVA_LINEA
FIN MIENTRAS

FIN SI

SI (N1=N2) ENTONCES

ESCRIBA " SON IGUALES "

FIN SI
FIN

3.       leer dos números enteros y determinar cuál de los dos tiene mayor dígitos

N1 <- NUMERO UNO (ENTERO)

N2 <- NUMERO DOS (ENTERO)

D1 <- DIGITOS UNO (ENTERO)

D2 <- DIGITOS DOS (ENTERO)

R <- RESPUESTA (CARÁCTER)

S-N <- SI-NO (CARÁCTER)

INICIO

r <- 's'

LEA N1, N2

MIENTRAS (r= 's') HAGA

D1 <- N1/10

D2 <- N2/10

SI (D1 < D2) ENTONCES

Escriba " tiene más dígitos", N2

SINO

SI (D2 < D1) ENTONCES

Escriba  " tiene más dígitos ", N1

SINO

SI (D2=D1) ENTONCES

Escriba " son de iguales dígitos"

FIN SI

FIN SI

FIN SI

Escriba " desea continuar s/n"

LEA R

FIN

4.       Leer números enteros hasta que digiten 0 y determine a cuanto es igual el promedio de los numero leídos que hayan sido positivos

N <- NUMEROS (ENTERO)

CT <- CONTADOR (ENTERO)

AC <-ACUMULADOR (ENTERO)

PP <- PROMEDIO POSITIVOS (REAL)

INICIO

Ct <- 0

Ac <- 0

LEA n

MIENTRAS (n<>0) HAGA

SI (n>0) ENTONCES

Ac <- ac + 1

SINO

FIN SI

Ct <- ct+1

LEA n

FIN MIENTRAS

Pp <- ac/ct

ESCRIBA  "", pp

FIN

SEMANA # 30

Se hicieron planes de apoyo para los estudiantes que  perdieron la modalidad en el segundo periodo

SEMANA # 29

1 Lea 400 numeros imprima solamente los positivos debe sumar los negativos al final
N <- NUMERO 
SMN <- SUMA NUEMEROS NEGATIVOS
CT <- CONTADOR

ENTERO N, SMN, CT

INICIO

SMN <- 0
CT <- 0

MIENTRAS (CT <= 400) HAGA

ESCRIBA " NUEMRO"
LEA N
LLAMAR NUEVA_LINEA

SI (N>0) ENTONCES
ESCRIBA " El numero es ", N
LLAMAR NUEVA_LINEA

SINO

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

ESCRIBA " La suma de los negativos es: ", SMN
LLAMAR NUEVA_LINEA
FIN

2
lee la edad y el sexo de una cantidad N de personas e imprima cuantas hay mayores de 25 años y cuantos hay menores de edad cuantos hombres mujeres hay
NP <- NUMERO DE PERSONAS
ED <- EDAD 
MV <- MAYORES DE VEINTICINCO
ME <- MENORES DE EDAD
H <- HOMBRES
M <- MUJERES
CP <- CONTADOR DE PERSONAS
PR <- PERSONAS RANGO HOMBRES Y MUJERES
X <- SEXO


ENTERO NP, ED, MV, ME, H, M, CP, PR, X

INICIO

CP <- 0
MV <- 0
ME <- 0
H <- 0
M <- 0
PR <- 0

ESCRIBA " diga numero de personas "
LEA NP
LLAMAR NUEVA_LINEA

MIENTRAS (CP<=NP) HAGA

ESCRIBA " FEMENINO = 1; MASCULINO = 2 "

ESCRIBA " Diga la edad "
LEA ED
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el sexo "
LEA X
LLAMAR NUEVA_LINEA

SI (ED>=25)Y(X=2)ENTONCES
H <- H+1
MV <- MV+1

SINO

SI (ED>=25)Y(X=1)ENTONCES
M <- M+1
MV <- MV+1

SINO

SI (ED<18)Y(X=2)ENTONCES
H <- H+1
ME <- ME+1

SINO

SI (ED<18)Y(X=1)ENTONCES
M <- M+1
ME <- ME+1

SINO

SI  (ED>18)Y(ED<25)Y(X=2)ENTONCES
H <- H+1
PR <- PR+1

SINO

SI  (ED>18)Y(ED<25)Y(X=1)ENTONCES
M <- M+1
PR <- PR+1

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

CP <- CP + 1

FIN MIENTRAS

ESCRIBA " Las personas mayores de 25 son", MV
LLAMAR NUEVA_LINEA
ESCRIBA " las personas menores de edad son ", ME
LLAMAR NUEVA_LINEA
ESCRIBA " Los hombres son ", H
LLAMAR NUEVA_LINEA
ESCRIBA " Las mujeres son ", M

FIN

3

 Una compañia de aviasion vende diariamente 150 tiquetes y ofrecenlas siguientes rutas
Medellin <-> Maimi
Medellin <-> Roma
Medellin <-> Angeles
Medellin <-> Moscu
Haga un progrma que muestre cuantos tigetes fueron vendidios para cada ruta

R <- RUTA
MM <- MEDELLIN MAIMI
MR <- MEDELLIN ROMA
MA <- MEDELLIN ANGLES
MO <- MEDELLIN MOSCU 
C <- CONTADOR


ENTERO R, MM, MR, MA, MO, C

INICIO

C <- 0
R <- 0
MM <- 0
MR <- 0
MA <- 0
MO <- 0


MIENTRAS (C <= 150) HAGA

ESCRIBA " Medellin <-> Maimi= 1; Medellin <-> Roma = 2; Medellin <-> Angeles = 3; Medellin <-> Moscu = 4"
LLAMAR NUEVA_LINEA
ESCRIBA " Diga ruta "
LEA R
LLAMAR NUEVA_LINEA

SI (R=1) ENTONCES
MM <-MM+1

SINO

SI (R=2) ENTONCES
MR <- MR+1

SINO

SI (R=3)ENTONCES
MA <- MA+1

SINO

SI(R=4)ENTONCES
MO <- MO+1

FIN SI
FIN SI
FIN SI
FIN SI

C <- C+1
FIN MIENTRAS

ESCRIBA " Los tiquetes vendidios para Medellin <-> Maimi son: ", MM
LLAMAR NUEVA_LINEA 
ESCRIBA " Los tiquetes vendidios para Medellin <-> Roma son: ", MR
LLAMAR NUEVA_LINEA 
ESCRIBA " Los tiquetes vendidios para Medellin <-> Angeles", MA
LLAMAR NUEVA_LINEA 
ESCRIBA " Los tiquetes vendidios para Medellin <-> Moscu son: ", MO
LLAMAR NUEVA_LINEA 

FIN

4

Elabore un algorito que sume los primero 50 números positivos matematicamente
CT <- CONTADOR
SM <- SUMA


ENTERO CT, SM

INICIO

CT<- 0
SM <- 0

MIENTRAS (CT <= 50)HAGA

SM <- SM+CT
CT <- CT+1

FIN MIENTRAS

ESCRIBA " La suma es: ", SM

FIN

5

Un equipo requiere de mas juagadores loa cuales deben cumplir los siguientes requisitos 
Hombres edad mayor de 20, estatura mayor 1,85 cm estado civil soltero
Mujeres edad menor a 22, estatura mayor 1,70 cm
se tiene los datos de 200 personas para seleccionar los equipos si cumple las condiciones imprima acepatado, al final del archivo cuantos hombre y mujeres pueden 
ser aceptados, ademas dar un porcentaje de cuantas mujeres fueron acepatadas

ED <- EDAD
ST <- ESTATURA
EC <- ESTADO CIVIL
HA <- HOMBREA ACEPTADOS
MA <- MUJERES ACEPTADAS
PMA <- PORCENTAJE DE MUJERES ACEPTADAS
CT <- CONTADOR
X <- SEXO
*/

ENTERO H, ED, EC, M, HA, MA, CT, X
REAL ST, PMA

INICIO

CT <- 0
MA <- 0
HA <- 0

MIENTRAS (CT<=200) HAGA

ESCRIBA " MUJER = 1; HOMBRE = 2"
LLAMAR NUEVA_LINEA
ESCRIBA " Diga su sexo "
LEA X
LLAMAR NUEVA_LINEA
ESCRIBA " Diga edad "
LEA ED
LLAMAR NUEVA_LINEA
ESCRIBA " SOLTERO = 1; CASADO = 2; VIUDO = 3; DIVORCIADO = 4"
LLAMAR NUEVA_LINEA
ESCRIBA " Estado civil "
LEA EC
LLAMAR NUEVA_LINEA
ESCRIBA " Diga estatura "
LEA ST
LLAMAR NUEVA_LINEA

SI (X=1) Y (ED<22) Y (ST>1.70) ENTONCES
MA <- MA+1
ESCRIBA " ACEPTADO"
LLAMAR NUEVA_LINEA

SINO

SI (X=2) Y (ED>20) Y (ST>1.85) Y (EC=1) ENTONCES
HA <- HA+1
ESCRIBA " ACEPTADO"
LLAMAR NUEVA_LINEA
FIN SI
FIN SI

CT <- CT+1
FIN MIENTRAS

PMA <- ((MA/CT)*100)

ESCRIBA " Los hombres acpetados son: ",HA
LLAMAR NUEVA_LINEA
ESCRIBA " Los Mujeres acpetados son: ",MA
LLAMAR NUEVA_LINEA
ESCRIBA " El porcentaje de mujeres aceptadas es de :", PMA
FIN

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