elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: [1]
1  Media / Juegos y Consolas / Donde consigo éste juego de ruleta de casino. Ayuda por favor en: 10 Julio 2016, 02:59
Hola a todos, espero que se encuentren muy bien física y mentalmente jeje, mi problema es que no logro conseguir un juego de la ruleta de la suerte, de la que se usa en los casino, les dejo un link con un video de ésta ruleta. espero que me ayuden:

https://www.youtube.com/watch?v=OATI3ZgjZdQ&feature=youtu.be
2  Sistemas Operativos / Windows / Re: Duda sobre la resolución de pantalla compatible con windows 7 64 bits en: 6 Agosto 2014, 22:32
Muchas gracias Senior++, aunque es para una minilaptop, ya revise y si tiene todos los requisitos, exepto esa duda que tenía. Bueno esperemos como funciona.
3  Sistemas Operativos / Windows / Duda sobre la resolución de pantalla compatible con windows 7 64 bits en: 6 Agosto 2014, 22:20
Hola a todos, mi pregunta es si la resolución de pantalla tiene que ver para instalar windows 7 de 64 bits, es que un amigo me informo que la resolución de pantalla no es la misma para windows de 32 bits, pero he buscado en google respuestas sobre esto y en los foros que he consultado, no hablan nada de la resolción de la pantalla.

Que dicen Ustedes?
Agradezco sus respuestas u opiniones.
4  Programación / Programación C/C++ / Re: AYUDA con este registro con matrices en: 5 Noviembre 2013, 16:49
Muchas gracias Amigo, lo probare y veré si funciona.
5  Programación / Programación C/C++ / AYUDA con este registro con matrices en: 4 Noviembre 2013, 02:01
El registro me corre, pero no me muestra los datos almacenados en el void mostrar, ayuda por favor. Asi empieza:

#include <iostream>
#include <stdlib.h>

using namespace std;
int ce,cv;

void ingresar (struct carros registro[500][8]);
void consultar(struct carros registro[500][8])  ;
void reporteganancia(struct carros registro[500][8])  ;
void ventas (struct carros registro[500][8]);
void mostrar(struct carros registro[500][8])  ;

struct carros
{
char placa[20];
char mod[20];
char marca[20];
char color[20];
char mes[20];
float precio;
};


int main(){
    struct carros registro[500][8];
int opcion;
do
{
cout<<" Menu Principal "<<endl;  
     cout<<"1 ingresar"<<endl;    
     cout<<"2 consultar"<<endl;    
     cout<<"3 reporteganancia"<<endl;    
     cout<<"4 ventas"<<endl;  
     cout<<"5 mostrar"<<endl;    
     cout<<"6 salir"<<endl;
cout<<"indique la opcion"<<endl;
cin>>opcion;
    
switch (opcion){  
  case 1:
     system("cls");
     ingresar (registro);
       break;      
  case 2:
     system("cls");
     consultar (registro);
       break;
  case 3:  
     system("cls");
     reporteganancia (registro);
       break;
   case 4:  
    system("cls");
     ventas (registro);
       break;
    
      case 5:  
       system("cls");
        mostrar (registro);
       break;
      
      }
}while (opcion <= 6);              
}

void ingresar (struct carros registro[500][8]){  
  char placa[20],mod[20],marca[20],color[20],mes[20];
  double precio;
  int x;
  
   cout<<"catidad de carro de entrada "<<endl;
   cin>>ce;
  
      for (int x=0; x<ce ; x++){  
    
          cout<<"registro "<<x+1<<endl;
          cout<<"ingrese placa"<<endl;
          cin>>placa;
          registro
  • [1].placa;

          cout<<"ingrese modelo"<<endl;
          cin>>mod;
          registro
  • [2].mod;

          cout<<"ingrese marca"<<endl;
          cin>>marca;
          registro
  • [3].marca;

          cout<<"ingrese color"<<endl;
          cin>>color;
          registro
  • [4].color;
         
          cout<<"ingrese mes"<<endl;
          cin>>mes;
          registro
  • [5].mes;
         
          cout<<"ingrese precio"<<endl;
          cin>>precio;
          registro
  • [6].precio;
     system("cls");    
}
}
void consultar(struct carros registro[500][8]){
int x,encon,posi,opc;
char placab;
 
 do{
encon=0;
posi=1;
cout<<"consultar placa"<<endl;

for (int x=0; x<ce ; x++){

if (placab= registro
  • [1].placa
  • )
{
            
encon=1;
posi=x;
}
}
if (encon=0){
 cout<<"no encontro placa en posicion  "<<posi<<endl;
}
else
{
cout<<"  encontro placa en posicion   "<<posi<<endl;
cout<<"  desea buscar otra placa  "<<endl;
cin>>opc;
}
}while (opc=0);
}
void reporteganancia(struct carros registro[500][8]){
 int cv,pv,gananciasalida,gananciatotal;    
 int ce,pe,gananciaentrada;    
    
     cout<<"cuantos carros entraron"<<endl;
     cin>>ce;
     cout<<"cuanto costo el carro de entrada"<<endl;
     cin>>pe;
     gananciaentrada=(ce*pe);
     cout<<" la ganancia de entrada es: "<<gananciaentrada<<endl;
      
     cout<<endl;
    
     cout<<"cuantos carros se vendieron"<<endl;
     cin>>cv;
     cout<<"en cuanto se vendio"<<endl;
     cin>>pv;
     gananciasalida=(cv*pv);
     cout<<"la ganancia de salida es: "<<gananciasalida<<endl;
  
    gananciatotal=(gananciasalida-gananciaentrada);
    cout<<endl;
    cout<<"ganancia total es: "<<gananciatotal;
    cin>>gananciatotal;
    }  
    
    
void ventas (struct carros registro[500][8]){
}

void mostrar(struct carros registro[500][8]){
int x;
   for (int x=1; x<ce; x++){
        
         cout<<"placa:  "<<registro
  • [1].placa<<endl;
        cout<<"modelo: "<<registro
  • [2].mod<<endl;
        cout<<"marca:  "<<registro
  • [3].marca<<endl;
        cout<<"color:  "<<registro
  • [4].color<<endl;
        cout<<"mes:    "<<registro
  • [5].mes<<endl;
        cout<<"precio: "<<registro
  • [6].precio<<endl;
}
system("pause");
}
6  Programación / Ejercicios / AYUDA con procedimientos en pascal en: 30 Junio 2013, 03:10
Ayuda con los procedimientos de ordenar y modificar, no los entiendo bien.

program registro(input,output);
uses crt;
const numpersona=3;
type
   carasteristica=record
   cedula,edad,telefono:integer;
   apellido,nombre,nacionalidad:string;
end;

lista=Array[1..numpersona] of carasteristica;
var personas:lista; var cant:integer;

procedure insertar(var personas:lista; var cant:integer);

var ced,ed,tel,x:integer;
var ape,nom,nac:string;
var encontrado:integer;
begin

    encontrado:=0;
    writeln('ingrese cedula');
    readln(ced);
      if (cant=0) then
          encontrado:=0
      else
          for x:=1 to cant do
               begin
               if (ced=personas
  • .cedula) then
                  begin
                     encontrado:=1;

                  end;
                 end;
            
    if (encontrado=0) then
       begin
            cant:=cant+1;
           writeln('ingrese cedula');
           readln(ced);
           writeln('ingrese nombre');
           readln(nom);
           writeln('ingrese edad');
           readln(ed);
           writeln('ingrese nacionalidad');
           readln(nac);
           writeln('ingrese telefono');
           readln(tel);

            personas[cant].cedula:=ced;
            personas[cant].apellido:=ape;
            personas[cant].nombre:=nom;
            personas[cant].edad:=ed;
            personas[cant].nacionalidad:=nac;
            personas[cant].telefono:=tel;

       end
    else
        writeln(' Registro ya existe ');
  end;

procedure mostrar(var personas:lista; var cant:integer);
 var x: integer;
 begin
  for x:=1 to cant do
  writeln(' cedula: ',personas
  • .cedula,' apellido: ',personas
  • .apellido,' nombre: ',personas
  • .nombre,' edad: ',personas
  • .edad,' nacionalidad: ',personas
  • .nacionalidad,' telefono: ',personas
  • .telefono);
readkey;
 end;
begin
end.

procedure ordenar(var personas:lista; var cant:integer);
var x,y,z,valor:integer;
var aux:dat;

   for x:=1 to cant do
     begin








procedure modificar(var personas:lista; var cant:integer);
var x,valor,encon,posicion,nuevodat:integer;
var opcion:string;

begin
repeat
      clrscr;
      encon:=0;
personas
  • .cedula:=nuevodat;
     writeln('ingrese valor a modificar');
      readln(valor);
           for x:=1 to cant do
           if (valor= personas
  • .cedula)then
          begin
7  Programación / Ejercicios / AYUDA en: 30 Junio 2013, 02:43
Ayuda con este ejercicio, no corre porque el array de registro esta lleno, que hago?

program registro(input,output);
uses crt;
const numpersona=3;
type
   carasteristica=record
   cedula,edad,telefono: integer;
   apellido,nombre,sexo,nacionalidad: string;
end;

lista=Array[1..numpersona] of carasteristica;
var personas:lista; var cant:integer;

procedure insertar(var personas:lista; var cant:integer);

var ced,ed,tel,x:integer;
var ape,nom,nac:string;
var encontrado:integer;
begin
     encontrado:=0;
    writeln('ingrese cedula');
    readln(ced);
      if (cant=0) then
          encontrado:=0
      else
          for x:=1 to cant do
               begin
               if (ced=personas
.cedula) then
                  begin
                     encontrado:=1;

                  end;
                 end;
            
    if (encontrado=0) then
       begin
            cant:=cant+1;
           writeln('ingrese apellido');
           readln(ape);
           writeln('ingrese nombre');
           readln(nom);
           writeln('ingrese edad');
           readln(ed);
           writeln('ingrese nacionalidad');
           readln(nac);
           writeln('ingrese telefono');
           readln(tel);

            personas[cant].cedula:=ced;
            personas[cant].apellido:=ape;
            personas[cant].nombre:=nom;
            personas[cant].edad:=ed;
            personas[cant].nacionalidad:=nac;
            personas[cant].telefono:=tel;

       end
    else
        writeln(' Registro ya existe');
  end;

procedure mostrar(var personas:lista; var cant:integer);
 var x: integer;
 begin
  for x:=1 to cant do
  writeln(' cedula: ',personas
.cedula,' apellido: ',personas
.apellido,' nombre: ',personas
.nombre,' edad: ',personas
.edad,' nacionalidad: ',personas
.nacionalidad,' telefono: ',personas
.telefono);
readkey;
 end;
begin

end.

procedure ordenar(var personas:lista; var cant:integer);
var x,y,z:integer;
var aux:dat;
begin
   for x:=1 to cant do
     begin
     for y:=x+1 to cant do
       begin
       if personas
>cant[y] then
          for z:=1 to cant do
             begin
                aux
:=cant[z];
                cant[z]:=cant[y];
                cant[y]:=aux[z];
              end;
           end;
        end;
     end;

procedure modificar(var personas:lista; var cant:integer);
var x,valor,encon,posicion,nuevodat:integer;
var opcion:string;

begin
repeat
      clrscr;
      encon:=0;
      writeln('ingrese valor a modificar');
      readln(valor);
           for x:=1 to cant do
           begin
           if (valor= personas
.cedula)then
           begin
                encon:=1;
                posicion:=x;
           end;
          end;

    if encon=0 then
    writeln('dato no encontrado')
     else
       begin
         for x:=posicion to cant do
             personas
.cedula:=cant[nuevodat];
            end;

    writeln('ingrese nueva dato');
    readln(nuevodat);
    personas
.cedula:=cant[nuevodat];

    writeln('desea buscar otra opcion');
    readln(opcion);
    until (opcion='n') or (opcion='N');
end;

procedure buscar(var personas:lista; var cant:integer);
var valor:integer;
var x,encontrado:integer;
var opcion:string;
begin
repeat
clrscr;
encontrado:=0;
writeln('ingrese valor a buscar');
readln(valor);

    for x:=1 to cant do
begin
    if (valor= personas
.cedula) then
begin
    encontrado:=1;
       end;
     end;

if encontrado=0 then
writeln('no encontrado');
else
begin
writeln('valor encontrado',valor);
writeln('desea buscar otro?');
end;
readln(opc);
until (opc='n') or opc(='N');
end;

procedure eliminar(var personas:lista; var cant:integer);
var x,i,encontrado,posicion,cedula:integer;
var opci,valor:string;

begin
repeat
      clrscr;
      encontrado:=0;
      writeln('eliminar valor');
      readln(valor);

      for x:=1 to cant do
      if (valor= personas
.cedula) then
begin
      encontrado:=1;
      posicion:=x;
   end;
      if encontrado=0 then
         writeln('datos no encotrados')
      else
           for x:=posicion to cant do
begin
               personas
.cedula:=cant[x+1,1];
               personas
.cedula:=cant[x+1,2];
               personas
.cedula:=cant[x+1,3];
               personas
.cedula:=cant[x+1,4];
               personas
.cedula:=cant[x+1,5];
           end;

personas[x,1]:='';
personas[x,2]:='';
personas[x,3]:='';
personas[x,4]:='';
personas[x,5]:='';
writeln('Quiere borrar otra fila');
readln(opci);
until opci='n';
end;

var opcion:integer;
begin
repeat
clrscr;
       writeln('menu principal');
       writeln('1 insertar');
       writeln('2 mostrar');
       writeln('3 ordenar');
       writeln('4 modificar');
       writeln('5 buscar');
       writeln('6 eliminar');
       writeln('7 salir');
repeat
      readln (opcion);
until (opcion >0) and (opcion <8);
clrscr;
case (opcion) of
1:insertar(personas);
2:mostrar(personas);
3:ordenar(personas);
4:modificar(personas);
5:buscar(personas);
6:eliminar(personas);
end;
until opcion=7;
readkey;
end.
8  Programación / Ejercicios / Re: Registros en Pascal en: 29 Junio 2013, 03:40
Ayuda con este ejercicio, no corre porque el array de registro esta lleno, que hago?

program registro(input,output);
uses crt;
const numpersona=3;
type
   carasteristica=record
   cedula,edad,telefono: integer;
   apellido,nombre,sexo,nacionalidad: string;
end;

lista=Array[1..numpersona] of carasteristica;
var personas:lista; var cant:integer;

procedure insertar(var personas:lista; var cant:integer);

var ced,ed,tel,x:integer;
var ape,nom,nac:string;
var encontrado:integer;
begin
     encontrado:=0;
    writeln('ingrese cedula');
    readln(ced);
      if (cant=0) then
          encontrado:=0
      else
          for x:=1 to cant do
               begin
               if (ced=personas
  • .cedula) then
                  begin
                     encontrado:=1;

                  end;
                 end;
            
    if (encontrado=0) then
       begin
            cant:=cant+1;
           writeln('ingrese apellido');
           readln(ape);
           writeln('ingrese nombre');
           readln(nom);
           writeln('ingrese edad');
           readln(ed);
           writeln('ingrese nacionalidad');
           readln(nac);
           writeln('ingrese telefono');
           readln(tel);

            personas[cant].cedula:=ced;
            personas[cant].apellido:=ape;
            personas[cant].nombre:=nom;
            personas[cant].edad:=ed;
            personas[cant].nacionalidad:=nac;
            personas[cant].telefono:=tel;

       end
    else
        writeln(' Registro ya existe');
  end;

procedure mostrar(var personas:lista; var cant:integer);
 var x: integer;
 begin
  for x:=1 to cant do
  writeln(' cedula: ',personas
  • .cedula,' apellido: ',personas
  • .apellido,' nombre: ',personas
  • .nombre,' edad: ',personas
  • .edad,' nacionalidad: ',personas
  • .nacionalidad,' telefono: ',personas
  • .telefono);
readkey;
 end;
begin

end.

procedure ordenar(var personas:lista; var cant:integer);
var x,y,z:integer;
var aux:dat;
begin
   for x:=1 to cant do
     begin
     for y:=x+1 to cant do
       begin
       if personas
  • >cant[y] then
          for z:=1 to cant do
             begin
                aux
  • :=cant[z];
                cant[z]:=cant[y];
                cant[y]:=aux[z];
              end;
           end;
        end;
     end;

procedure modificar(var personas:lista; var cant:integer);
var x,valor,encon,posicion,nuevodat:integer;
var opcion:string;

begin
repeat
      clrscr;
      encon:=0;
      writeln('ingrese valor a modificar');
      readln(valor);
           for x:=1 to cant do
           begin
           if (valor= personas
  • .cedula)then
           begin
                encon:=1;
                posicion:=x;
           end;
          end;

    if encon=0 then
    writeln('dato no encontrado')
     else
       begin
         for x:=posicion to cant do
             personas
  • .cedula:=cant[nuevodat];
            end;

    writeln('ingrese nueva dato');
    readln(nuevodat);
    personas
  • .cedula:=cant[nuevodat];

    writeln('desea buscar otra opcion');
    readln(opcion);
    until (opcion='n') or (opcion='N');
end;

procedure buscar(var personas:lista; var cant:integer);
var valor:integer;
var x,encontrado:integer;
var opcion:string;
begin
repeat
clrscr;
encontrado:=0;
writeln('ingrese valor a buscar');
readln(valor);

    for x:=1 to cant do
begin
    if (valor= personas
  • .cedula) then
begin
    encontrado:=1;
       end;
     end;

if encontrado=0 then
writeln('no encontrado');
else
begin
writeln('valor encontrado',valor);
writeln('desea buscar otro?');
end;
readln(opc);
until (opc='n') or opc(='N');
end;

procedure eliminar(var personas:lista; var cant:integer);
var x,i,encontrado,posicion,cedula:integer;
var opci,valor:string;

begin
repeat
      clrscr;
      encontrado:=0;
      writeln('eliminar valor');
      readln(valor);

      for x:=1 to cant do
      if (valor= personas
  • .cedula) then
begin
      encontrado:=1;
      posicion:=x;
   end;
      if encontrado=0 then
         writeln('datos no encotrados')
      else
           for x:=posicion to cant do
begin
               personas
  • .cedula:=cant[x+1,1];
               personas
  • .cedula:=cant[x+1,2];
               personas
  • .cedula:=cant[x+1,3];
               personas
  • .cedula:=cant[x+1,4];
               personas
  • .cedula:=cant[x+1,5];
           end;

personas[x,1]:='';
personas[x,2]:='';
personas[x,3]:='';
personas[x,4]:='';
personas[x,5]:='';
writeln('Quiere borrar otra fila');
readln(opci);
until opci='n';
end;

var opcion:integer;
begin
repeat
clrscr;
       writeln('menu principal');
       writeln('1 insertar');
       writeln('2 mostrar');
       writeln('3 ordenar');
       writeln('4 modificar');
       writeln('5 buscar');
       writeln('6 eliminar');
       writeln('7 salir');
repeat
      readln (opcion);
until (opcion >0) and (opcion <8);
clrscr;
case (opcion) of
1:insertar(personas);
2:mostrar(personas);
3:ordenar(personas);
4:modificar(personas);
5:buscar(personas);
6:eliminar(personas);
end;
until opcion=7;
readkey;
end.


Páginas: [1]
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines