PROGRAM DEBI; USES CRT; VAR A,B,X,Y,I,P:INTEGER; BEGIN CLRSCR; WRITELN ('ESCRIBA EL NUMERO QUE DESEA PASAR'); WRITELN ('DE DECIMAL A BINARIO'); READLN (A); IF A=1 THEN WRITELN ('1') ELSE BEGIN IF A=2 THEN WRITELN ('10') ELSE BEGIN P:=0; WHILE A<>0 DO BEGIN X:= A DIV 2; Y:=A MOD 2; FOR I:= P DOWNTO 1 DO WRITE (Y); P:=P+1; A:=X; END; END; END; END.
Blog en donde se tratan muchos temas que han sido de mi interés en algún momento. Un repositorio de ideas, conocimiento, experiencias, vivencias compartidas. De un individuo inquieto intelectualmente, que prefiere que todos tengan acceso a estos, a que se pierdan en la oscuridad de un disco duro de un ordenador.
24 enero 2017
Código de programa en Turbo pascal para convertir un numero de decimal a binario. (Por linea de comando)
Suscribirse a:
Enviar comentarios
(
Atom
)
2 comentarios :
https://youtu.be/M_c3y69v6gk
El ejercicio resuelto en Pascal
gracias por montar el vídeo corriendo el código fuente.. Saludos
Publicar un comentario