Ejercicio 1 REAL B,H,A INICIO ESCRIBA("POR FAVOR DIGITE LA BASE DEL RECTANGULO: ") LEA B ESCRIBA("PORFAVOR DIGITE LA ALTURA DEL RECTANGULO: ") LEA H A<-B*H ESCRIBA("EL AREA ES: "),A FIN Ejercicio 2 real ed1,ed2,ed3,sum,rest inicio escriba ("ingrese su edad: ") lea ed1 escriba ("ingrese su edad: ") lea ed2 escriba ("ingrese su edad: ") lea ed3 sum<-ed1+ed2+ed3 escriba ("la suma de las edades es "),sum rest<-ed1-ed2-ed3 llamar nueva_linea escriba ("la resta de las edades es "),rest fin ejercicio 3 real n1,milla
inicio escriba ("ingrese la cantidad de millas maritimas: ") lea n1 milla<-n1*1852 escriba ("la cantidad de millas en metros es: "),milla fin ejercicio 4 entero n1,n2,s,r,m,d inicio escriba ("ingrese un numero entero: ") lea n1 escriba ("ingrese un numero entero: ") lea n2 s<-n1+n2 escriba ("la suma de los enteros es: "),s r<-n1-n2 escriba ("la resta de los enteros es: "),r m<-n1*n2 escriba ("la multiplicacion de los enteros es: "),m d<-n1/n2 escriba ("la division de los enteros es: "),d fin ejercicio 5 real l1,l2,s,m inicio escriba("por favor digite el primer lado del rectangulo: ") lea l1
escriba ("por favor digite el segundo lado del rectangulo: ") lea l2 s<-l1+l2 escriba ("el perimetro del rectangulo es: "),s m<-l1*l2 escriba ("el area del rectangulo es: "),m fin ejrcicio 6 real di,pu,cm inicio escriba ("por favor ingrese su medida en cm: ") lea cm pu<-cm/2.54 escriba ("la cantidad de centimetros c entimetros en pulgadas es: "),pu fin ejercicio 7 real w,s,m,h inicio escriba("digite su tiempo ") lea w llamar nueva_linea s<-w*1 escriba("su tiempo en segundos es "),s llamar nueva_linea m<-w/60 llamar nueva_linea escriba("su tiempo en minutos es "),m
llamar nueva_linea h<-w/3600 llamar nueva_linea escriba("su tiempo en horas es "),h fin ejercicio 8 cadena[60]a real po,pd,d inicio escriba("escriba el nombre del articulo ") lea a escriba("escriba el precio original del articulo ") lea po llamar nueva_linea d<-po*0.1 pd<-po-d llamar nueva_linea escriba("el precio con descuento es "),pd fin ejercicio 9 real c1,c2,c3,tpc,tcd,d inicio escriba (" por favor digite el precio de la camisa 1: ") lea c1 escriba (" por favor digite el precio de la camisa 2: ") lea c2 escriba (" por favor digite el precio de la camisa 3: ")
lea c3 llamar nueva_linea tpc<-c1+c2+c3 escriba (" el precio de las tres camisas es: "),tpc llamar nueva_linea d<-tpc*0.2 escriba (" el descuento es: "),d llamar nueva_linea tcd<-tpc-d escriba (" el precio de las tres camisas con descunento es: "),tcd fin ejercicio 10 real mo,iva,tv,ci,cp,c inicio escriba (" ingrese monto de la venta: ") lea mo escriba (" ingrese el iva en decimales: ") lea iva llamar nueva_linea ci<-mo*iva escriba (" el iva es: "),ci llamar nueva_linea tv<-mo+ci escriba (" el total de la venta es: "),tv llamar nueva_linea escriba (" la cantidad con la que paga el cliente es: ") lea cp
llamar nueva_linea c<-cp-tv escriba (" el cambio a dar es: "),c fin
