Practica 3 Unidad 2

 

Practica  3 Unidad 2

Problema 1 

Pseudocódigo:

Inicio

pesos, dolar, euro, libra_esterlina, dolar_canadiense, yen_japones, yuan_chino     Real

dolar = 12.6985
euro = 16.7477
libra_esterlina = 19.2505
dolar_canadiense = 12.4251
yen_japones = 0.13590
yuan_chino = 2.01723
write ("Introdusca la cantidad en pesos")
read pesos
write ("Equivalente a dolar", pesos / dolar,"dolares")
write ("Equivalente a euro", pesos / euro,"euros")
write ("Equivalente a libra esterlina", pesos / libra_esterlina,"libras esterlinas")
write ("Equivalente a dolar canadiense", pesos / dolar_canadiense," dolar canadiense")
write ("Equivalente a yen japones", pesos / yen_japones,"yens)
write ("Equivalente a yuan chino", pesos / yuan_chino,"yuans")
Fin

Código:

/*Practica No. 3 Problema # 1 fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>

int main ()
{
float  pesos, dolar, euro, libra_esterlina, dolar_canadiense, yen_japones, yuan_chino;
dolar = 12.6985;
euro = 16.7477;
libra_esterlina = 19.2505;
dolar_canadiense = 12.4251;
yen_japones = 0.13590;
yuan_chino = 2.01723;
cout<<"Introdusca la cantidad en pesos = ";
cin>>pesos;
cout<<endl<<"Equivalente a dolar = " <<pesos/dolar<<" dolares "<<endl<<endl;
cout<<"Equivalente a euro = " <<pesos/euro<<" euros "<<endl<<endl;
cout<<"Equivalente a libra esterlina = " <<pesos/libra_esterlina<<" libras esterlinas "<<endl<<endl;
cout<<"Equivalente a dolar canadiense = " <<pesos/dolar_canadiense<<" dolares canadienses"<<endl<<endl;
cout<<"Equivalente a yen japones = " <<pesos/yen_japones<<" yens "<<endl<<endl;
cout<<"Equivalente a yuan chino = " <<pesos/yuan_chino<<" yuans "<<endl<<endl;
getch ();
return 0;
}

Programa:

Problema 2

Pseudocódigo:

Inicio

float MX,USD,EUR,LIBRA,CND,YENJP,YCH   float

Write ("Introdusca el valor en Dolar Estadounidenses(USD)")

Write ("Cantidad de USD = ")

Read USD

MX=(USD*12.6985)

USD=USD

EUR=(USD*(12.6985/16.7477))

LIBRA=(USD*(12.6985/19.2505))

CND=(USD*(12.6985/12.4251))

YENJP=(USD*(12.6985/0.13590))

YCH=(USD*(12.6985/2.01723))

Write ("Tipo de Cambio")

Write ("Peso Mexicano: ",MX )

Write ("Dolar Estadounidense: ", USD)

Write ("Euro: ",EUR )

Write ("Libra Esterlina: ", LIBRA )

Write ("Dolar Canadiense: ", CND )

Write ("Yen Japones: ", YENJP )

Write ("Yuan Chino: ", YCH )

Fin 

Código:

/*Practica No. 3 Problema # 2 fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <iomanip.h>
int main ()
{
float MX,USD,EUR,LIBRA,CND,YENJP,YCH;
cout<<"Introdusca el valor en Dolar Estadounidenses(USD)\n"<<endl;
cout<<"Cantidad de USD = ";
cin>>USD;
MX=(USD*12.6985);
USD=USD;
EUR=(USD*(12.6985/16.7477));
LIBRA=(USD*(12.6985/19.2505));
CND=(USD*(12.6985/12.4251));
YENJP=(USD*(12.6985/0.13590));
YCH=(USD*(12.6985/2.01723));
cout<<"\n\n\t**Tipo de Cambio**\n"<<endl;
cout<<"Peso Mexicano: "<<setw(13)<<setiosflags(ios::fixed)<<setprecision(2)<<MX<<endl;
cout<<"Dolar Estadounidense: "<<setw(6)<<USD<<endl;
cout<<"Euro: "<<setw(22)<<EUR<<endl;
cout<<"Libra Esterlina: "<<setw(11)<<LIBRA<<endl;
cout<<"Dolar Canadiense: "<<setw(10)<<CND<<endl;
cout<<"Yen Japones: "<<setw(15)<<YENJP<<endl;
cout<<"Yuan Chino: "<<setw(16)<<YCH<<endl;
cout<<"\n\t**Tipo de Cambio**"<<endl;
getch();
return 0;
} 

Programa:

 
Problema 3

Pseudocódigo:

Inicio
double angulo, seno, coseno, tangente, radianes,   double
Write ("angulo en grados: ")
Read angulo
radianes=angulo*3.1416/180.0;
Write ("en radianes =",radianes)
seno= sin(radianes);
Write ("El seno de angulo es = " sin(radianes) )
coseno= cos(radianes)
Write ("El coseno del angulo es = ", cos(radianes) )
tangente= tan(radianes)
Write ("La Tangente del Angulo es = ", tan(radianes) )
Fin
 
Código:

/*Practica No. 3 Problema # 3 fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>
#include <iomanip.h>
#include <math.h>

int main()
{
double angulo, seno, coseno, tangente, radianes;
cout<<"angulo en grados: ";
cin>>angulo;
radianes=angulo*3.1416/180.0;
cout<<"en radianes ="<<radianes<<endl;
seno= sin(radianes);
coseno= cos(radianes);
tangente= tan(radianes);
cout<<"seno de "<<angulo<<" grados= "<<sin(radianes)<<endl;
cout<<"coseno de "<<angulo<<" grados= "<<cos(radianes)<<endl;
cout<<"tangente de "<<angulo<<" grados= "<<tan(radianes)<<endl;
getch();
return 0;
}

Programa: 

 
Problema 4 

Pseudocódigo:

Inicio
lado, largo, ancho, trian, d, D  Real 
Write("Lado del cuadrado: ")
Read(lado)
Write("Area del cuadrado: ",lado^2)
Write("Perimetro: ", lado*4)    
Write("Largo del rectangulo: ")
Read(largo)
Write("Ancho del rectangulo: ")
Read(ancho)
Write("Area del rectangulo: ",largo*ancho)
Write("Perimetro: ",2*( largo+ancho))
Write("Lado del triangulo: ")
Read(trian)
Write("Area del triangulo: ",trian^2*3^0.5/4)
Write("Perimetro: ", trian*3)
Write("Diagonal mayor del rombo: )
Read(D)
Write("Diagonal menor del rombo: )
Read(d)
Write("Area del rombo: ",D*d/2)
Write("Perimetro: ",(D^2+d^2)^0.5)
Fin
   
Código:

/*Practica No. 3 Problema # 4 fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/
 
#include <conio.h>
#include <iostream.h>
#include <iomanip.h>
#include <math.h>

int main()
{
float lado, largo, ancho, trian, d, D;
cout<<"Lado del cuadrado: ";
cin>>lado;
cout<<endl<<"Area del rectangulo: "<<pow(lado,2)
    <<endl<<"Perimetro: "<<lado*4<<endl<<endl<<"Largo del rectangulo: ";
cin>>largo;
cout<<endl<<"Ancho del rectangulo: ";
cin>>ancho;
cout<<endl<<"Area del rectangulo: "<<largo*ancho<<endl<<"Perimetro: "<<largo*ancho<<endl<<endl
    <<"Lado del triangulo rectangulo: ";
cin>>trian;
cout<<endl<<endl<<"Area del triangulo: "<<sqrt(3)*pow(trian,2)/4<<endl<<"Perimetro: "<<trian*3<<endl
    <<endl<<"Diagonal mayor del rombo: ";
cin>>D;
cout<<endl<<"Diagonal menor del rombo: "<<endl;
cin>>d;
cout<<"Area del rombo: "<<D*d/2<<endl<<"Perimetro: "<<sqrt(pow(d,2)+pow(D,2))<<endl;
getch ();
return 0;
}  

Programa:

Problema 5a

Pseudocódigo:

Inicio  
Write("Modelo de crecimiento poblacional en miles de millones de personas desde el año 2000")  
Write("Año 2010: ",6.0*exp(10))  
Write("Año 2011: ",6.0*exp(11))
Write("Año 2012: ",6.0*exp(12))  
Fin

Código:

/*Practica No. 3 Problema # 5a fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/


#include <conio.h>
#include <iostream.h>
#include <iomanip.h>
#include <math.h>

int main()
{
cout<<"Modelo de crecimiento poblacional en miles de millones de personas desde el año 2000"<<endl
    <<endl<<"Año 2010: "<<6.0*exp(10)<<endl
    <<endl<<"Año 2011: "<<6.0*exp(11)<<endl
    <<endl<<"Año 2012: "<<6.0*exp(12);
getch ();
return 0;
}

Programa:

 
 Problema 5b 

Pseudocódigo:

Inicio
ano  Real
Write("Modelo de crecimiento poblacional en miles de millones de personas desde el año 2000")
Read(ano)
Write("Poblacion en el año ",ano,"es: ",poblacion6.0*exp(ano-2000))
Fin

Código:

/*Practica No. 3 Problema # 5b fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <conio.h>
#include <iostream.h>
#include <iomanip.h>
#include <math.h>

int main()
{
double poblacion;
int ano;
cout<<"Modelo de crecimiento poblacional en miles de millones de personas desde el año 2000"<<endl
    <<endl<<"Año: ";
cin>>ano;
poblacion=6.0*exp(ano-2000);
cout<<endl<<"Poblacion en el año "<<ano<<" es: "<<poblacion;
getch ();
return 0;
}

Programa:

Problema 6a

Pseudocódigo:

Inicio
X, Y, r=23 , angulo=58, radianes,            double
Write ("Las coordenadas de X y Y cuando La distancia del origen es r=23")
Radianes=angulo*3.1416/180.0
Write ("y el angulo=85 grados es:", radianes)
X=r*sin(radianes);
Write ("La coordenada de X es:", X)
Y=r*cos(radianes);
Write "(La coordenada de Y es:",  Y )
Fin 

Código:

/*Practica No. 3 Problema # 6a fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <iomanip.h>

int main ()
{
float o=85, r=23, X, Y;
X=r*cos(o*(3.1416/180));
Y=r*sin(o*(3.1416/180));
cout<<"Las coordenadas polares cuando r= 23 y el Angulo= 85\n"<<endl;
cout<<setiosflags(ios::fixed)<<setprecision(2)<<"Los resultados son X= "<<X<<" y para Y= "<<Y<<endl;
getch();
return 0;
}

Programa:

Problema 6b

Pseudocódigo: 

Inicio
X, Y, r , angulo, radianes, x, y double
Write ("Las coordenadas de X y Y son dadas por la distancia del origen es (r)")
Write ("y el angulo en le eje x")
radianes=angulo*3.1416/180.0;
Write ("Introducir la distacia del origen:")
Read r
Write ("Introducir el Angulo")
Read angulo
Write ("las cordenadas de X y Y son :")
x=r*sin(radianes);
Write (" X =", x )
y=r*cos(radianes);
Write ("Y =", y )
Fin 

Código:

/*Practica No. 3 Problema # 6b fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/
 
#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <iomanip.h>
 
int main ()
{
float o, r, X, Y;
cout<<"Instrodusca el Valor de r"<<endl;
cin>>r;
cout<<"\nInstrodusca el Valor del angulo"<<endl;
cin>>o;
X=r*cos(o*(3.1416/180));
Y=r*sin(o*(3.1416/180));
cout<<"\nLas coordenadas polares cuando r= "<<r<<" y el Angulo= "<<o<<"\n"<<endl;
cout<<setiosflags(ios::fixed)<<setprecision(2)<<"Los resultados son X= "<<X<<" y para Y= "<<Y<<endl;
getch();
return 0;
} 

Programa: 

Problema 7a 

Pseudocódigo: 

Inicio
Resistencia Combinada, r1=1000.0, r2=1200.0, r3=1500.0, r4=1800.0, r5=1500.0, r6=1800.0    float
resistenciacombinada= 1.0/(1.0/r1+1.0/r2+1.0/r3+1.0/r4+1.0/r5+1.0/r6)
Resistencia 1=
Write ("resistencia 1= ",r1," ohms ")
Resistencia 2=
Write ("resistencia 2= ",r2," ohms ")
Resistencia 3=
Write ("resistencia 3= ",r3," ohms ")
Resistencia 4=
Write ("resistencia 4= ",r4," ohms ")
Resistencia 5=
Write ("resistencia 5= ",r5," ohms ")
Resistencia 6=
Write ("resistencia 6= ",r6," ohms ")
Resistencia combinada en paralelo=
Write ("Resistencia combinada en paralelo= ",resistenciacombinada)
Fin

Código:

/*Practica No. 3 Problema # 7a fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <iomanip.h>

int main ()
{
float r1=1000,r2=1200,r3=1500,r4=1800,r5=1500,r6=1800,rt;
cout<<"Valores de las resistencias:"<<endl;
cout<<"\nr1=1000 ohms, r2=1200 ohms, r3=1500 ohms, r4=1800 ohms, r5=1500 ohms, r6=1800 ohms"<<endl;
rt=1/((1/r1)+(1/r2)+(1/r3)+(1/r4)+(1/r5)+(1/r6));
cout<<setiosflags(ios::fixed)<<setprecision(2)<<"\nLa resistencia total de las resistencias conectadas en paralelo es "<<rt<<" ohms"<<endl;
getch();
return 0;
}  

Programa:

Problema 7b 

Pseudocódigo:

Inicio

r1,r2,r3,r4,r5,r6,rt     double
Write ("Introdusca los valores de las resistencias (en ohms):")
Write ("Resistencia 1: ")
Reas r1
Write ("Resistencia 2: ")
Read r2
Write ("Resistencia 3: ")
Read r3
Write ("Resistencia 4: ")
Read r4
Write ("Resistencia 5: ")
Read r5
Write ("Resistencia 6: ")
Read r6
rt=1/((1/r1)+(1/r2)+(1/r3)+(1/r4)+(1/r5)+(1/r6));
Write ("La resistencia total de las resistencias conectadas en paralelo es ", rt )
Fin

Código:

/*Practica No. 3 Problema # 7b fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <iomanip.h>

int main ()
{
float r1,r2,r3,r4,r5,r6,rt;
cout<<"Introdusca los valores de las resistencias (en ohms):"<<endl;
cout<<"\nResistencia 1: ";
cin>>r1;
cout<<"\nResistencia 2: ";
cin>>r2;
cout<<"\nResistencia 3: ";
cin>>r3;
cout<<"\nResistencia 4: ";
cin>>r4;
cout<<"\nResistencia 5: ";
cin>>r5;
cout<<"\nResistencia 6: ";
cin>>r6;
rt=1/((1/r1)+(1/r2)+(1/r3)+(1/r4)+(1/r5)+(1/r6));
cout<<setiosflags(ios::fixed)<<setprecision(2)<<"\nLa resistencia total de las resistencias conectadas en paralelo es "<<rt<<" ohms"<<endl;
getch();
return 0;
} 

Programa:   

  
Problema 8
Pseudocódigo: 

Inicio
v1,v2,v3,v4,v5,prom,suma    int
Introdusca valores enteros:
Write ("Introdusca valores enteros:")
Write ("Valor 1: ")
Read v1
Write ("Valor 2: ")
Read v2
Write ("Valor 3: ")
Read v3
Write ("Valor 4: ")
Read v4
Write ("Valor 5: ")
Read v5
prom=(v1+v2+v3+v4+v5)/5
suma=v1+v2+v3+v4+v5
La suma total es ",suma," unidades y el promedio son ",prom," unidades
Write ("La suma total es ",suma," unidades y el promedio son ",prom," unidades")
Fin

Código: 

/*Practica No. 3 Problema # 8 fecha: 25 febrero de 2013
Lopez Vega Moises 122211830
Salomon Soto Luis Felipe 12211233
Molina Hutchings Von Ludwitz Jonathan Francisco 12211252
Bocanegra Urrea Jesus Gerardo 12211246*/

#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <iomanip.h>

int main ()
{
int v1,v2,v3,v4,v5,prom,suma;
cout<<"Introdusca valores enteros:"<<endl;
cout<<"\nValor 1: ";
cin>>v1;
cout<<"\nValor 2: ";
cin>>v2;
cout<<"\nValor 3: ";
cin>>v3;
cout<<"\nValor 4: ";
cin>>v4;
cout<<"\nValor 5: ";
cin>>v5;
prom=(v1+v2+v3+v4+v5)/5;
suma=v1+v2+v3+v4+v5;
cout<<"\nLa suma total es "<<suma<<" unidades, y el promedio son "<<prom<<" unidades"<<endl;
getch();
return 0;
}

Programa: