Problema 2 (Estrada Perez Manuel Alejandro)
Haga un programa que muestre los siguientes mensajes:
-Si es m, convertir de metros a pulgadas.
-Si es p, convertir de pulgadas a metros.
(1 metro = 39.3701 pulgadas)
Problema 3
Haga un programa que solicite la edad de una persona e imprimir si la persona es niño, adolescente, adulto o anciano.
-0 a 12 es niño.
-13 a 17 es adolescente.
-18 a 80 es adulto.
-Mayor de 80 es anciano.
4- Según los tres lados de un triangulo imprimir que tipo de triangulo es y su perímetro y área.
Inicio
real l1,l2,l3,P1,P2,P3,A1,A2,A3,a1,a2,a3;
write " Introduce los tres lados del triangulo en cm : "
write " L1= "
read l1
write " L2= "
read l2
write " L3= "
read l3
if (l1==l2 & l2==l3)
write "El triangulo es equilatero"
P1=(l1+l2+l3)
A1=(P1/2)
a1=(sqrt((A1)*(A1-l1)*(A1-l2)*(A1-l3)))
write "Su perimetro es de ",P1," Cm"
write "Su area es de",a1," Cm^2"
if (l1!=l2 & l1!=l3 & l3!=l2)
write "El triangulo es escaleno"
P2=(l1+l2+l3)
A2=(P2/2)
a2=(sqrt((A2)*(A2-l1)*(A2-l2)*(A2-l3)))
write "Su perimetro es de ",P2," Cm"
write "Su area es de ",a2," Cm^2"
if (l2==l3 & l2!=l3)
write "El triangulo es isoseles"
P3=(l1+l2+l3);
A3=(P3/2);
a3=(sqrt((A3)*(A3-l1)*(A3-l2)*(A3-l3)))
write "Su perimetro es de ",P3," Cm"
write "Su area es de ",a3," Cm^2"
if (l3==l1 & l2!=l3)
write "El triangulo es isoseles"
P3=(l1+l2+l3);
A3=(P3/2);
a3=(sqrt((A3)*(A3-l1)*(A3-l2)*(A3-l3)))
write "Su perimetro es de ",P3," Cm"
write "Su area es de ",a3," Cm^2"
if (l1==l2 & l1!=l3)
write "El triangulo es isoseles"
P3=(l1+l2+l3);
A3=(P3/2);
a3=(sqrt((A3)*(A3-l1)*(A3-l2)*(A3-l3)))
write "Su perimetro es de ",P3," Cm"
write "Su area es de ",a3," Cm^2"
Fin
5- Haga un programa para calcular el pago de un trabajador.
Inicio
real H,T,P1,P2,Te,Te1,P3,Pa,Pb,Pc,P11,P22,P33;
write "Intridusca el tipo de trabajador 1, 2, o 3 :"
read T
write "Introdusca sus horas trabajadas :"
read H
if (T==1 & H<=40 & H>=30)
P1=(H*6);
write "su paga es de : ", P1 , " Dlls"
if (T==1 & H<30)
P1=(H*6)
Pa=((P1*5)/(100))
P11=(P1-Pa)
write "Su descuento de sueldo fue del 5% : ",Pa," Dlls"
write "Su paga es de :",P11," Dlls"
if (T==1 & H>40)
Te=(H-40)
Te1=(Te*6)
Pa=((Te1*20)/(100))
P1=((H*6)-(Te*6))
P11=(P1+Pa+Te1)
write "20% de ",Te," Horas extras: ",Pa," Dllad"
write "Su paga es de : ",P11," Dlls"
/* Empiesa trabajo 2*/
if (T==2 & H<=40 & H>=30)
P2=(H*8)
write "su paga es de : ",P2," Dlls"
if (T==2 & H<30)
P2=(H*8)
Pb=((P2*5)/(100))
P22=(P2-Pb)
write "Su descuento de sueldo fue del 5% : ",Pb," Dlls"
write "Su paga es de :",P22," Dlls"
if (T==2 & H>40)
Te=(H-40)
Te1=(Te*8)
Pb=((Te1*20)/(100))
P2=((H*8)-(Te*8))
P22=(P2+Pb+Te1)
write "20% de ",Te," Horas extras: ",Pb," Dllad"
write "Su paga es de : ",P22," Dlls"
/*Empiesa trabajo 3*/
if (T==3 & H<=40 & H>=30)
P3=(H*12)
write "su paga es de : ",P3," Dlls"
if (T==3 & H<30)
P3=(H*12)
Pc=((P3*5)/(100))
P33=(P3-Pc)
write "Su descuento de sueldo fue del 5% : ",Pc," Dlls"
write "Su paga es de :",P33," Dlls"
if (T==3 & H>40)
Te=(H-40)
Te1=(Te*12)
Pc=((Te1*20)/(100))
P3=((H*12)-(Te*12))
P33=(P3+Pc+Te1)
write "20% de ",Te," Horas extras: ",Pc," Dllad"
write "Su paga es de : ",P33," Dlls"
Fin
Problema 6
Problema 7
real: n
write: el problema calculara el monto a pagar si el alumno es o no es universitario.
write: el alumno es universitario?
write: escribir (1) si lo es y (2) si no lo es:
read: n
case 1:
write: el valor de la inscripcion sera 150.
write: el valor de la mensualidad sera 300
case 2:
write: el valor de la inscripcion sera 250.
write: el valor de la mensualidad sera 600
fin.
Problema 8
real: x,y
write: el problema calculara Y en base al valor de X
write: el valor de X es:
read: x
if: x<0
read: y=((8*(x*x))-(2*x)+5)
write: el valor de Y es:, y
if: x>0
read: y=((4*(x*x))+(7*x)-5)
write: el valor de Y es:, y
fin.
