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