RETO 1
/*Aplique condicionales anidados para hacer un algoritmo tal que dados 3 números a, b y c, determinar si la suma de cualquier pareja de ellos es igual al tercer número,
si se cumple esta condición imprima un mensaje que diga “iguales” y en caso contrario imprima “distintos”
D.V
A <- NUMERO
B <- NUMERO
C <- NUMERO
S <- SUMA
S2 <- SUMA
S3 <_ SUMA
T <- TERCICO*/
REAL A
REAL B
REAL C
REAL S
REAL S2
REAL S3
INICIO
ESCRIBA "INGRESE EL NUMERO A: "
LEA A
LLAMAR NUEVA_LINEA
ESCRIBA "INGRESE EL NUMERO B: "
LEA B
LLAMAR NUEVA_LINEA
ESCRIBA "INGRESE EL NUMERO C: "
LEA C
LLAMAR NUEVA_LINEA
S <- A + B
S2 <- A + C
S3 <- B + C
SI (S = C) ENTONCES
ESCRIBA "IGUALES"
LLAMAR NUEVA_LINEA
SINO
SI (S2 = B) ENTONCES
ESCRIBA "IGUALES"
LLAMAR NUEVA_LINEA
SINO
SI (S3 = A) ENTONCES
ESCRIBA "IGUALES"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "DISTINTOS"
FIN SI
FIN SI
FIN SI
FIN
RETO 2
/* definicion de variables
NR <- NUMERO R
NA <- NUMERO A
NB <- NUMERO B
NC <- NUMERO C
ND <- NUMERO D
NX <- NUMERO X
NY <- NUMERO Y
*/
REAL R,NA,NB,NC,ND,NX,NY
INICIO
ESCRIBA " DIGITE EL NUMERO A: "
LEA NA
LLAMAR NUEVA_LINEA
ESCRIBA " DIGITE EL NUMERO B: "
LEA NB
LLAMAR NUEVA_LINEA
ESCRIBA " DIGITE EL NUMERO C: "
LEA NC
LLAMAR NUEVA_LINEA
ESCRIBA " DIGITE EL NUMERO D: "
LEA ND
LLAMAR NUEVA_LINEA
ESCRIBA " DIGITE EL NUMERO X: "
LEA NX
LLAMAR NUEVA_LINEA
ESCRIBA " DIGITE EL NUMERO Y: "
LEA NY
LLAMAR NUEVA_LINEA
SI ( NX * NY > 0 ) ENTONCES
R <- ( NA * NB ) / ( NC * ND )
ESCRIBA " EL VALOR DE R ES: ",R
SINO
SI ( NX * NY = 0 ) ENTONCES
R <- ( NA + NB ) / ( NC + ND )
ESCRIBA " EL VALOR DE R ES: ",R
SINO
SI ( NX * NY < 0 ) ENTONCES
R <- ( NA + NB ) - ( NC + ND )
ESCRIBA " R ES: ",R
SINO
ESCRIBA " R NO ES POSIBLE "
FIN SI
FIN SI
FIN SI
FIN
RETO 3
/*El Banco para el Pueblo está próximo a abrir sus puertas, por esta razón necesita con suma urgencia la elaboración y mantenimiento de un programa que le permita mantener
los saldos y movimientos de las cuentas que manejará el banco.
El banco conoce para cada cuenta a aperturar, el número de cuenta, la cédula del cliente, el nombre del cliente, el tipo de cuenta
(1- Ahorro, 2- Corriente, 3 – Fal y 4 – Préstamo) y por último, el saldo en cuenta.
Se desea elaborar un algoritmo, el cual permita leer los datos del cliente, calcular el interés y mostrar la siguiente información:
Para cada cliente:
Cedula, nombre y tipo de cuenta
Monto a pagar de interés, dado por la siguiente tabla
Para cuentas tipo 1 (ahorro) el 10%
Para cuentas tipo 2 (corriente) el 8%
Para cuentas tipo 3 (fal) el 12%
Para cuentas tipo 4 (prestamos) 0%
Saldo actual
Saldo nuevo con los intereses
Para el banco:
Total monto interés pagado
NM <- NUMERO CUENTA
NC <- NUMERO CEDULA
N <- NOMBRE
TC <- TIPO DE CUENTA
SC <- SALDO CUENTA
MP# <- MONTO PAGAR
SN1# <- SALDO NUEVO CON INTERES*/
ENTERO TC, NM, NC
CADENA [30] N
REAL SC, MP, MP1, MP2, MP3, SNI, SNI2, SNI3
INICIO
ESCRIBA "Diga el numero de cuenta"
LEA NM
LLAMAR NUEVA_LINEA
ESCRIBA "Diga el numero de cedula"
LEA NC
LLAMAR NUEVA_LINEA
ESCRIBA "Diga el nombre del cliente"
LEA N
LLAMAR NUEVA_LINEA
ESCRIBA "Tenga encueta la siguiente informacion AHORRO=1;CORRIENTE=2; FAL=3; PRESTAMO=4"
LLAMAR NUEVA_LINEA
ESCRIBA " Diga el tipo de cuenta "
LEA TC
LLAMAR NUEVA_LINEA
ESCRIBA " Diga el saldo de la cuenta"
LEA SC
LLAMAR NUEVA_LINEA
SI (TC=1) ENTONCES
MP1<- NM*0.10
SNI <- MP1+SC
ESCRIBA "El monto a pagar de interes es:", MP1
LLAMAR NUEVA_LINEA
ESCRIBA "el salario nueva con intereses es:", SNI
SINO
SI (TC=2) ENTONCES
MP2 <- NM*0.08
SNI2 <- MP2+SC
ESCRIBA " El monto a pagar de interes es:",MP2
LLAMAR NUEVA_LINEA
ESCRIBA "el salario nueva con intereses es:", SNI2
LLAMAR NUEVA_LINEA
SINO
SI (TC=3) ENTONCES
MP3 <- NM*0.12
SNI3 <- MP3+SC
ESCRIBA " El monto a pagar de interes es:",MP3
LLAMAR NUEVA_LINEA
ESCRIBA "el salario nueva con intereses es:", SNI3
LLAMAR NUEVA_LINEA
SINO
SI (TC=4) ENTONCES
ESCRIBA " El monto a pagar de interes es:",MP
LLAMAR NUEVA_LINEA
ESCRIBA "el salario nueva con intereses es:", SC
LLAMAR NUEVA_LINEA
FIN SI
FIN SI
FIN SI
FIN SI
ESCRIBA " El numero de cedula es:", NC
LLAMAR NUEVA_LINEA
ESCRIBA " El nombre es:", N
LLAMAR NUEVA_LINEA
ESCRIBA " El tipo de cuenta es:", TC
LLAMAR NUEVA_LINEA
ESCRIBA "El salario actual es:", SC
LLAMAR NUEVA_LINEA
FIN
RETO 4
/*Tomando como base los resultados obtenidos en un laboratorio de análisis clínicos, un médico determina si una persona tiene anemia o no, lo cual depende de su nivel de
hemoglobina en la sangre, de su edad y de su sexo. Si el nivel de hemoglobina que tiene una persona es menor que el rango que le corresponde, se determina su resultado
como positivo y en caso contrario como negativo. La tabla en la que el medico se basa para obtener el resultado es la siguiente:
EDAD NIVEL HEMOGLOBINA
0 - 1 mes 13 - 26 g%
> 1 y < = 6 meses 10 - 18 g%
> 6 y < = 12 meses 11 - 15 g%
> 1 y < = 5 años 11.5 - 15 g%
> 5 y < = 10 años 12.6 - 15.5 g%
> 10 y < = 15 años 13 - 15.5 g%
mujeres > 15 años 12 - 16 g%
hombres > 15 años 14 - 18 g%
ED <- EDAD
HS <- HEMOGLOBINA SANGRE
G <- GENERO
*/
REAL HS
ENTERO TD, ED, G
INICIO
ESCRIBA "Tenga en cuenta la siguiente informacion MESES=1; AÑOS=2"
LLAMAR NUEVA_LINEA
ESCRIBA " Diga tipo de edad"
LEA TD
LLAMAR NUEVA_LINEA
ESCRIBA "Diga la edad"
LEA ED
LLAMAR NUEVA_LINEA
ESCRIBA "Diga hemoglobina en la sangre"
LEA HS
ESCRIBA "Tenga en cuenta la siguiente informacion MUJERES=1; HOMBRES=2"
LLAMAR NUEVA_LINEA
ESCRIBA "Diga el genero"
LEA G
SI (TD=1) ENTONCES
SI (ED = 0)Y(ED <= 1)Y (HS >= 13)Y(HS <=26) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SINO
SI (ED > 1)Y(ED <= 6)Y (HS >= 10)Y(HS <=18) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SI (ED > 6)Y(ED <= 12)Y (HS >= 11)Y(HS <=15) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SI(TD=2) ENTONCES
SI (ED > 1)Y(ED <= 5)Y (HS >= 11.5)Y(HS <=15) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SINO
SI (ED > 5)Y(ED <= 10)Y (HS >= 12.6)Y(HS <=15.5) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SI (ED > 10)Y(ED <= 15)Y (HS >= 13)Y(HS <=15.5) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SI (G=1)ENTONCES
SI (ED > 15) Y (HS >= 12)Y(HS <=16) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
SINO
SI (G=2) ENTONCES
SI (ED > 15) Y (HS >= 14)Y(HS <=18) ENTONCES
ESCRIBA "Es negativo"
LLAMAR NUEVA_LINEA
SINO
ESCRIBA "Es positivo"
LLAMAR NUEVA_LINEA
FIN SI
FIN SI
FIN SI
FIN SI
FIN SI
FIN
No hay comentarios:
Publicar un comentario