Título: Vector Suma Binaria en Delphi? Publicado por: SuViRaLeS en 13 Junio 2011, 15:16 pm 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! |