Problème: conversion du décimal vers le DCB

Bonjour,

j'ai un problème je veux un programme en pascal qui convertit un nombre décimal vers le DCB (décimal codé en binaire)
sur 4 bits .j'ai réfléchi mais j'ai pas pu

1 réponse

  1. Salam,
    je vous donne la solution en algorithme :)

    x<--aléa(5000) + 1
    b<--""
    repeter
    r<-- x mod 2
    convch(r,c)
    b<-- c + b
    x<-- x div 2
    jusqu'à (x=0)
    b<--"0"+b
    valeur(b,y,e)
    ecrire(x,"(10)=",y,"(DCB))
    0