// Librerías a utilizar
#include <iostream>
using namespace std;

// Predefinición de funciones
void Pide(int []);
void Visualiza(int []);
void Ordenarinter(int [],int []);
void Ordenarsel(int [],int []);
// Función principal

int main(int argc, char *argv[])
{
    // Definicion de variables a utilizar
    int VectorDesordenado;
    int VectorOrdenado;//['MAX'];
    int Opcion=0;
    int i=0;

    // Inicializar los vectores para evitar posibles errores
    for(Opcion=0;Opcion<i;Opcion++)
    {
      VectorDesordenado;
      VectorOrdenado;
    }
    // Visualizar menú de opciones
    do {
       cout<<"\n1.- Solicitar datos del vector.";
       cout<<"\n2.- Visualizar datos del vector desordenado.";
       cout<<"\n3.- Ordenar por intercambio directo.";
       cout<<"\n4.- Ordenar por seleccion directa.";
       cout<<"\n5.- Visualizar datos del vector ordenado.";
       cout<<"\n6.- Rellenar vector desordenado aleatoriamente.";
       cout<<"\n0.- Salir";
       cout<<"\n=============================================";
       cout<<"\nOpcion...: ";
       cin>>Opcion;
       
       switch(Opcion) {
         case 1:
              // Solicitar datos del vector, llamar a la funcion pedir
              Pide(VectorDesordenado);
              break;
         case 2:
              // Visualizar datos del vector desordenado
              Visualiza(VectorDesordenado);
              break;
         case 3:
              // Ordenar por el metodo de intercambio directo
              Ordenarinter(VectorDesordenado,VectorOrdenado);
              break;
         case 4:
              // Ordenar por el metodo de seleccion directa
              Ordenarsel(VectorDesordenado,VectorOrdenado);
              break;
         case 5:
              // Visualizar datos del vector ordenado
              Visualiza(VectorOrdenado);
              break;
       }
    } while(Opcion!=0);  
  system("PAUSE");  
  return 0;
}
// Función Solicitar Datos del vector desordenado
void Pide(int VectorDesordenado)
{
     // Crear variable contador para recorrer el vector
     int contador=0;
     // Recorrer el vector y solicitar datos del mismo
     for(contador=0;contador<i;contador++)
     {
      cout<<"\nValor posicion : ",contador+1;
      cin>>VectorDesordenado[contador];
     }
}
// Función para visualizar los datos del vector desordenado/ordenado
void Visualiza(int Vector[])
{
     // Crear variable contador para recorrer el vector
     int contador=0;
     // Recorrer el vector y visualizar los datos del mismo
     cout<<"\n========================================================\n\n";
    for(contador=0;contador<i;contador++)
     {
       cout<<Vector[contador];
     }
     cout<<"\n\n========================================================\n";
}
// Función para ordenar el vector con el método de intercambio directo
void Ordenarinter(int VectorD[],int VectorO[])
{
     // Variables para recorrer los vectores
     int contador = 0;
     int elementos = 0;
     int intercambio = 0;
     int bandera = 1;
     // Copiar el contenido del vector desordenado al ordenado
     for(contador=0;contador<i;contador++)
     {
        VectorO[contador] = VectorD[contador];
     }
     // Ordenar el vector por el método de la burbuja
     cout<<"\n\nOrdenando Vector.";
     for(elementos=i-1;elementos>0 && bandera==1;elementos--)
     {
       bandera = 0;
       for(contador=0;contador<elementos;contador++)
       {
         if(VectorO[contador]>VectorO[contador+1])
         {
           intercambio = VectorO[contador];
           VectorO[contador] = VectorO[contador+1];
           VectorO[contador+1] = intercambio; 
           bandera = 1;
           cout<<".";
         }
       }
     }
     cout<<"\n\nVector Ordenado\n\n";
}
// Función para ordenar el vector con el método de selección directa
void Ordenarsel(int VectorD[],int VectorO[])
{
     // Variables a utilizar
     int minimo = 0;
     int pos_minimo = 0;
     int contador = 0;
     int elementos = 0;
     int intercambio = 0;
     // Copiar el contenido del vector desordenado al ordenado
     for(contador=0;contador<i;contador++)
     {
        VectorO[contador] = VectorD[contador];
     }
     // Método de ordenación por selección directa
     for(elementos=0;elementos<i;elementos++)
     {
       minimo = VectorO[elementos];
       pos_minimo = elementos;
       for(contador=elementos;contador<i;contador++)
       {
         if(minimo>VectorO[contador])
         {
           minimo = VectorO[contador];
           pos_minimo = contador;
         }
       }
       intercambio = VectorO[elementos];
       VectorO[elementos] = minimo;
       VectorO[pos_minimo] = intercambio;
     }
}

Program GenClave;
   uses crt;
   Var CI: longint;
       D0,D1,D2,D3,Clave: integer;

Function GenUni(C:longint) : integer;
  Var Dmas,Dmenos:integer;
  Begin
    Dmenos := C mod 10;
    repeat
      Dmas := C mod 10;
      C    := C div 10;
    until c = 0;
    GenUni := (Dmenos+Dmas) mod 10;
  End;

Function GenDec(C:longint) : integer;
  Var Suma:integer;
  Begin
    Suma := 0;
    repeat
      Suma := Suma + C mod 10;
      C    := C div 10;
    until c = 0;
    GenDec := Suma mod 9;
  End;

Function GenCen(C:longint) : integer;
  Var Suma:integer;
  Begin
    Suma := 0;
    repeat
      if C mod 10 mod 2 = 0 then
         Suma := Suma + C mod 10;
      C    := C div 10;
    until C = 0;
    GenCen := Suma mod 7;
  End;

Function GenUMi(C:longint) : integer;
  Var Prod: longint;
      Dmas: integer;
  Begin
    Prod := 1;
    repeat
      if C mod 10 <> 0 then
         Prod := Prod * (C mod 10);
      C    := C div 10;
    until C = 0;

    repeat
      Dmas := Prod mod 10;
      Prod := Prod div 10;
    until Prod = 0;

    GenUMi := Dmas;
  End;

Begin
  clrscr;
  write('Introduzca su No. '); read(CI);

  D0 := GenUni(CI);
  D1 := GenDec(CI);
  D2 := GenCen(CI);
  D3 := GenUMi(CI);  

  Clave := D3*1000+D2*100+D1*10+D0;

  writeln('Su clave es ',Clave,' Gracias por usar nuestro servicio');

  readkey;
end.

Program Divisores;
  uses crt;
  Var N,I,C:longint;

Function ConDiv(X:longint) : longint;
  Var C,I: longint;
  Begin
    C := 1;
    For I:= 1 to X div 2 do
        if X mod I = 0 then
           C := C + 1;
    ConDiv := C;
  End;


Begin
  clrscr;
  write('Introduzca el Numero: '); read(N);

  For I := 1 to N do
    if ConDiv(I) <= 2 then
       write(I,'  ');

  readkey;
end.