Feliz dia del Programador

[[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

[[Caral]]

Hola
Me uno a la felicitación.
Que tengáis un buen día del programador.
Saludos

[dec]

We are the champions,
We are the champions!
We are the champions!
We are the champions!!

PD. Congratulations a todos.

[hecjona]

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija.

[[FGarcia]]

Bueno que no sea por eso!!!

Faltaba mas!!!

¡¡¡FELICIDADES A TODOS LOS PROGRAMADORES!!!

CANTINERO!!!! ¡Tequila para todos!

[[maeyanes]]

Empezado por hecjona

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija.

Felicidades por la nueva integrante en tu familia...

[[fer21unmsm]]

Empezado por hecjona

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija.

Tambien te envío mis felicitaciones por tu hijita recien nacida man, en vez de chocolate nos comemos unos chicharrones de chancho, jeje

[jhonny]

Empezado por hecjona

Cyber Cantinero !!!Tequila y chocolates para todos!!!!!! Que yo pago.

El Tequila por el dia del Programador y los chocolates por mi recien nacida hija.

Caramba¡¡¡, pues dobles felicidades hecjona .

[[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.

[[BlueSteel]]

se me habia pasado este hilo... todo por estar en curso...jaja

bueno.. me autofelicito.. e hago extensiva las felicitaciones para todos ...

[[eduarcol]]

Felicidades a Hector por los mil, a hecjona por su hija y a todos nosotros por programar(vamos que no es tan faciil como parece, no programa entender a los usuarios es lo dificil)

[Ñuño Martínez]

Os dejo solos un día y me montáis una bacanal de órdago, y encima no avisáis. Voy a aprovechar que hay dos invitadores, por el día y por nacimiento (hecjona, aprovecha que es pequeña que luego crecen ), y me voy a tomar algo.

[hics] Velididadessss a dodosssss... [/hics]

[sakuragi]

VIVA!!!!!!!