martes, 16 de julio de 2013

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

* 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

/*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

No hay comentarios:

Publicar un comentario