Practica 4 Unidad 2

Problema 1.

Programa para calcular e imprimir el costo real de un coche.

Inicio
char marca [15]
origen Int
costo= 0.0,impuesto= 0.0,costototal= 0.0
Print "Introduce datos de automovil"
Print "marca = "
Read marca
Print "Origen 1) Alemania 2) Japon 3) Italia 4) USA\n
Print "Seleccione origen= "
Read origen
Print "Costo auto= "
Read costo
switch ( origen )
{
   Case 1: impuesto= 0.20
    break
    Case 2: impuesto= 0.30
    break
    Case 3: impuesto= 0.15
    break
    Case 4: impuesto= 0.08
     break
     default: costo= 0.0
     impuesto= 0.0
     Print "Error en origen \n "
}
costototal= costo + costo * impuesto
if ( costototal > 0 )
{
     Print  "Costo automovil :",costo
     Print "impuesto : ", (costo*impuesto)
     Print "Costo total : ", costototal
}
Fin

Problema 2.

Programa para aspirantes a Ing. Electronica en Tec.

Inicio
char nombre [15]
promedio Real
tipobachillerato Int
Print "Datos de aspirantes de Ing. Electronica"
Print " Nombre"
Read nombre
Print "Promedio en bachillerato2
Read promedio
Print "Tipo de bachillerato"
Print " 1)Tec. electronico 2)Tec. maquinas 3)Tec.mecatronica 4)Tec.computacion 5)Tec administracion 6)otros
Print "Seleccione tipo"
Read tipobachillerato
switch ( tipobachillerato )
{   case 1:
     case 2:
     case 3:
     case 4: if (( promedio>90 and promedio<=100) or ( promedio>=80 and promedio<=90))
     Print nombre,"Aceptado"
    else
    Print nombre, "Rechazado por no alcanzar promedio"
    break
    case 5:
    case 6: Print " Rechazado por no tener tipo de bachillerato fisico matematico"
    break
    default: Print "Error tipo de bachillerato"
}
Fin

Problema 3. 

Programa para calcular la conversion de grados celsius a fahrenheit y viceversa.

Inicio
c , f , n Real
t  char
Print "Introduce valores"
Read n
Read t
Switch (t)
{  case 'f'':Print "El calculo en celsius es"
    c= (5.0/9.0)*(f-32.0)
    Print "El valor es de :", c, "grados celsius"
    break
    case 'c': Print 2El calculo en fahrenheit es"
    f= (9.0/5.0)*(c+32.0)
    Print "El valor es de :", f , "grados fahrenheit"
    break
    default: Print "Error al arrojar datos"
}
Fin

Problema 4. 

Programa para verificar el cuadrante en el que se ubica una linea. 

Inicio
ang Int
Print "Introducir angulo deseado para conocer el cuadrante"
Read ang
if ( ang>0 and ang<90 )
{  Print "El eje se encuentra en el cuadrante 1"
}  else
{  (ang==0 or ang==90 or ang==180 or ang==270)
    Print "La linea se encuentra sobre el eje del cuadrante"
}
    if (ang>90 and ang<180)
{  print "El eje se encuentra en el cuadrante 2"
}
    if ( ang>180 and ang<270 )
{  Print "El eje se encuentra en el cuadrante 3"
}
    if ( ang>270 and ang<360 )
{  Print "El eje se encuentra en el cuadrante 4"
}
Fin

Problema 5.

Programa para ver si un ano es bisiesto.

Inicio 

anio Int 

Print "Introduce anio= "

Read anio

if (( anio%100 == 0 and anio%400 == 0 ) or ( anio%4 == 0 ))

{   Print anio, "es bisiesto"

}   else

{   Print anio, "no es bisiesto

}

Fin