Ejercicios de Introduccion a la Ingenieria en Sistemas II Parcial

1- Hacer un programa donde se ingrese el largo y ancho en metros de un terreno rectangular, se calcula el area y el valor del terreno sabiendo que cada metro cuadrado vale Lps. 560.00.

R/= real L, AN, Area, T
inicio
Escriba "Bienvenido"
llamar nueva_linea
escriba "Largo del terreno:"   
    lea L
escriba  "Ancho del terreno:"   
    lea AN
    Area <- L * AN
    llamar nueva_linea
escriba "el area del terreno es:" , Area
    T <- Area * 560
    llamar nueva_linea
escriba " el valor del terreno es:" , T
llamar nueva_linea
escriba " Gracias y Adios"
fin

2- Dado un costo de un articulo vendido y la cantidad de dinero entregada por el cliente, calcule e imprima el cambio que debe entregarsele a el mismo.

R/=   
real a, b, c
inicio
escriba "Bienvenido"
llamar nueva_linea
escriba "Costo de articulo vendido:"
lea a
llamar nueva_linea
escriba "Cantidad de dinero entregada por el cliente:"
lea b

si b < a
    entonces escriba "No tiene dinero suficiente."

sino
        c <- b - a
        escriba "cambio: ", c
        llamar nueva_linea
        escriba "Gracias y Adios"
       
    fin si

fin

3- Leer un peso de un hombre (en libras) e imprimirlo en Kilogramos y en Gramos.

        Nota: 1 lb = 0.454 Kg. , 1 lb = 454 gr.

R=/ 

real PH, PHK, PHG
inicio
escriba "Bienvenido"
llamar nueva_linea
escriba "peso de hombre es: "
lea PH
PHK <- PH * 0.454
escriba "peso de hombre en kilogramos es: " , PHK
llamar nueva_linea
PHG <- PH * 454
escriba "peso de hombre en gramos es: " , PHG
llamar nueva_linea
escriba "Gracias y Adios"    

fin

4- La oficina de admisiones de un instituto tecnologico  , desea calcular cuanto tiene que pagar un estudiante si el precio de la matricula es de L. 400.00, el precio por cada asignatura es de L. 150.00, el costo por el uso de laboratorio es de un 15% del total de costo por asignaturas. El costo mensual por uso de materiales (10 meses) esta dado como un 40% del triple de la edad del estudiante.

 R/=

real  m, a, as, Lab, all, e, cm

inicio
escriba "Bienvenido"
llamar nueva_linea

escriba "Precio de matricula: "
m <- 400
escriba m
llamar nueva_linea
escriba "precio por cada asignatura es:"
a <- 150
escriba a
llamar nueva_linea
escriba "numero de asignaturas llevadas: "
lea as
all <- 150 * as
escriba "precio por asignaturas llevadas:" , all
llamar nueva_linea
Lab <- a * 0.15
escriba "precio por laboratorios es:" , Lab
llamar nueva_linea
escriba "edad del estudiante:"
lea e
cm <- (e*3) * 0.40
escriba "costo por uso de materiales:" ,  cm
llamar nueva_linea
escriba "Gracias y Adios"

fin

5- Se dan como datos 5 calificaciones de un alumno, debe imprimirse el promedio y la palabra  "APROBADO" si el alumno tiene promedio mayor o igual de 60 y la expresion " NO APROBADO" en caso contrario.

R/=
real m, e, c, r, i, t

inicio
llamar nueva_linea
escriba "Tus calificaciones Tito "
llamar nueva_linea

escriba "primera calificacion: "
lea m
escriba "segunda calificacion: "
lea e
escriba "tercera calificacion: "
lea c
escriba "cuarta calificacion: "
lea r
escriba "quinta calificacion: "
lea i
t <- (m+e+c+r+i) / 5
si t < 60
entonces
escriba "NO APROBADO,.... Idiota! "
llamar nueva_linea
escriba "Su promedio: " , t
sino
escriba "Aprobado,..... Guasero! "
llamar nueva_linea
escriba "Su promedio: " , t
fin si
fin

6- Un grupo de personas dedicadas al negocio de lavado de automoviles, necesita un programa para que determine cuanto tiene que pagar cada cliente de acuerdo a la siguiente tabla de servicios:

        TIPO DE SERVICIO       PRECIO

      1.- LAVADO EXTERIOR Lps 25.00

      2.- LAVADO DE INTERIOR Lps 30.00

      3.- LAVADO EXTERIOR E INTERIOR Lps 35.00

      4.- LAVADO DE MOTOR Lps 40.00

Ademas de los servicios,  se ofrece un 7% si se llevan dos o mas automoviles. Se proporcionara al computador , el tipo de servicio y No. de automoviles, calcular el total a pagar por el cliente.