Mensajes

Hola Necesito ayuda, mi Docente me pidió que toda esta codificación lo pase a Delphi y no sé cómo... supuestamente es suma binaria en vector.
en otras palabras introcuducimos número decimal y que nos devuelva el resultado a binario.
también tengo que hacer Resta Binaria, Multiplicación binaria, División Binaria.

Le agrege unas aclaraciones para hacerlo mas claro.
Program COMPLEMENTOA2;
USES crt;
TYPE
   numero= string[32];
   vector= array[1..32]of byte;
VAR
  N:numero;
  bits,D,f,h,i,j:longint;
  g:integer;{es solo pasa el posible error de la funcion VAL}
  V:vector;
Begin
    clrscr;
    D:=0;
    i:=0;
    writeln('ingrese el numero binario');
    readln(N);
    writeln('ingrese cantidad de bits a trabajar');
    readln(bits); {para definir el tope del vector}
    D:= length(N);  {cantidad de digitos ingresados}
    If D<bits then
       begin
          i:=bits;
            while d>=0 do
               begin
                val(n[d],f,g);
                V:=f;   {con esto lo que hago es agregar los ceros
                            para completar los bits (8,16,32)}
                D:=D-1;
                i:=i-1;
               end;
            for j:=1 to bits do
                begin
                    write(V[j]);
                end;
       end
    Else
       begin
            writeln('el numero es mayor a la cantidad de bits a trabjar');
       end;             {mostrar si se pasa del tope}
{------------------------------------------------}
{esto me sirve para cambiar los 1 por 0 y viceversa}
for h:=1 to bits do
begin
   If V[h]=1 then
    begin
     V[h]:=0;
    end
   else
    begin
     V[h]:=1;
   end;
  write(V[h]);
  end;
{------------------------------------------------}
{ahora no sé como codificarlo en DELPHI}
{mi idea es despues pasar esto a una funcion,
pero primero lo hago asi para ver si funciona}
readkey;
end.
bueno, espero tu respuesta, desde ya muchas gracias por tu tiempo.
saludoS!

Gracias... Lo que pasa es que soy nuevo, y todavia no la manejo tan bien los foros y otras cositas.... gracias de toda forma.

Hola Necesito ayuda, mi Docente me pidió que toda esta codificación lo pase a Delphi y no sé cómo... supuestamente es suma binaria en vector.
en otras palabras introcuducimos número decimal y que nos devuelva el resultado a binario.
también tengo que hacer Resta Binaria, Multiplicación binaria, División Binaria.

Le agrege unas aclaraciones para hacerlo mas claro.
Program COMPLEMENTOA2;
USES crt;
TYPE
    numero= string[32];
    vector= array[1..32]of byte;
VAR
   N:numero;
   bits,D,f,h,i,j:longint;
   g:integer;{es solo pasa el posible error de la funcion VAL}
   V:vector;
Begin
     clrscr;
     D:=0;
     i:=0;
     writeln('ingrese el numero binario');
     readln(N);
     writeln('ingrese cantidad de bits a trabajar');
     readln(bits); {para definir el tope del vector}
     D:= length(N);  {cantidad de digitos ingresados}
     If D<bits then
        begin
           i:=bits;
             while d>=0 do
                begin
                 val(n[d],f,g);
                 V:=f;   {con esto lo que hago es agregar los ceros
                             para completar los bits (8,16,32)}
                 D:=D-1;
                 i:=i-1;
                end;
             for j:=1 to bits do
                 begin
                     write(V[j]);
                 end;
        end
     Else
        begin
             writeln('el numero es mayor a la cantidad de bits a trabjar');
        end;             {mostrar si se pasa del tope}
{------------------------------------------------}
{esto me sirve para cambiar los 1 por 0 y viceversa}
for h:=1 to bits do
begin
    If V[h]=1 then
     begin
      V[h]:=0;
     end
    else
     begin
      V[h]:=1;
    end;
   write(V[h]);
   end;
{------------------------------------------------}
{ahora no sé como codificarlo en DELPHI}
{mi idea es despues pasar esto a una funcion,
pero primero lo hago asi para ver si funciona}
readkey;
end.
bueno, espero tu respuesta, desde ya muchas gracias por tu tiempo.
saludoS!