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!
Si lo hubieses puesto en Programacion segurito encuentras quien te ayude amigo, si Waldo puede que lo pase al sub-foro Programacion.
Un mensaje, una ayuda, en el 1er subforo que ve como si nada
Gracias... Lo que pasa es que soy nuevo, y todavia no la manejo tan bien los foros y otras cositas.... gracias de toda forma.