miércoles, 14 de marzo de 2012

Practica 4

Practica 4-Problema 1
inicio
int origen;
real costo, precio,total;

print "Introduce marca de carro: "
read marca
print "precio del auto: "
read precio
print "origen del carro es"
print "1)Alemania  2)Japon  3)Italia  4)USA"
read origen
switch(origen)
{
case 1:costo=precio*.20
case 2:costo=precio*.30
case 3:costo=precio*.15
case 4:costo=precio*.08
total=costo+precio
print "EL impuesto del auto es: "<<costo<<"\nel costo del auto es: ",precio
print "EL precio total es auto es: ",total
break;
default:
print "error en el origen reinicie programa"
Final

Comentario:
Este programa es útil para determinar el precio del valor de un automóvil cuando se realiza un descuento dependiendo de la marca del origen del carro.


Practica 4-Problema 2


inicio
char nombre[99]
int carrera
real promedio

print "Nombre del aspirante a ingresar la carrera de ''Ingenieria electronica''\n";
read nombre;
print "ingrese promedio: ";
read promedio;
print "Carrera de la cual egreso: "
print "1)Tecnico en electronica\n2)tecnico de maquinas y herramientas\n3)tecnico en mecatronica\n4)tecnico en computacion\n5)tecnico en administracion\n6)otros"
read  carrera;


switch(carrera)
{
case 1:
case 2:
case 3:
case 4:print "usted cuenta con el perfil de fisico matematico"
if(promedio>=80)
print "Usted ",nombre," queda aceptado en la carrera de ''ingenieria electronica''"
else
print "Usted ",nombre," no califica para la carrera de ''ingenieria electronica''por su promedio"

break;
case 5:print "no cuenta con el perfil de fisico matematico"
print "Usted ",nombre," no califica para la carrera de ''ingenieria electronica''"
break;
case 6:print "no cuenta con el perfil de fisico matematico"
print "Usted ",nombre," no califica para la carrera de ''ingenieria electronica''"
break;
default:
print "error en seleccion reinicie programa"
break;
}
Final

Comentario:
Programa para realizar la seleccion de alumnos de nuevo ingreso ala carrera de ing. enelectronica a mi punto de vista con un criterio muy efectivo



Practica 4-Problema 3

inicio
char temp,c,f,C,F
real grados, fah, cel;

print "Ingrese temperatura que desee usted convertir"
read grados;
print grados," grados f o c?: "
read temp;

switch(temp)
 {
  case 'c':fah=(9.0/5.0)*grados+32;
  print grados," celsius equivalen a ",fah," grados fahrenheit"
  break;
  case 'C':fah=(9.0/5.0)*grados+32;
  print grados," celsius equivalen a ",fah," grados fahrenheit"
  break;
  case 'f':cel=(5.0/9.0)*grados-32;
  print grados," fahrenheit equivalen a ",cel," grados celsius"
  break;
  case 'F':cel=(5.0/9.0)*grados-32;
  print grados," fahrenheit equivalen a ",cel," grados celsius"
  break;
default:
print "error en elegir datos"
 }
Final

Comentario:
Un programa muy util para convertir cualquier valor en equivalencia de fahrenheit a celcius o de celcius a fahrenheit



Programa 4-Problema 4

inicio
int angulo
char sigue

do
{
print "inserte angulo de la linea: "<<endl;
read angulo;
switch(angulo)
{
case 0:
case 90:
case 180:
case 270:
case 360:print "linea esta en un eje"
default:
if(angulo>0 && angulo<90)
 print "linea esta en el cuadrante I"
 else
 if(angulo>90 && angulo<180)
 print "linea esta en el cuadrante II"
 else
  if(angulo>180 && angulo<270)
  print "linea esta en el cuadrante III"
   else
   if(angulo>270 && angulo<360)
   print "linea esta en el cuadrante IV"
if(angulo>361)
print "error en angulo reinicie el programa"
print "otra linea?: ";
read sigue;
}
}
while(sigue=='s');
Final

Comentario:
Este programa no es de mucha ayuda en la carrea de ing ya que nosotros manejamos los cuadrantes alrrebe s y al derecho.



Programa 4-Problema5

Inicio
anio=0  int

Print"Introducir Anio"<<endl;
read anio;
if((anio%100==0 && anio%400==0) || (anio%4==0))
{
Print"anio<<" Es bisiesto"<<endl;
}
else
{
Print"anio<<"Es no bisiesto"<<endl;
}
getch();
}
Final

Comentario:

Est eprograma es curioso pero no de mucha ayuda aun asi puede servir de algo como para mantener la informacion




No hay comentarios:

Publicar un comentario