ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Correlacion


Enviado por   •  24 de Noviembre de 2012  •  417 Palabras (2 Páginas)  •  249 Visitas

Página 1 de 2

Sub correlacion()Dim i, j As IntegerDim a, b As StringFor i = 2 To 62b = CStr(Hoja1.Cells(i, 16))For j = 2 To 3849If CStr(Hoja1.Cells(j, 3)) = b ThenHoja1.Cells(j, 10) = Hoja1.Cells(i, 17)Hoja1.Cells(j, 11) = Hoja1.Cells(i, 18)Hoja1.Cells(j, 12) = Hoja1.Cells(i, 19)Hoja1.Cells(j, 13) = Hoja1.Cells(i, 20)End IfNext jNext iEnd Sub

#include <iostream>

#include <math.h>

#include <stdlib.h>

using namespace std;

int main()

{

system("title Calculadora v.1.0 by P43L0"); system("color 06");

double X;

{

cout << "\n-Advanced Calculator-\n\nElige operacion:\n\n";

cout << "\n1. Restar\n2. Sumar\n3. Dividir\n4. Multiplicar\n5. Raiz cuadrada\n6. Numero elevado a otro numero\n7. Porcentaje\n\n Trigonometria\n8. Seno del angulo\n9. Coseno del angulo\n10. Tangente\n\n Logaritmos\n11. Logaritmo natural\n12. Logaritmo decimal\n\nOpcion ";

cin >> X;

if(X == 1){

double restar1, restar2;

cout << "\nEscribe el primer digito: ";

cin >> restar1;

cout << "Escribe el segundo digito: ";

cin >> restar2;

cout << "El resultado de la resta es " << restar1 - restar2 << endl;

system("pause>nul");

}

if(X == 2){

double sumar1, sumar2;

cout << "\nEscribe el primer digito: ";

cin >> sumar1;

cout << "Escribe el segundo digito: ";

cin >> sumar2;

cout << "El resultado de la suma es " << sumar1 + sumar2 << "\n" << endl;

system("pause>nul");

}

if(X == 3) {

double diva, divb;

cout << "\nEscribe el dividendo: ";

cin >> diva;

cout << "Escribe el divisor: ";

cin >> divb;

cout << "El resultado de la división es " << diva / divb << endl;

system("pause>nul");

}

if(X == 4){

double multa, multb;

cout << "\nEscribe el primer digito: ";

cin >> multa;

cout << "Escribe el segundo digito: ";

cin >> multb;

cout << "El resultado de la multiplicacion es " << multa * multb << endl;

system("pause>nul");

}

if(X == 5){

double raizc;

cout

...

Descargar como (para miembros actualizados)  txt (3.2 Kb)  
Leer 1 página más »
Disponible sólo en Clubensayos.com