sábado, 20 de julio de 2013

CODIFICACION DEL TRABAJO EN PREZI

//FISICA ELECTROMAGNETISMO Y OPERACIONES MATEMATICAS
//CABECERA DE LIBRERAS Y DECLARACION DE VARIABLES PUBLICAS Y FUNCIONES
#include<iostream>
#include<math.h>
float flujo_magnetico(int,int,int);
float fuerza_magnetomotriz(int,int);
float exitacio_magnetica(int,int);
float induccion_envacio(int);
float trabajo_fuerzas_electromagneticas(int,int);
float fuerza_electromotriz_inducida(int,int,int);
float sumayproducto_tangente_de_enteros(int,int,int,int);
float operacionesbasicas_convalorabsoluto(int,int);
float inverso_numerode_5digitos(int);
float interes_compuesto(int,int,int);
// IMPLEMENTACION
const float PI=3.1416F;
const float PER=0.000001256F;
int x,l,b,s,n,r,ni;
double coseno,tangente;
double a;
float Q,q,ar,br,lr,sr,bs,ls,ss,as,c,k,t,i,m;
using namespace std;
int main(){
    do{
    cout<<"FISICA-ELECTROMAGNETISMO(INGENIERIA ELECTRONICA) Y OPERACIONES MATEMATICAS"<<endl;
    cout<<"1.calculo de flujo magnetico"<<endl;
    cout<<"2.calculo de la Fuerza magnetomotriz"<<endl;
    cout<<"3.calculo de la excitacion magnetica"<<endl;
    cout<<"4.induccion en el vacio"<<endl;
    cout<<"5.trabajo de fuerzas electromagneticas"<<endl;
    cout<<"6.fuerza electromotriz inducida"<<endl;
    cout<<"7.calculo de la suma y producto de las tangentes de 4 angulos enteros"<<endl;
    cout<<"8.calculo de las operaciones basicas de dos numeros con valor absoluto"<<endl;
    cout<<"9.inverso de un numero de cinco digitos"<<endl;
    cout<<"10.calculo del interes compuesto generado por un capital depositado durante un tiempo a una tasa de interes determinada,aplicando formulas"<<endl;
    cout<<"_______________________________________"<<endl;
    cout<<"ingrese una opcion: ";cin>>x;
//PROCESO  
    switch(x){
      case 1:
       cout<<"calculo de flujo magnetico"<<endl;
       cout<<"induccion(tesla): ";cin>>b;
       cout<<"superficie: ";cin>>s;
       cout<<"angulo que forma el vector induccion con la normal a s: ";cin>>a;
       ar=a*(PI/180);
       cout<<"formula: Q=b*s*cos(ar) -(weber)"<<endl;
       Q=b*s*cos(ar);  
       cout<<"flujo magnetico: "<<Q<<endl;
       system("pause");
       break;
     case 2:
       cout<<"calculo de la Fuerza magnetomotriz"<<endl;    
       cout<<"Nespiras(# de espiras): ";cin>>b;
       cout<<"intensidad: ";cin>>s;
       cout<<"formula: Q=b*s -(amperio-vuelta)"<<endl;
       Q=b*s;
       cout<<"fuerza magnetomotriz: "<<Q<<endl;
       system("pause");
       break;
    case 3:
      cout<<"calculo de la exitacion magnetica"<<endl;  
      cout<<"fuerza magnetomotriz: ";cin>>b;
      cout<<"longitud: ";cin>>s;
      cout<<"formula: Q=b/s -(amperio-vuelta/m)"<<endl;
      Q=b/s;
      cout<<"exitacion magnetica: "<<Q<<endl;
      system("pause");
      break;
   case 4:
      cout<<"induccion en el vacio"<<endl;
      cout<<"exitacion: ";cin>>s;
      cout<<"formula: Q=PER*s -(tesla)"<<endl;
      Q=PER*s;
      cout<<"induccion: "<<Q<<endl;
      system("pause");
      break;  
   case 5:
      cout<<"trabajo de fuerzas electromagneticas"<<endl;
      cout<<"flujo: ";cin>>b;
      cout<<"intensidad: ";cin>>s;
      cout<<"formula: Q=b*s -(julios)"<<endl;
      Q=b*s;
      cout<<"trabajo: "<<Q<<endl;
      system("pause");
      break;
   case 6:
      cout<<"fuerza electromotriz inducida"<<endl;
      cout<<"induccion: ";cin>>b;
      cout<<"longitud: ";cin>>l;
      cout<<"velocidad: ";cin>>s;
      cout<<"formula: Q=b*l*s -(voltios)"<<endl;
      Q=b*l*s;
      cout<<"F electromotriz(ind): "<<Q<<endl;
      system("pause");
      break;
   case 7:    
     cout<<"(suma,producto) de tangentes de 4 angulos enteros"<<endl;
     cout<<"primer angulo: ";cin>>b;
     cout<<"segundo angulo: ";cin>>l;
     cout<<"tercer angulo: ";cin>>s;
     cout<<"cuarto angulo: ";cin>>a;
     br=b*(PI/180);
     lr=l*(PI/180);
     sr=s*(PI/180);
     ar=a*(PI/180);
     bs=tan(br);
     ls=tan(lr);
     ss=tan(sr);
     as=tan(ar);
     q=bs+ls+ss+as;  
     Q=bs*ls*ss*as;
     cout<<"suma de tangentes: "<<q<<endl;
     cout<<"productos de tagentes: "<<Q<<endl;
     system("pause");
     break;
   case 8:
     cout<<"calculo de las operaciones basicas de dos numeros con valor absoluto"<<endl;  
     cout<<"primer numero: ";cin>>a;
     cout<<"segundo numero: ";cin>>b;
     ss=fabs(a)+fabs(b);
     bs=fabs(a)*fabs(b);
     as=fabs(a)/fabs(b);
     ls=fabs(a)-fabs(b);
     cout<<"suma: "<<ss<<endl;
     cout<<"diferencia: "<<ls<<endl;
     cout<<"producto: "<<bs<<endl;
     cout<<"cociente: "<<as<<endl;
     system("pause");
     break;  
   case 9:
     cout<<"inverso de un numero de cinco digitos"<<endl;  
     cout<<"numero: ";cin>>n;
     r=n%10;
     n=n/10;
     ni=r*10;
     r=n%10;
     n=n/10;
     ni=(ni+r)*10;
     r=n%10;
     n=n/10;
     ni=(ni+r)*10;
     r=n%10;
     n=n/10;
     ni=(ni+r)*10;
     ni=ni+n;
     cout<<"inverso: "<<ni<<endl;
     system("pause");
     break;  
  case 10:
     cout<<"calculo del interes compuesto generado por un capital depositado durante un tiempo a una tasa de interes determinada,aplicando formulas"<<endl;    
     cout<<"capital: ";cin>>c;
     cout<<"tasa de interes: ";cin>>k;
     cout<<"tiempo: ";cin>>t;
     cout<<"formula1: m=((1+k%)^t)*c"<<endl;
     cout<<"formula2: i=m-c"<<endl;
     m= pow((1+k / 100),t)*c;
     i=m-c;
     cout<<"interes: "<<i<<endl;
     cout<<"monto: "<<m<<endl;
     system("pause");
     break;          
       default:
       cout<<"ERROR"<<endl;
       system("pause");
       break;}}
       while(x!=0);
      system("read");
       return 0;}
       // ZONA DE DESARROLLO DE FUNCIONES
       float flujo_magnetico(int,int,int)
       {return  Q=b*s*cos(ar);}          
       float fuerza_magnetomotriz(int,int)    
       { return Q=b*s;}        
       float exitacion_magnetica(int,int)
       { return Q=b/s;}    
       float induccion_envacio(int)
       { return Q=PER*s;}  
       float trabajo_fuerzas_electromagneticas(int,int)
       { return Q=b*s;}  
       float fuerza_electromotriz_inducida(int,int,int)
       { return Q=b*l*s;}
       float sumayproducto_tangente(int,int,int,int)
       { return br=b*(PI/180);
                lr=l*(PI/180);
                sr=s*(PI/180);
                ar=a*(PI/180);
                bs=tan(br);
                ls=tan(lr);
                ss=tan(sr);
                as=tan(ar);
                q=bs+ls+ss+as;  
                Q=bs*ls*ss*as;  }  
       float operacionesbasicas_convalorabsoluto(int,int)
       { return ss=fabs(a)+fabs(b);
               bs=fabs(a)*fabs(b);
               as=fabs(a)/fabs(b);
               ls=fabs(a)-fabs(b);  }  
       float inverso_numerode_5digitos(int)
       { return r=n%10;
               n=n/10;
               ni=r*10;    
               r=n%10;
               n=n/10;
               ni=(ni+r)*10;
               r=n%10;
               n=n/10;
               ni=(ni+r)*10;
               r=n%10;
               n=n/10;
               ni=(ni+r)*10;
              ni=ni+n;}        
        float interes_compuesto(int,int,int)
        { return m= pow((1+k / 100),t)*c;
               i=m-c;}      
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     

No hay comentarios:

Publicar un comentario