Ordenar componentes informáticos

TROLL Registrado: Nov 06, 2007 Mensajes: 1676

Hola compañer@s!
Mi consulta de hoy es acerca de cómo ordenar mis componentes informáticos, para que me aconsejéis puesto que por google no he encontrado mucho...
Yo soy muy ordenada y tengo toda mi ropa ordenada por colores y por temporadas, también todos los cajones, los complementos, pendientes, collares, bolsos, etc.... y tengo una caja en la cual guardo destornilladores, fuentes de alimentación, cables de todo tipo (usb, clavijas, cables de alimentación, cargadores, etc, etc, etc), routers, diversas piezas, y un sin fin de componentes! el caso es que la dichosa caja la tengo ordenada y guardada dentro del armario y me gustaría tenerlo todo más a mano, sobretodo las herramientas que utilizo para armar y desarmar, poner, quitar y cosas así.... sería como la típica caja de herramientas del mítico fontanero, pero la quiero en versión chica, mas guay y molona jeje, que aconsejáis, mariconera, maletín, maleta tipo portátil......?? alguien que utilice algún bolsico pa llevar sus herramientas y las cosas que más se utilizan como usb, micros, web cam, destornilladores, wifis, auriculares, etc que me aconseje!
Gracias, espero vuestras opiniones, saludos!

Publicado: Martes 09 Febrero 2010, 21:58

Si quieres te hago un algoritmo de ordenación en pascal que funciona chachi piruli, lo puedo poner de color rosa si quieres.

Publicado: Martes 09 Febrero 2010, 22:01

Bron escribió:

Si quieres te hago un algoritmo de ordenación en pascal que funciona chachi piruli, lo puedo poner de color rosa si quieres.

Ordenamiento por el método de la burbuja.

Risa

ZoNeR@ EnGanChAUUuU Registrado: Nov 07, 2009 Mensajes: 724

Jope, como os pasáis con la pobre Risa

Como explote veréis...

Publicado: Martes 09 Febrero 2010, 22:13

Mmm...no exactamente

Mira Amsat, te pongo el Algoritmo que debes poner en Pascal:

Código:

PROCEDURE muestra_ordenado_pendrives(VAR lista:tLista);
VAR
i,j,siguiente: integer;
aux:tpendrives;
BEGIN

FOR i:=1 TO tam DO
BEGIN
   FOR j:=1 TO (tam-i) DO
   BEGIN

      siguiente:=j+1;

      WHILE (NOT lista[siguiente].mascara) AND (siguiente<tam) DO
         inc(siguiente);

      IF (lista[j].pendrives>lista[siguiente].pendrives) THEN
      BEGIN
         aux:=lista[siguiente];
         lista[siguiente]:=lista[j];
         lista[j]:=aux;
      END;
   END;
END;

{Muestra los pendrives de Amsat ordenados}
WRITELN('Los pendrives ordenados son: ');
WRITELN;
FOR i:=1 TO tam DO
BEGIN
   IF(lista[i].mascara) THEN
   BEGIN
      mostrar_pendrives(lista[i]);
      WRITELN;
   END;
END;
END;

Aunque tienes que crear la lista con los pendrives, cables etc, luego pones este algoritmo cambiando unas pequeñas cositas y ya está, problema solucionao!!

Para el color Rosa, cuando hagas un writeLN arriba pones textcolor (5) y ya está!! Los pendrives ordenados y de color rosa.

Muy Contento

Publicado: Martes 09 Febrero 2010, 23:10

Yo te recomiendo para ordenarlo que utilices el algoritmo de la rueda.

Guiño

TROLL Registrado: Nov 06, 2007 Mensajes: 1676

Más pavos y no nacéis jajajajjajajajjaja
Axo pijos que estoy hablando en serio joder!

Moderador Registrado: Mar 19, 2008 Mensajes: 916

para las herramientas se me ocurre un maletin..y para los compoenentes en un cajon que tengas grande le pones separadores y colocas los componentes en los huecos...otra cosa no se me ocurre,,jeje

saludoss

TROLL Registrado: Nov 06, 2007 Mensajes: 1676

Gracias por el consejo Fexo! eres el único que me ha tomado en serio jeje
El tema este de ordenar componentes ha venido a cuento de que el otro día vi a un técnico informático con una mariconera y dentro la llevaba con destornilladores, pendrive's y chasis con cables y tal... y por eso me ha venido la inspiración de querer organizarrrrrrrrrrrr

Moderador Registrado: Mar 19, 2008 Mensajes: 916

jajajaj ke ordenanada...komo se nota que eres chica jejeje

estaria bien la mariconera esa estilo a la que llevan los peluqueros pero a saber donde la venden,,.puedes preguntar en tiendas de electronica..o en ultimo caso al hombre que la llevaba..

Muy Contento

saludoss

Publicado: Martes 09 Febrero 2010, 23:56

No es broma, con los algoritmos de planificación podrías tenerlo todo perfecto, Robin Round, el FIFO, su prima...

Bron escribió:

Pascal:

Código:

PROCEDURE muestra_ordenado_pendrives(VAR lista:tLista);
VAR
i,j,siguiente: integer;
aux:tpendrives;
BEGIN

FOR i:=1 TO tam DO
BEGIN
   FOR j:=1 TO (tam-i) DO
   BEGIN

      siguiente:=j+1;

      WHILE (NOT lista[siguiente].mascara) AND (siguiente<tam) DO
         inc(siguiente);

      IF (lista[j].pendrives>lista[siguiente].pendrives) THEN
      BEGIN
         aux:=lista[siguiente];
         lista[siguiente]:=lista[j];
         lista[j]:=aux;
      END;
   END;
END;

{Muestra los pendrives de Amsat ordenados}
WRITELN('Los pendrives ordenados son: ');
WRITELN;
FOR i:=1 TO tam DO
BEGIN
   IF(lista[i].mascara) THEN
   BEGIN
      mostrar_pendrives(lista[i]);
      WRITELN;
   END;
END;
END;

Qué bonita es la programación, qué poco la echo de menos Risa

Good night Guiño

TROLL Registrado: Nov 06, 2007 Mensajes: 1676

Fexo escribió:

jajajaj ke ordenanada...komo se nota que eres chica jejeje

estaria bien la mariconera esa estilo a la que llevan los peluqueros pero a saber donde la venden,,.puedes preguntar en tiendas de electronica..o en ultimo caso al hombre que la llevaba..

Muy Contento

saludoss

No tiene que ver nada el orden con ser chica, puesto que mis amigas son de lo peor en cuanto al orden jajajjajaja
y por aquí hay un forero que también es super ordenadooooooo
tendré que buscar al técnico y preguntarle a el!!!
pd. admito regalos que me compréis por ebay o algo así y que ponga el logotipo de adsl zone jejeje

Publicado: Miércoles 10 Febrero 2010, 8:45

Yo también admito coches, jets privados y un largo etcétera...si alguien me regala uno estaré encantado Muy Contento

PD: solido, ese algoritmo de ordenación hace maravillas.

Moderador Registrado: Mar 19, 2008 Mensajes: 916

odio la programacion... Triste

yo ordenado ordenado no soy...jajajajja tipico que si en el desorden le cambian algo no lo encuentra ese soy yo jejeje

TROLL Registrado: Nov 06, 2007 Mensajes: 1676

Bron escribió:

Yo también admito coches, jets privados y un largo etcétera...si alguien me regala uno estaré encantado Muy Contento

PD: solido, ese algoritmo de ordenación hace maravillas.

Fijón! envidioso! y malo malo malooooooooooooooo xD