elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ejercicios
| | | |-+  Vector Suma Binaria en Delphi?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Vector Suma Binaria en Delphi?  (Leído 3,975 veces)
SuViRaLeS

Desconectado Desconectado

Mensajes: 3


Ver Perfil
Vector Suma Binaria en Delphi?
« 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!


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Bomba binaria
Ingeniería Inversa
Magic_Key 2 3,251 Último mensaje 3 Marzo 2010, 17:16 pm
por Magic_Key
busqueda binaria
Programación C/C++
Sunshine66 3 3,888 Último mensaje 6 Mayo 2010, 07:42 am
por Akai
Busqueda binaria.
Java
NetJava 6 8,302 Último mensaje 28 Marzo 2011, 18:20 pm
por NetJava
Vector Suma Binaria en Delphi... No sé como hacerlo?
Dudas Generales
SuViRaLeS 3 4,385 Último mensaje 13 Junio 2011, 15:10 pm
por SuViRaLeS
Suma de vector
Java
eduardoemen 4 2,206 Último mensaje 11 Septiembre 2013, 14:27 pm
por eduardoemen
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines