Feliz dia del Programador

[[Chris]]

Felicidades a todos los colegas y unque sea una profesión esteriotipada estoy orgulloso de ser un programador.

[[Chris]]

1000110 1100101 1101100 1101001 1100011 1101001 1100100 1100001 1100100 1100101 1110011 100001

[Paoti]

pues me apetece un "lady cocaine" o una cerveza Pacifico (ejem, varias,) servidas en una "chavela" .....


chavela:
http://www.productosregios.com/vidrio/vaso_copa.jpg



y una caldito de camarón con su respectiva salza tamazula

salsa:
http://www.importacionescuesta.com/imagenes/VA330.JPG

P.S. El Mariachi llega en cuanto Egostar lleve por lo menos doce cervezas.....


P.S. Ya es Jueves, fin de semana, que rico. Este fin si me voy a poner algo "pedo" ya lo necesito.


"pedo": alcoholizado, borrachin, happy, incrospido.


P.S. ¡Viva el Programador!, ¡Viva México cab......! ajúa.....

[marcoszorrilla]

Este es el último esfuerzo:
65 01000001
66 01000010
67 01000011
68 01000100
69 01000101
70 01000110
71 01000111
72 01001000
73 01001001
74 01001010
75 01001011
76 01001100
77 01001101
78 01001110
79 01001111
80 01010000
81 01010001
82 01010010
83 01010011
84 01010100
85 01010101
86 01010110
87 01010111
88 01011000
89 01011001
90 01011010
91 01011011
92 01011100
93 01011101
94 01011110
95 01011111

Jeje con trampa.

Hoja de cálculo:=DEC.A.BIN(A50;8)

Un Saludo dicotómico binario.

[[egostar]]

Empezado por marcoszorrilla

Este es el último esfuerzo:
65 01000001
66 01000010
67 01000011
68 01000100
69 01000101
70 01000110
71 01000111
72 01001000
73 01001001
74 01001010
75 01001011
76 01001100
77 01001101
78 01001110
79 01001111
80 01010000
81 01010001
82 01010010
83 01010011
84 01010100
85 01010101
86 01010110
87 01010111
88 01011000
89 01011001
90 01011010
91 01011011
92 01011100
93 01011101
94 01011110
95 01011111

Jeje con trampa.

Hoja de cálculo:=DEC.A.BIN(A50;8)

Un Saludo dicotómico binario.

No amigo marcoszorrilla eso no se vale, debiste haber hecho un programa con delphi,

Salud OS

[[maeyanes]]

Feliz día a todos...

[marcoszorrilla]

96 = 001100000
97 = 001100001
98 = 001100010
99 = 001100011
100 = 001100100
101 = 001100101
102 = 001100110
103 = 001100111
104 = 001101000
105 = 001101001
106 = 001101010
107 = 001101011
108 = 001101100
109 = 001101101
110 = 001101110
111 = 001101111
112 = 001110000
113 = 001110001
114 = 001110010
115 = 001110011
116 = 001110100
117 = 001110101
118 = 001110110
119 = 001110111
120 = 001111000
121 = 001111001
122 = 001111010
123 = 001111011
124 = 001111100
125 = 001111101
126 = 001111110

Antes de que venga Seoane:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:LongInt;
begin
  For n:=96 to 126 do
  begin
  Memo1.Lines.Add(IntToStr(n)+' = '+IntToBin(n,8));
  end;
end;

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
  Result:='';
  for i:=Size downto 0 do
  begin
    if Value and (1 shl i)<>0 then
      Result:=Result+'1'
    else
      Result:=Result+'0';
  end;
end;

Un Saludo.

[[egostar]]

Empezado por marcoszorrilla

96 = 001100000
97 = 001100001
98 = 001100010
99 = 001100011
100 = 001100100
101 = 001100101
102 = 001100110
103 = 001100111
104 = 001101000
105 = 001101001
106 = 001101010
107 = 001101011
108 = 001101100
109 = 001101101
110 = 001101110
111 = 001101111
112 = 001110000
113 = 001110001
114 = 001110010
115 = 001110011
116 = 001110100
117 = 001110101
118 = 001110110
119 = 001110111
120 = 001111000
121 = 001111001
122 = 001111010
123 = 001111011
124 = 001111100
125 = 001111101
126 = 001111110

Antes de que venga Seoane:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var n:LongInt; begin For n:=96 to 126 do begin Memo1.Lines.Add(IntToStr(n)+' = '+IntToBin(n,8));
end;
end;

function IntToBin(Value: LongInt;Size: Integer): String;
var i: Integer; begin Result:='';
for i:=Size downto 0 do begin if Value and (1 shl i)<>0 then Result:=Result+'1' else Result:=Result+'0';
end;
end;



Un Saludo.

A muy bien, asi ya se agradece

Salud OS

[[marceloalegre]]

Empezado por marcoszorrilla

Antes de que venga Seoane:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:LongInt;
begin
For n:=96 to 126 do
begin
Memo1.Lines.Add(IntToStr(n)+' = '+IntToBin(n,8));
end;
end;

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Size downto 0 do
begin
if Value and (1 shl i)<>0 then
Result:=Result+'1'
else
Result:=Result+'0';
end;
end;





Un Saludo.

Vamos a poner antes el intToBin asi le compila a todo el mundo, y de paso le hacemos un cambio para mejorarlo. (una linea de codigo menos jajajajaj)

Código Delphi [-]
function IntToBin ( value: LongInt; digits: integer ): string;
begin
    result := StringOfChar ( '0', digits ) ;
    while value > 0 do begin
      if ( value and 1 ) = 1 then
        result [ digits ] := '1';
      dec ( digits ) ;
      value := value shr 1;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
n:LongInt;
begin
  For n:=96 to 126 do
  begin
  Memo1.Lines.Add(IntToStr(n)+' = '+IntToBin(n,8));
  end;
end;

Jajaja y si,,, hay que festejar con codigo sin sentido!. Saludos.

[*Caro*]

Que bueno que tengamos un dia especial, mil felicidas a todos incluyendome, y que la pasen super bien en nuestro dia.

Empezado por Paoti

P.S. Ya es Jueves, fin de semana, que rico. Este fin si me voy a poner algo "pedo" ya lo necesito.

No sabia que esa palabrita también significaba lo que dijiste, ya me estaba imaginando otra cosa .

Muchas gracias por los chocolates hecjona y felicidades por el nacimiento de tu hijita.

Saluditos

[[poliburro]]

Pues vayamos por el tequila y el brandy que es día de celebrar.

mmm, deberiamos considerar este día como celebración religiosa para que se nos de como día libre jejejejeje.

[jandok238]

Pues aunque apenas ando iniciando en el FORO, mas no en el mundo de la programacion, me agrego a las FELICITACIONES.... Felicidades para todos...

Y hay que apoyar la idea de POLIBURRO

Empezado por poliburro

mmm, deberiamos considerar este día como celebración religiosa para que se nos de como día libre jejejejeje.