Mediante una matriz saber cual es el numero Mayor y Menor y mostrar la matriz de los elementos ingresados.


Código:

#include<iostream>
#include<iomanip>
#include<stdlib.h>
using namespace std;

void ingresar(float A[50][50],int n, int m);
void mostrar(float A[50][50],int n, int m);
void mayor(float A[50][50],int n, int m);
void menor(float A[50][50],int n, int m);

int main()
{
 system("cls");
// system("color A0");

 int n,m;
 float A[50][50];

 cout<<"\n\n\t- INGRESA FILAS    :  ";
 cin>>n;

 cout<<"\n\t- INGRESA COLUMNAS :  ";
 cin>>m;

 ingresar(A,n,m);
 mostrar(A,n,m);
 mayor(A,n,m);
 menor(A,n,m);

 cout<<endl<<endl;
 system("pause");
}




void ingresar(float A[50][50],int n, int m)
{

 for(int i=0;i<n;i++)
    for(int j=0;j<m;j++)
      {
    cout<<endl<<"\t\t\t\t -  ["<<i<<"]"<<"["<<j<<"] =";
    cin>>A[i][j];
      }
}


void mostrar(float A[50][50],int n, int m)
{
 cout<<"\n\n\t Matriz  = \n";

 for(int i=0;i<n;i++)
    {
    cout<<endl<<"\n\t\t";
    for(int j=0;j<m;j++)
      {
       cout<<" "<<setw(4)<<A[i][j];
      }
}
}


void mayor(float A[50][50],int n, int m)
{

 float mayor=A[0][0];

 for(int i=0;i<n;i++)
    for(int j=0;j<m;j++)
      {
    if(A[i][j]>mayor)
    mayor=A[i][j];
       }
    cout<<"\n\n\n\t\t\tEL MAYOR = "<<mayor;
}


void menor(float A[50][50],int n, int m)
{

 float menor=A[0][0];

 for(int i=0;i<n;i++)
    for(int j=0;j<m;j++)
      {
    if(A[i][j]<menor)
        menor=A[i][j];
       }
    cout<<"\n\n\t\t\tEL MENOR = "<<menor;
}

Menor y Mayor mediante una matriz c/c++

Posted by : Jason
viernes, 30 de diciembre de 2016
0 Comments
Hoy vamos a hacer un programa en que el elemento A y B se ingresen #n cantidad de elementos y que nos de al final un elemento C de cual es la intersección de los elementos A y B.


Codigo:

#include<iostream>
#include<stdlib.h>
using namespace std;

int contador = 0;

int *Ingresar( int *A , int N)
{
 A = new int [100];

 for( int i = 0 ; i < N ; i++ )
     {
      cout<<"\n\t\t\t - ["<<i+1<<"] : ";
      cin>>A[i];
     }

 return A;
      
}


int *Interseccion( int *A , int *B , int *C , int N ,int M )
{

 C = new int [100];
  
 for( int i = 0 ; i < N ; i++ )
     for( int j = 0 ; j < M ; j++ )
         if ( A[i] == B[j])
             {
              C[contador++] = A[i];
            } 
            
  if ( contador == 0)          
       return 0;
  else          
       return C;
}



void Mostrar( int *A , int N)
{

 cout<<" "<<A[0];

 for( int i = 1 ; i < N ; i++ )
      cout<<" , "<<A[i];
      
}


int main()
{
 int N, M;

 int *A = NULL;
 int *B = NULL;
 int *C = NULL;

 cout<<"\n\n\t  Primer Conjunto  : ";
 cin>>N;

 A = Ingresar(A , N);
 cout<<"\n\n\t\t  A = { ";
 Mostrar(A,N);
 cout<<" } \n\n";


 cout<<"\n\n\t  Segundo Conjunto : ";
 cin>>M;

 B = Ingresar(B , M);
 cout<<"\n\n\t\t  B = { ";
 Mostrar(B,M);
 cout<<" } \n\n";


 C = Interseccion( A , B , C , N , M );
 cout<<"\n\n\t\t Interseccion  C = { ";
 Mostrar(C,contador);
 cout<<" } \n\n";

 cout<<endl<<endl;
 system("pause");
 return 0;
}



Interseccion de conjutos c/c++

Posted by : Jason 0 Comments

Esta vez Trabajaremos en Excel ya sea 2007-2010-2013 realizaremos un código de registro en el cual llenaremos las celdas al llenar los campos del registro y nos calculara automáticamente la edad.

1.- llenar los campos de Nombres, Apellidos, Cédula, Fecha de Nacimiento, Edad( La edad sera calculada automáticamente al momento de pasar los datos ingresados al campo de las celdas.

2.- Informar al usuario si desea guardar los datos.

3.- una ves confirmado el guardar informar si el año es bisiesto o no.



Código enVisual Basic (Excel )

Private Sub CommandButton1_Click()
Dim NOMBRE, APELLIDO, CEDULA, FECHA_NACIMIENTO As String
Dim REGISTRO As Double
Dim FECHA As Date, EDAD, I, J As Integer
Dim MES, DIA, ANIO As String
Dim bEscribe1, bEscribir2 As Boolean
'Inicializamos las variables para revisar la fila vacias
I = 1
J = 2
bEscribe1 = False
bEscribe2 = False


'mid substrae una subcadena de una cadena

NOMBRE = TextBox1.Value
APELLIDO = TextBox2.Value
CEDULA = TextBox3.Value
FECHA_NACIMIENTO = TextBox4.Value
MES = Mid(FECHA_NACIMIENTO, 4, 2)
DIA = Mid(FECHA_NACIMIENTO, 1, 2)
ANIO = Mid(FECHA_NACIMIENTO, 7, 4)

'trim buscar espacio en blanco para colocarlos en un orden


Do While bEscribe1 = False
If Trim(Hoja1.Cells(I, 1)) = "" And Trim(Hoja1.Cells(I, 2)) = "" And Trim(Hoja1.Cells(I, 3)) = "" And Trim(Hoja1.Cells(I, 4)) = "" And Trim(Hoja1.Cells(I, 5)) = "" Then
bEscribe1 = True
Else
I = I + 1
End If
Loop

Do While bEscribe2 = False
If Trim(Hoja2.Cells(J, 1)) = "" And Trim(Hoja2.Cells(J, 2)) = "" And Trim(Hoja2.Cells(J, 3)) = "" And Trim(Hoja2.Cells(J, 4)) = "" And Trim(Hoja2.Cells(J, 5)) = "" Then
bEscribe2 = True
Else
J = J + 1
End If
Loop

'len mide una cadena

If Len(FECHA_NACIMIENTO) = 10 Then

If MES >= 1 And MES <= 12 And DIA >= 1 And DIA <= 31 And ANIO >= 1 And ANIO <= Year(Date) Then
FECHA = CDate(TextBox4)
EDAD = CInt((Date - FECHA) / 365)
a = MsgBox("CONFIRMAR GUARDAR DATOS", vbOKCancel, "AVISO")
If a = 1 Then
If MES = 12 Then
Hoja2.Cells(J, 1) = NOMBRE
Hoja2.Cells(J, 2) = APELLIDO
Hoja2.Cells(J, 3) = CEDULA
Hoja2.Cells(J, 4) = FECHA_NACIMIENTO
Hoja2.Cells(J, 5) = EDAD
Else
Hoja1.Cells(I, 1) = NOMBRE
Hoja1.Cells(I, 2) = APELLIDO
Hoja1.Cells(I, 3) = CEDULA
Hoja1.Cells(I, 4) = FECHA_NACIMIENTO
Hoja1.Cells(I, 5) = EDAD
End If
'calculo del año

TextBox4.Text = Year(TextBox4.Text)
año = TextBox4.Text
If año Mod 100 = 0 Then
Bisiesto = (año Mod 400 = 0)
Else
Bisiesto = (año Mod 4 = 0)
End If
If Bisiesto = True Then
MsgBox ("AÑO ES BISIESTO")
Else
MsgBox ("AÑO NO ES BISIESTO")
End If
TextBox1.Text = Empty
TextBox2.Text = Empty
TextBox3.Text = Empty
TextBox4.Text = Empty
TextBox1.SetFocus
Else
MsgBox ("GRACIAS, LA INFORMACION NO SE GUARDO")
End If
Else
MsgBox ("ERROR, EN LA FECHA INGRESADA")
End If
Else
MsgBox ("ERROR EL FORMATO DE LA FECHA DEBE SER DD/MM/AAAA")
End If

End Sub
Private Sub CommandButton2_Click()
a = MsgBox("DESEA SALIR?", vbOKCancel, "AVISO")
If a = 1 Then
End
End If
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = Empty
TextBox2.Text = Empty
TextBox3.Text = Empty
TextBox4.Text = Empty

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label5_Click()

End Sub



Simular Registro (Excel 2016) Code VB

Posted by : Jason
lunes, 5 de diciembre de 2016
0 Comments

- Copyright © Jason Igneel -