funcion de conjuntos,interseccion, union...

[sakuragi]

hola que tal

alguien sabe si delphi tiene una funcion para sacar la interseccion, union, diferencia etc. de los conjuntos, de matematicas discretas?


gracias

saludos

[roman]

Delphi tiene el tipo de datos set. Busca en la ayuda acerca de él. También busca "set operators" y verás listados todos los operadores que puedes usar para este tipo de datos, incluidos los que mencionas.

// Saludos

[sakuragi]

muchas gracias roman lo investigare

[sakuragi]

estube leyendo la ayuda

dice que el signo "+" es union,"-" diferencia, "*" interseccion,

entonses acto seguido pase a probar.


con tres edit

Código Delphi [-]
 
 Er.text:=Ea.text + Eb.text;

este que es la union si funciona bien

ahora pase a probar la diferencia y la interseccion

Código Delphi [-]
 // diferencia
 Er.text:=Ea.text - Eb.text;
 
 //interseccion
 
 Er.text:=Ea.text * Eb.text;

es hambos casos me decia que la operacion no era el tipo

entonses decidi pasarlos a una bariable string.

Código Delphi [-]
 var
   a,b:string;
 begin
       a:=Ea.text;
       b:=Eb.text;
 
      Er.text:=a - b;
 // esta dos lineas estan en botones diferentes 
        Er.text:=a * b;
 
 end;

y me sigui marcando el mismo error. =S

despue sintente pasarlos a integer pero eso ya no es compatible.

o ahi un tipo especial para conjuntos?

saludos

gracias

[roman]

Empezado por sakuragi

o ahi un tipo especial para conjuntos?

Estee...

Empezado por yo mismo

Delphi tiene el tipo de datos set. Busca en la ayuda acerca de él.

Ahora, no te emociones mucho porque el tipo de datos set únicamente sirve para conjuntos cuyos elementos son enteros o de un tipo escalar. Por ejemplo,

Código Delphi [-]
type
  TDia = (Domingo, Lunes, Martes, Miercoles, Jueves, Viernes, Sabado);
  TDias = set of TDia;

Aquí TDia es un tipo escalar- que básicamente es un rango de enteros con un nombre apropiado para usar en código: Domingo - 0, Lunes - 1, Martes -2, etc.

TDias es un tipo de datos que puede almacenar conjuntos de días:

Código Delphi [-]
var
  DiasLaborales: TDias;
  FinDeSemana: TDias;

begin
  DiasLaborales := [Lunes..Viernes];
  FinDeSemana := [Sabado, Domingo];

  Assert(DiasLaborales*FinDeSemana = []);
end;

Los conjuntos los especificas listando sus elementos entre corchetes [] o indicando un rango (como en DiasLaborales).

En el ejemplo ves que la intersección de DiasLaborales y FinDeSemana es el conjunto vacío que representas en código por [].

Puedes declarar tipos de conjuntos (set of) para cualquier tipo escalar.

// Saludos

[sakuragi]

hola que tal de nuevo

ahi forma de pasar lo que tengo en un edit.text a un set?

Código Delphi [-]
 a:=[strtoint(Ea.text)];

asi lo puse y no me marco erro

ala hora de haser la operacion si =S

no se como regresar e resultado de los set's para mostrarlos en un edit

alguna sugerencia?

gracias

saludos