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!

Un mensaje, una ayuda, en el 1er subforo que ve como si nada