Mensajes

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.