/* 5° Se leen los catetos de un triangulo rectángulo calcular la hipotenusa con la siguiente formula:
H= (a^2 + b^2)^(1/2)
H <- Hipotenusa
a <- Cateto UNO
b <- Cateto DOS */
REAL H
REAL a
REAL b
INICIO
ESCRIBA " Escriba el Cateto UNO "
LEA a
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba Cateto DOS "
LEA b
LLAMAR NUEVA_LINEA
/* OPERACIONES */
H <- (a^2+b^2)^(1/2)
ESCRIBA " El valor de la Hipotenusa es: ", H
FIN
/* 8° El dueño de una tienda compra un articulo a un precio determinado. Obtener el precio al que se debe vender el articulo si se debe obtener una ganancia del 30%.
PD <- Precio Determinado
G <- Ganancia
PV <- Precio a Vender*/
REAL PD
REAL G
REAL PV
INICIO
ESCRIBA " El precio determinado del ariticulo es "
LEA PD
LLAMAR NUEVA_LINEA
/* PROCEDIMIENTO */
G <- PD*0.3
PV <- PD+G
ESCRIBA " El precio al que se debe vender el ariculo es:", PV
FIN
/* 13° Todos los lunes miércoles y viernes una persona corre la misma ruta y cronometra los tiempos obtenidos. determinar el tiempo promedio que la persona tarda en recorrer la ruta en una semana cualquiera
TL <- Tiempo Lunes
TM <- Tiempo Miércoles
TV <- Tiempo Viernes
PS <- Promedio Semanal*/
REAL TL
REAL TM
REAL TV
REAL PS
INICIO
ESCRIBA " El tiempo en el que se recorrió la ruta el Lunes es "
LEA TL
LLAMAR NUEVA_LINEA
ESCRIBA " El tiempo en el que se recorrio la ruta el Miercoles es "
LEA TM
LLAMAR NUEVA_LINEA
ESCRIBA " El tiempo en el que se recorrio la ruta el Viernes es "
LEA TV
LLAMAR NUEVA_LINEA
/* PROCEDIMIENTO */
PS <- (TL+TM+TV)/3
ESCRIBA " El tiempo promedio en el que se recorrio la ruta en la semana es: ", PS
FIN
/* 18° Un alumno desea saber cual es su promedio general en las tres materias mas difíciles que cursa y cual sera el promedio que obtendrá en cada una de ellas
matematicas: examen 90%, tareas3 10%
algoritmos: examen 80%, tareas2 20%
fisica: examen 85%, tareas3 15%
5
CEM <- Calificacion examen Matematicas
PTM <- Promedio Tareas Matematicas
T1M <- Tarea N° 1 Matematicas
T2M <- Tarea N° 2 Matematicas
T3M <- Tarea N° 3 Matematicas
CEA <- Calificacion examen Algoritmos
PTA <- Promedio Tareas Algoritmos
T1A <- Tarea N° 1 Algoritmos
T2A <- Tarea N° 2 Algoritmos
CEF <- Calificacion examen Fisica
PTF <- Promedio Tareas Fisica
T1F <- Tarea N° 1 Fisica
T2F <- Tarea N° 2 Fisica
T3F <- Tarea N° 3 Fisica
PM <- Promedio Matematicas
PA <- Promedio Algorimos
PF <- Promedio Fisica
PGM <- Promedio General de las 3 Materias */
REAL CEM
REAL PTM
REAL T1M
REAL T2M
REAL T3M
REAL CEA
REAL PTA
REAL T1A
REAL T2A
REAL CEF
REAL PTF
REAL T1F
REAL T2F
REAL T3F
REAL PM
REAL PA
REAL PF
REAL PGM
INICIO
ESCRIBA " Escriba la calificacion del examen de Matematicas "
LEA CEM
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 1 de Matematicas "
LEA T1M
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 2 de Matematicas "
LEA T2M
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 3 de Matematicas "
LEA T3M
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion del examen de Algoritmos "
LEA CEA
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificación de la Tarea N° 1 de Algoritmos "
LEA T1A
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 2 de Algoritmos "
LEA T2A
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion del examen de Fisica "
LEA CEF
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 1 de Fisica "
LEA T1F
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 2 de Fisica "
LEA T2F
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba la calificacion de la Tarea N° 3 de Fisica "
LEA T3F
LLAMAR NUEVA_LINEA
/* PROCEDIMIENTOS */
PTM <- (T1M+T2M+T3M)/3
PM <- (CEM*0.9)+(PTM*0.1)
PTA <- (T1A+T2A)/2
PA <- (CEA*0.8)+(PTA*0.2)
PTF <- (T1F+T2F+T3F)/3
PF <- (CEF*0.85)+(PTF*0.15)
PGM <- (PM+PA+PF)/3
ESCRIBA " El promedio de Matemáticas es:", PM
LLAMAR NUEVA_LINEA
ESCRIBA " El promedio de Algoritmos es:", PA
LLAMAR NUEVA_LINEA
ESCRIBA " El promedio de Fisica es:", PF
LLAMAR NUEVA_LINEA
ESCRIBA " El promedio general de las tres materia es:", PGM
LLAMAR NUEVA_LINEA
FIN
/* 19° Un vendedor recibe un sueldo base mas un 10% extra por comisiones de sus ventas, el vendedor desea saber cuanto dinero obtendra por concepto de
comisiones de las tres ventas realizadas en el mes y el total que recibira en el mes tomando en cuenta su sueldo base y comisiones
SB <- Sueldo Base
CC <- Concepto de Comisiones
ST <- Sueldo Total
CM <- COMISION*/
REAL SB
REAL CM
REAL CC
REAL ST
INICIO
ESCRIBA " Escriba el Salario Basico del Vendedor "
LEA SB
LLAMAR NUEVA_LINEA
/* PROCEDIMIENTOS */
CM <- SB*0.1
CC <- CM*3
ST <- SB+CC
ESCRIBA " El dinero que obtendra por Concepto de Comisiones de las tres ventas es: ", CC
LLAMAR NUEVA_LINEA
ESCRIBA " El Sueldo total del vendedor es: ", ST
LLAMAR NUEVA_LINEA
FIN
/* 21° Se lee de un registro el nombre, el Salario Basico mensual. Calcule el Salario Neto mensual y muestrelo con el nombre y el valor de las deducciones; las deducciones son: 3% para el seguro social y el 5% para impuestos
N <- Nombre
SB <- Salario Basico
SS <- Seguro Social
IM <- Impuestos
TD <- Total Deducciones
SN <- Salario Neto */
CADENA [30] N
REAL SB
REAL SS
REAL IM
REAL TD
REAL SN
INICIO
ESCRIBA " Escriba el Nombre "
LEA N
LLAMAR NUEVA_LINEA
ESCRIBA " Escriba el Salario Basico Mensual "
LEA SB
LLAMAR NUEVA_LINEA
/* PROCEDIMIENTOS */
SS <- SB*0.03
IM <- SB*0.05
TD <- SS+IM
SN <- SB-TD
ESCRIBA " El valor total de Deducciones es: ", TD
LLAMAR NUEVA_LINEA
ESCRIBA " El salario neto mensual de ", N
ESCRIBA " es: ", SN
LLAMAR NUEVA_LINEA
FIN
No hay comentarios:
Publicar un comentario