jueves, 17 de febrero de 2011

Practica # 4

Problema 1

1.- Inicio
v1,v1    Real
Print " Valor de v1 "
Read  v1;
Print " Valor de v2 "
Read v2
if (v1>v2)
{
Print " Es mayor "
}
else
{
if (v1==v2)
{
Print " Los numeros son iguales "
}
else
{
Print  v1 , " Es mayor ";
}
}
Fin.




Problema 2


Escriba un programa para calcular el valor de la presión, en libras x pulg cuadradas (psi), de una forma ondulada descrita como sigue :
para un tiempo < 35 la presión es :  presión = 0.46 * Tpi y para un tiempo >= 35 la presión es :
presión = 0.19 * t + 9.45 psi. El programa debe solicitar que se introduzcan los datos de tiempo y debe desplegar como resultado la presión.


1.- Inicio
tiempo, presion      Real
Print " Tiempo "
Read tiempo;
if (tiempo<35)
{
presion = (0.46*tiempo);
Print " La presion es : ",presion;
}
else
{
if (tiempo>=35)
{
presion = (0.19*tiempo+9.45);
Print " La presion es : ",presion;
}
}
Fin.



Problema 3


Un angulo se considera agudo si es menor que 90 grados, obtuso si es mayor de 90 grados y recto si es igual a 90 grados. Utilizando esta información escriba un programa que acepte un angulo, en grados y muestre el tipo de angulo que corresponde al valor introducido en grados.


1.- Inicio
angulo     Real
Print " Angulo = "
Read angulo
if (angulo<90)
{
Print angulo, " Es un angulo agudo "
}
else
{
if (angulo==90)
{
Print   angulo, " Es un angulo recto "
}
else
{
Print angulo, " Es un angulo obtuso "
}
}
Fin.



Problema 4 


Escriba un programa que acepte 2 números reales de usuario y un código de selección. Si el código introducido es 1, haga que el programa sume los 2 números introducidos anteriormente y despliegue el resultado; Si el código de selección es 2, los números deberán ser multiplicados y si el código de selección es 3, el primer numero deberá dividirse entre el segundo. No permite la división entre cero y escriba un mensaje apropiado cuando se intente esta división.


1.- Inicio
num1,num2,resultado    Real
Opcion                       entero
Print " numero 1 : "
Read num1
Print " numero 2 : "
Read num2
Print " Operaciones Aritmeticas "
Print " 1) suma 2) multiplicacion 3) division
Print " Seleccionar opcion "
Read opcion
if ( opcion=2)
{
resultado = num1+num2
Print  num1, " + ", num2, " = ", resultado
}
else
{
if ( opcion=2)
{
resultado = num1*num2
Print  num1, " * ", num2, " = ", resultado
}
else
{
if ( opcion==3)
{
if (num2!=0)
{
resultado = num1/num2
Print num1," / ",num2, " = ", resultado
}
else
{
Print " No se permite la division entre cero "
}
}
else
{
Print " Error en opcion "
}
}
}
Fin.




Problema 5


El nivel de grado de los estudiantes que no han terminado la universidad normalmente se determina en base a la siguiente tabla.
Numero de créditos Obtenidos             grado
             mayor que 32                     primer grado
                 32 a 63                           segundo grado
                 64 a 95                           tercer grado
                 96 o mas                         ultimo grado
utilizando esta información escriba un programa que acepte el numero de créditos.


1.- Inicio
creditos         entero
Print " No de creditos  alumno "
Read creditos
if ( creditos>0&&creditos<32)
{
Print " Primer grado "
}
else
{
if ( creditos>=32&&creditos<=63)
{
Print " Segundo grado "
}
else
{
if ( creditos>=64&&creditos<=95)
{
Print " Tercer grado "
}
else
{
Print " Ultimo grado "
}
}
}
Fin.




Problema 6


Basándose en el año de fabricación y en el peso de un automóvil el estado de nueva jersey clasifica el peso del vehículo y determina la tarifa de registro, de acuerdo con la siguiente tabla.


Año                                       Peso                                         Categoría                            Tarifa
1970 o anterior                      2700 lb                                            1                                   $16.50
                                               2700 a 3800                                    2                                   $25.50
                                               3800 o mas                                     3                                   $46.50
1970 a 1979                       - 2700  de 2700 lb                               4                                   $27.00
                                               2700 a 3800 lb                                 5                                  $30.50
                                               mas de 3800 lb                                6                                   $52.50
1980 o anterior                   -  3500 lb                                            7                                   $19.50
                                               3800 lb o mas                                  8                                   $52.50


utilizando esta tabla escriba un programa que acepte el año y el peso del auto y que determine y muestre la categoría de peso y tarifa de registro.


1.- Inicio
peso,aniio      int
Print " Año automovil "
Read aniio;
Print " Peso en lb "
Read peso;
if ( aniio<=1970)
{
if ( peso<2700)
{
Print " Categoria 1 tarifa de registro = $16.50 "
}
else
{
if ( peso>=2700&&peso<=3800)
{
Print " Categoria 2 tarifa de registro = $25.50 "
}
else
{
Print " Categoria 3 tarifa de registro = $46.50 "
}
}
}
else
{
if ( aniio>=1971&&aniio<=1979)
{
if ( peso <2700)
{
Print " Categoria 4 tarifa de registro = $27.00 "
}
else
{
if ( peso>=2700&&peso<=3800)
{
Print " Categoria 5 tarifa de registro = $30.50 "
}
else
{
Print " Categoria 6 tarifa de registro = $52.50 "
}
}
}
else
{
if ( aniio>=1970)
{
if( peso<3500)
{
Print " Categoria 7 taria de registro = $19.50 "
}
else
{
Print " Categoria 8 tarifa de registro = $52.50 "
}
}
}
Fin.







Problema 7


Escriba un programa que acepte 2 números reales de usuario y un código de selección. Si el código introducido es 1, haga que el programa sume los 2 números introducidos anteriormente y despliegue el resultado; Si el código de selección es 2, los números deberán ser multiplicados y si el código de selección es 3, el primer numero deberá dividirse entre el segundo. No permite la división entre cero y escriba un mensaje apropiado cuando se intente esta división.


1.- Inicio

num1,num2,resultado    Real
Opcion                       entero
Print " numero 1 : "
Read num1
Print " numero 2 : "
Read num2
Print " Operaciones Aritmeticas "
Print " 1) suma 2) multiplicacion 3) division
Print " Seleccionar opcion "
Read opcion
switch (opcion)
{
Case 1 : Print num1," + ", num2, " = ",( num1+num2);
break;
Case 2 : Print num1, " * ", num2, " = ", (num2*num2);
break;
Case 3 : if (num2!=0)
{
Print num1, " / ", num2, " = ", (num1/num2);
}
else
{
Print " No se permite la division entre cero "
}
break;
default : Print " Error en opcion "
}
Fin.




sábado, 12 de febrero de 2011

Practica # 3

Problema 1

Dadas la calificaciones de un estudiante en 3 aspectos de trabajo anual de un curso (laboratorio, examen intermedio y examen final). Haga un programa para calcular la calificación final con ponderaciones de 20%, 30%, 50 % respectivamente. La salida imprima al final el nombre del estu
diante sus 3 calificaciones individuales y la calificación final.

1.- Inicio
nombre,calif1,calif2,lab,califtotal reales
Print " Nombre del estudiante "
Read nombre;
Print " Calificacion del laboratorio "
Read lab;
Print " Calificacion examen intermedio "
Read calif1;
Print " Calificacion examen final "
Read calif2;
califtotal = (lab*0.20+calif1*o.30+calif2*0.50);
Print Nombre, " ", calif1, " ", calif2, " = ", calift
otal;
Fin

C++






Problema 2

Una lista de tazas de cambio de moneda extranjera durante 1977 proporcional las siguientes equivalencias.
100 francos franceses = 21.55 dolares canadienses
1 libra británicas = 1.84 dolares canadienses
100 dragmas griegas = 2.95 dolares canadienses
100 florines holandeses = 43.20 dolares canadienses
100 coronas suecas = 24.25 dolares canadienses
1 dolar norteamericano = 1.06 dolares canadienses

Desarrolle un programa para realizar las siguientes conversiones :
a) Leer una cierta cantidad de francos franceses e imprimir el equivalente en dolares canadienses
b) Leer una cierta cantidad de dragmas griegas e imprimir el equivalente en libras britanicas
c) Leer una cierta cantidad de dolares canadienses e imprimir el equivalente en dolares norteamericanos como en florines holandeses.
d) Leer la cantidad en dolares norteamericanos e imprimir el equivalente en coronas suecas como en francos franceses.

1.- Inicio
Ffranceses,Ffranc,Dcanadienses,Dgriegas,Lbritanicas,Lbrit,Dnortea,Dnorte,Csuecas,Fholandeses;
Print " Francos franceses "
Read Ffranceses
Dcanadienses = (Ffranceses*21.55)/100;
Print " Dolares canadienses = ",Dcanadienses;
Print " Dragmas griegas = ";
Read Dgriegas

Dcanadienses =(Dgriegas*2.95)/100;
Lbritanicas = (Dcanadienses/1.84);
Print " Libras britanicas = ",Lbritanicas;
Print " Dolares canadienses = ";
Read Dcanadienses

Dnortea = Dcanadienses/1.06;
Fholandeses = (Dcanadienses*100)/43.20;
Print " Dolares norteamericanos = ",Dnortea;
Print " Florines holandeses = ",Fholandese;
Print " Dolares norteamericanos = ";G
Read Dnorte

Dnortea = Dnorte*1.06;
Csuecas = (Dnortea*100)/24.25;
Ffranc = (Dnortea*100)/21.55;
Print " Coronas suecas = ",Csuecas;
Print " Francos franceses = ",Ffranc
Fin.


 C++




C



Problema 3

Si se coloca una escalera de 20 ft, a un angulo de 85° a lado de un un edificio. La altura en la cual la escalera toca el edificio se puede calcular como altura = 20 * s
en(85°). Calcula esta altura y escriba compile y ejecute un programa que obtenga y despliegue el valor de la altura. Después modifique el programa para solicitar la altura de la escalera y el angulo de esta para recibir los datos por el teclado.

1.- Inicio
angulo,altura,altura_edificio real
Print " Angulo en grados "
Read angulo;
Print " Altura de la escalera "
Read altura;
altura_edificio = altura*sin((3.1416*angulo)/180);
Print " Altura donde esta apoyada la escalera en el edificio es : ",altura_edificio;
Fin.



C++ directo


C directo



C++ 


C


Problema 4

Las coordenadas polares de un punto consisten en la distancia r, de un origen especifico y un angulo teta con respecto al eje de las x. Las coordenadas (x,y) de un punto están relacionadas con sus coordenadas polares por las formulas x = r coseno teta y = x seno teta. Con estas formulas, escriba un programa que calcule las coordenadas de un punto y que reciba los valores por medio del teclado de r & y teta en coo
rdenadas rectangulares

1.- Inicio
distancia,angulo_teta real
Print " distancia r "
Read distancial
Print " Angulo teta "
Read angulo_teta
x= r*cos(angulo_teta*3.1416)/180
y = r*sen(angulo_teta*3.1416)/180
Print " La coordenada x es ",x
Print " La coordenada y es ",y
Fin



C++


C


Problema 5

1.- Inicio
n1,n2,
n3,n4,suma,promedio,producto real
Print " numero 1 "
Read n1
Print " numero 2 "
Read n2
Print " numero 3 "
Read n3
Print " numero 4 "
Read n4
suma = n1+n2+n3+n4;
promedio = suma/4;
producto = n1*n2*n3*n4;
Print " Suma = ",suma
Print " Promedio = ",promedio
Print " Producto = ",producto
Fin


C++


C


Problema 6

1.- Inicio
distancia,t,s,d real
s = 70.0
d = 12.0
t = 20.0
distancia = s-(1.0/2.0)*d*t*t
Print " distancia = ",distancia
Fin

C++



C



Problema 7


1.- Inicio
x1,x2,y1,y2,mx,my real
Print " x1 "
Read x1
Print " x2 "
Read x2
Print " x3 "
Read x3
Print " x4 "
Read x4
mx = (x1+x2)/2
my = (y1+y2)/2
Print " Punto medio de x = ",mx
Print " Punto medio de y = ",my
Fin



C++




C