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

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.

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.

Muchas gracias Amigo, lo probare y veré si funciona.

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");
}

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

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.

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.