SEMANA # 23

TALLER ALGORITMOS

-26/*El gobierno del estado de México desea reforestar un bosque que mide determinado numero de hectáreas  Si la superficie del terreno excede 1 millón de metros
cuadrados entonces se decidirá sembrar de la siguiente manera:
porcentaje de la superficie del bosque tipo de árbol  70% PINO, 20% OYAMEL Y 10% CEDRO
si la superficies del terreno es menor o igual a 1 millón de metros cuadrados entonces se decidira sembrar de la siguiente manera:
porcentaje de la superficie del bosque tipo de arbol: 50% PINO, 30% OYAMEL Y 20% CEDRO
El gobierno desea saber el numero de pinos, oyamel, y cedros que tendra que sembrar en el bosque si se sabe que en 10 metros cuadrados caben 8 pinos, en 15 metros
cuadrados caben 10 cedros. Tambien se sabe que una hectarea equivale 10 mil metros cuadrados
TMC <- TOTAL METROS CUADRADOS
NH <- NUMERO DE HECTAREAS
TPH <- TOTAL PINOS HECTAREA
TOH <- TOTAL OYAMEL HECTAREA
TCH <- TOTAL CEDROS HECTAREA
CP <- CANTIDAD PINOS
CO <- CANTIDAD OYAMEL
CC <- CANTIDAD CEDROS
CPP# <- CANTIDAD PINOS PORCENTAJE
COP# <- CANTIDAD OYAMEL PORCENTAJE
CCP# <- CANTIDAD CEDROS PORCENTAJE
TOC# <- TOTAL OYAMEL SEMBRADOS
TPC# <- TOTAL PINOS SEMBRADOS
TCC# <- TOTAL CEDROS SEMBRADOS
*/

ENTERO TMC, NH, TPH, TOH, TCH, CP, CO, CC
ENTERO CPP,COP, CCP, TPC, TOC, TCC
ENTERO COP2, CPP2, TPC2, TOC2, TCC2, CCP2

INICIO
 ESCRIBA " DIGA EL NUMERO DE HECTAREAS "
 LEA NH
 LLAMAR NUEVA_LINEA

 TMC <- NH*10000
 TPH <- 8*10000
 TOH <- 15*666
 TCH <- 10*555
 ESCRIBA " LAS HECTAREAS EQUIVALEN A:", TMC
  LLAMAR NUEVA_LINEA

 SI (TMC > 100000) ENTONCES
 CP <- TPH * NH
 CPP <- CP * 0.7
 TPC <- CP-CPP
 CO <- TOH * NH
 COP <- CO * 0.2
 TOC <- CO-COP
 CC <- TCH * NH
 CCP <- CO *0.1
 TCC <- CC-CCP

 ESCRIBA "LA CANTIDAD DE PIMOS A SEMBRAR ES: ", TPC
 LLAMAR NUEVA_LINEA
 ESCRIBA "LA CANTIDAD DE OYAMEL A SEMBRAR ES: ", TOC
  LLAMAR NUEVA_LINEA
 ESCRIBA "LA CANTIDAD DE CEDROS A SEMBRAR ES: ", TCC
  
 SINO

 SI (TMC <= 100000) ENTONCES
 CP <- TPH * NH
CPP2 <- CP * 0.5
 TPC2 <- CP-CPP
 CO <- TOH * NH
 COP2 <- CO * 0.3
 TOC2 <- CO-COP
 CC <- TCH * NH
 CCP2 <- CO *0.2
 TCC2 <- CC-CCP

 ESCRIBA "LA CANTIDAD DE PIMOS A SEMBRAR ES: ", TPC2
  LLAMAR NUEVA_LINEA
 ESCRIBA "LA CANTIDAD DE PIMOS A SEMBRAR ES: ", TOC2
  LLAMAR NUEVA_LINEA
 ESCRIBA "LA CANTIDAD DE PIMOS A SEMBRAR ES: ", TCC2
  
 FIN SI
 FIN SI
 FIN

6/* Un taxista trabaja en la empresa " penguiTAXI" en el cual le asigna tres rutas: Ruta A con un valor de 3000, Ruta B con un valor de 5000 y Ruta C con un valor
de 7000. ademas, debe combrar un recago de 500 si esta trabajando entre las 20:00 y las 5:00. si es festivo hay un recago de 100. cuanto debe pagar unn usuario
que tome el servicio
R <- RUTA
H <- HORA
D <- DIA
*/

ENTERO R, H, D, TS
ENTERO TS1, TS2, TS3, TS4, TS5, TS6, TS7, TS8, TS9, TS10, TS11

INICIO

ESCRIBA "Tenga en cuenta la siguiente informacion RUTA A=1, RUTA B=2, RUTA C=3"
LLAMAR NUEVA_LINEA
ESCRIBA " Diga la ruta del servicio: "
LEA R

LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

ESCRIBA "Tenga encuenta la siguiente iformacion HORA DE RECARGO(20:00 Y 5:00)=1 HORA NORMAL=2"
LLAMAR NUEVA_LINEA
ESCRIBA " La hora del servicio: "
LEA H

LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

ESCRIBA " Tenga encuenta la siguiente informacion DIA FESTIVO=1 DIA NORMAL=2"
LLAMAR NUEVA_LINEA
ESCRIBA "Diga el dia del servicio: "
LEA D

LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

SI ( R = 1 ) Y ( H = 1) Y ( D = 1) ENTONCES
TS <- 3000+500+100
ESCRIBA " El total del servicio es:", TS

SINO

SI ( R = 1 ) Y ( H = 1) Y ( D = 2) ENTONCES
TS1 <- 3000+500
ESCRIBA " El total del servicio es:", TS1

SINO

SI ( R = 1 ) Y ( H = 2) Y ( D = 1) ENTONCES
TS2 <- 3000+100
ESCRIBA " El total del servicio es:", TS2

SINO

SI ( R = 1 ) Y ( H = 2) Y ( D = 2) ENTONCES
TS3 <- 3000
ESCRIBA " El total del servicio es:", TS3

SINO

SI ( R = 2 ) Y ( H = 1) Y ( D = 1) ENTONCES
TS4 <- 5000+500+100
ESCRIBA " El total del servicio es:", TS4

SINO

SI ( R = 2 ) Y ( H = 1) Y ( D = 2) ENTONCES
TS5 <- 5000+500
ESCRIBA " El total del servicio es:", TS5

SINO

SI ( R = 2 ) Y ( H = 2) Y ( D = 1) ENTONCES
TS6 <- 5000+100
ESCRIBA " El total del servicio es:", TS6

SINO

SI ( R = 2 ) Y ( H = 2) Y ( D = 2) ENTONCES
TS7 <- 5000
ESCRIBA " El total del servicio es:", TS7

SINO

SI ( R = 3 ) Y ( H = 1) Y ( D = 1) ENTONCES
TS8 <- 7000+500+100
ESCRIBA " El total del servicio es:", TS8

SINO

SI ( R = 3 ) Y ( H = 1) Y ( D = 2) ENTONCES
TS9 <- 7000+500
ESCRIBA " El total del servicio es:", TS9

SINO

SI ( R = 3 ) Y ( H = 2) Y ( D = 1) ENTONCES
TS10 <- 7000+100
ESCRIBA " El total del servicio es:", TS10

SINO

SI ( R = 3 ) Y ( H = 2) Y ( D = 2) ENTONCES
TS11 <- 7000
ESCRIBA " El total del servicio es:", TS11


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

4/* en una universidad de ibague, los estudiantes de programcion tiene que presentar 6 pruebas de conocimiento para evaluar la asignatura: una pruba se gana
con una nota minima de 3.0. Dterminar si el estudiante aprobo o no la signatura. El alimno aprueva la asiganatura si cumple con caualquiera de las siguientes 
condiciones: a)si tiene minimo 3 pruvas con nota superiores a 3.5 b)si el promedio de las seis notas es minimo de 3.0 c) si el promedio de las notas 
de las pruebas es superior a 2.5
DAN <- NP1, NP2, NP3, NP4, NP5, NP6
PIDEN <- DETERMINAR SI EL ESTUDIANTE APRUEBA LA ASIGNATURA

NP1 <- NOTA PRUEVA UNO
NP2 <- NOTA PRUEVA DOS
NP3 <- NOTA PRUEVA TRES
NP4 <- NOTA PRUEVA CUATRO
NP5 <- NOTA PRUEVA CINCO
NP6 <- NOTA PRUEVA SEIS
PM <- PROMEDIO
*/

REAL NP1, NP2, NP3, NP4, NP5, NP6, PM

INICIO 

ESCRIBA "diaga la nota de la prueba uno "
LEA NP1
LLAMAR NUEVA_LINEA

ESCRIBA "diaga la nota de la prueba dos "
LEA NP2
LLAMAR NUEVA_LINEA

ESCRIBA "diaga la nota de la prueba tres "
LEA NP3
LLAMAR NUEVA_LINEA

ESCRIBA "diaga la nota de la prueba cuatro "
LEA NP4
LLAMAR NUEVA_LINEA

ESCRIBA "diaga la nota de la prueba cinco "
LEA NP5
LLAMAR NUEVA_LINEA

ESCRIBA "diaga la nota de la prueba seis "
LEA NP6
LLAMAR NUEVA_LINEA

SI (NP1>=3.5) Y (NP2 >=3.5)Y (NP3>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1=3.5) Y (NP5 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP3 >=3.5)Y (NP5>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=3.5) Y (NP4 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP2 >=3.5)Y (NP4>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP2 >=3.5)Y (NP5>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP2 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP3 >=3.5)Y (NP4>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO
SI (NP1>=3.5) Y (NP3 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP4 >=3.5)Y (NP5>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP4 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=3.5) Y (NP3 >=3.5)Y (NP4>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=3.5) Y (NP3 >=3.5)Y (NP5>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=3.5) Y (NP3 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=3.5) Y (NP4 >=3.5)Y (NP5>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=3.5) Y (NP5 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP3>=3.5) Y (NP4 >=3.5)Y (NP5>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.5) Y (NP2 >=3.5)Y (NP3>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP3>=3.5) Y (NP4 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP3>=3.5) Y (NP5 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP4>=3.5) Y (NP5 >=3.5)Y (NP6>=3.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=3.0) Y (NP2 >=3.0)Y (NP3>=3.0) Y(NP4>=3.0) Y (NP5>=3.0) Y(NP6>=3.0) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP4>=2.5) Y (NP5 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP3>=2.5) Y (NP5 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP3>=2.5) Y (NP4 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP3>=2.5) Y (NP4 >=2.5)Y (NP5>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=2.5) Y (NP5 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=2.5) Y (NP4 >=2.5)Y (NP5>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=2.5) Y (NP3 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=2.5) Y (NP3 >=2.5)Y (NP5>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP2>=2.5) Y (NP3 >=2.5)Y (NP4>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP4>=2.5) Y (NP2 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP5 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP4 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP4 >=2.5)Y (NP5>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP4>=2.5) Y (NP5 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP3 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP3 >=2.5)Y (NP5>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP4>=2.5) Y (NP5 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP3 >=2.5)Y (NP4>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP2 >=2.5)Y (NP6>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP2 >=2.5)Y (NP5>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP2 >=2.5)Y (NP4>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"

SINO

SI (NP1>=2.5) Y (NP2 >=2.5)Y (NP3>=2.5) ENTONCES
ESCRIBA " el estudiante aprobo la asignatura"



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

LLAMAR NUEVA_LINEA
PM <- (NP1+NP2+NP3+NP4+NP5+NP6)/6
SI (PM<3.0)ENTONCES
ESCRIBA " El estudiante reprobo la asignatura"
LLAMAR NUEVA_LINEA
ESCRIBA "EL PROMEDIO ES:", PM
FIN SI


FIN 

SEMANA # 22

AUTO ESTUDIO

1/*labore un algoritmo que lea un número entero y que produzca el mensaje acerca de si el entero leído es par o impar.
DAN= NUMERO ENTERO
PIDEN = SI EL NUMERO ES PAR O IMPAR
COMO = COMPARANDO 
NRO<- NUMERO
*/

ENTERO NRO

INICIO

ESCRIBA " Diga un numero entero "
LEA NRO
LLAMAR NUEVA_LINEA

SI (NRO MOD 2=0) ENTONCES 
ESCRIBA " El numero es par:", NRO

SINO 

SI (NRO MOD 2<> 0) ENTONCES 
ESCRIBA " El numero es impar:", NRO

FIN SI
FIN SI

FIN

2/*Elabore un algoritmo que lea tres datos numéricos enteros y que determine si con esos tres datos se puede construir un triángulo equilátero.
 Su algoritmo debe imprimir:'sí se puede' o 'no se puede
 DAN= N1, N2, N3
 PIDEN= SI PUEDEN O NO CONSTRUIR UN TRIANGULO EQUILATERO

 N1 <- NUMERO UNO
 N2 <- NUMERO DOS
 N3 <- NUMERO TRES
 */

 ENTERO N1, N2, N3

 INICIO

 ESCRIBA " Diga el valor del primer numero entero: "
 LEA N1
 LLAMAR NUEVA_LINEA

 ESCRIBA " Diga el valor del segundo numero entero: "
 LEA N2
 LLAMAR NUEVA_LINEA

 ESCRIBA " Diga el valor del tercer numero entero: "
 LEA N3
 LLAMAR NUEVA_LINEA

 SI ( N1 = N2) Y (N2=N3) ENTONCES
 ESCRIBA " Si se puede construir un triangulo equilatero"

 SINO

 ESCRIBA "No se puede construir un tiangulo equilatero"
 FIN SI
 FIN

3/*Elabore un algoritmo que lea año, mes y día de nacimiento de una persona, y año, mes y día actual. El algoritmo debe determinar e imprimir
 el mensaje apropiado si la edad de la persona está entre 18 y 25 años
  DAN = AN, MN, DN; AA, MA, DA,ED 
  PIDEN=  si la edad de la persona está entre 18 y 25
   
 ED <- EDAD 
 AN <- AÑO NACIMIENTO
 MN <- MES DE NACIMIENTO
 DN <- DIA DE NACIMIENTO
 AA <- AÑO ACTUAL
 MA <- MES ACTUAL
 DA <- DIA ACTUAL
 DTN <- DIAS TOTAL NACIMIENTO
 DTA <- DIAS TOTAL ACTUAL
 */

 ENTERO AN, MN, DN, AA, MA, DA, ED, DTA, DTN

INICIO

ESCRIBA " Diga el año de nacimiento: "
LEA AN
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el mes de nacimiento: "
LEA MN
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el dia de nacimiento: "
LEA DN
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el año actual: "
LEA AA
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el mes de actual: "
LEA MA
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el dia de actual: "
LEA DA
LLAMAR NUEVA_LINEA

/*PROCEDIMIENTO*/

DTA <- ((AA*365)/1)+((MA*30)/1)+DA
DTN <- ((AN*365)/1)+((MN*30)/1)+DN
ED <- (DTA-DTN)/365

SI (ED>=18)Y(ED<=25)ENTONCES
ESCRIBA " la edad de la persona esta en el rango:",ED

SINO
ESCRIBA "La edad de la persona no esta en el rango:",ED

FIN SI
FIN

4/*Elabore un algoritmo que lea dos números enteros, efectúe el producto y la suma de ellos, y luego imprima el resultado mayor, es decir, que 
entre la suma y el producto, con un mensaje apropiado, diga, cuál de los dos fue el mayor mostrando dicho mensaje y el valor
 DAN = N1, N2
 PIDEN =MAYOR ENTRE ELLOS
 N1<- NUMERO UNO
 N2 <- NUMERO DOS
 PR <- PRODUCTO
 SM <- SUMA
 */

 ENTERO N1 
 ENTERO N2
 ENTERO PR
 ENTERO SM

 INICIO

 ESCRIBA " Diga el primer numero entero "
 LEA N1
 LLAMAR NUEVA_LINEA

 ESCRIBA " Diga el segundo numero entero "
 LEA N2
 LLAMAR NUEVA_LINEA

 PR <- N1*N2
 SM <- N1+N2


 SI (PR>SM) ENTONCES
 ESCRIBA " el producto es mayor que la suma:", PR

 SINO 

 SI (PR<SM)ENTONCES
 ESCRIBA " La suma es mayor que el producto:", SM

 FIN SI
 FIN SI

 FIN

5 * Elabore un algoritmo que lea tres enteros positivos y que determine si pueden formar triángulo o no. Si pueden formar triángulo debe imprimir
 qué clase de triángulo es: equilátero, isósceles o escaleno
 DAN= N1, N2, N3
 PIDEN=si pueden formar triángulo o no. qué clase de triángulo es: equilátero, isósceles o escaleno
 N1 <- NUMERO UNO
 N2 <- NUMERO DOS
 N3 <- NUMERO TRES
 */

 ENTERO N1, N2, N3

 INICIO

 ESCRIBA " Diga el valor del primer numero entero: "
 LEA N1
 LLAMAR NUEVA_LINEA

 ESCRIBA " Diga el valor del segundo numero entero: "
 LEA N2
 LLAMAR NUEVA_LINEA

 ESCRIBA " Diga el valor del tercer numero entero: "
 LEA N3
 LLAMAR NUEVA_LINEA

 SI N1<0 ENTONCES
 N1<- N1*(-1)

  SINO
  
 SI N2<0 ENTONCES
 N2<- N2*(-1)

  SINO
  
  SI N3<0 ENTONCES
 N3<- N3*(-1)

  FIN SI 
  FIN SI
  FIN SI
  
 SI ( N1 = N2) Y (N2=N3) ENTONCES
 ESCRIBA "Es un triangulo equilatero" 

 SINO

 SI ( N1 = N2) Y (N2 <>N3) ENTONCES
 ESCRIBA " Es triangulo Isosceles"

 SINO

 SI ( N1 <> N2) Y (N2<>N3) ENTONCES
 ESCRIBA " Es un triangulo escaleneo"

FIN SI
FIN SI
FIN SI
FIN

6/* En una tienda se ofrece un descuento del 15% sobre el total de la compra si  la compra es mayor o igual a 50 mil pesos, sino, el descuento
 es del 5%.Un cliente desea saber cuánto deberá pagar finalmente   por su compra, mostrar el total a pagar y la cantidad que le dan de descuento.
 D <- DESCUENTO DEL 15%
TC <- TOTAL DE LA COMPRA 
PT <- PAGO TOTAL
D2 <- DESCUENTO DEL 5%
PT2 <- PAGO CON DESCUENTO 5%
*/

REAL D
REAL TC 
REAL PT
REAL D2
REAL PT2

INICIO

ESCRIBA " El total de la compra"
LEA TC
LLAMAR NUEVA_LINEA

/*OPERACION*/
D <- 0.15*TC
D2 <- 0.05*TC
PT <- TC-D
PT2 <- TC-D2

SI (TC>=50000) ENTONCES
ESCRIBA "su descuento es:", D
LLAMAR NUEVA_LINEA
ESCRIBA "El total a pagar es:", PT
SINO 

SI(TC<50000) ENTONCES
ESCRIBA "Su descuento es:",D2
LLAMAR NUEVA_LINEA
ESCRIBA "El total a pagar es:", PT2

FIN SI
FIN SI
FIN

7/*Imprimir la edad promedio de 4 estudiantes, y determinar si el promedio obtenido corresponde a adultos o a jóvenes.
EE1 <-EDAD ESTUDIANTE UNO
EE2 <-EDAD ESTUDIANTE DOS
EE3 <-EDAD ESTUDIANTE TRES
EE4 <-EDAD ESTUDIANTE CUATRO 
EDP <-EDAD PROMEDIO
*/

ENTERO EE1
ENTERO EE2
ENTERO EE3
ENTERO EE4
ENTERO EDP

INICIO 

ESCRIBA "diga la edad del estudiante uno "
LEA EE1
LLAMAR NUEVA_LINEA

ESCRIBA "diga la edad del estudiante dos "
LEA EE2
LLAMAR NUEVA_LINEA

ESCRIBA "diga la edad del estudiante tres "
LEA EE3
LLAMAR NUEVA_LINEA

ESCRIBA "diga la edad del estudiante cuatro "
LEA EE4
LLAMAR NUEVA_LINEA

EDP <- (EE1+EE2+EE3+EE4)/4

SI (EDP<18) ENTONCES
ESCRIBA " la edad promedio de los estudiantes corresponde a jovenes: ", EDP

SINO

SI (EDP>=18)ENTONCES
ESCRIBA " la edad promedio de los estudiantes corresponde ha adultos: ", EDP

FIN SI
FIN SI
FIN

8 /*Un maestro desea saber cuál es el porcentaje de hombres y el porcentaje de mujeres hay en un grupo de estudiantes, leer la cantidad de hombres y 
de mujeres
CM <- CANTIDAD MUJERES
CH <- CANTIDAD HOMBRE
PM <- PORCENTAJE MUJERES
PH <- PORCENTAJE HOMBRES
CT <- CANTIDAD TOTAL
*/

ENTERO CM
ENTERO CH
ENTERO CT
REAL   PM
REAL   PH

INICIO

ESCRIBA " diga la cantidad de mujeres "
LEA CM
LLAMAR NUEVA_LINEA

ESCRIBA " Diga la cantidad de hombres "
LEA CH
LLAMAR NUEVA_LINEA

PM <- (CM*100)/CT
PH <- (CH*100)/CT

ESCRIBA "el promedio de mujeres es:", PM
ESCRIBA "el promedio de hombres es:", PH

FIN