Décimal ( 0 à 63 ) en BCD ( 6bits)

Original

function DecToRoman(Decimal: Longint): string;
const
  Numbers: array[1..13] of Integer =
    (1, 4, 5, 9, 10, 40, 50, 90, 100,
    400, 500, 900, 1000);
  Romans: array[1..13] of string =
    ('I', 'IV', 'V', 'IX', 'X', 'XL',
    'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
var
  i: Integer;
begin
  Result := '';
  for i := 13 downto 1 do
    while (Decimal >= Numbers[i]) do
    begin
      Decimal := Decimal - Numbers[i];
      Result  := Result + Romans[i];
    end;
end;


//Example:
//Beispiel:

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := DecToRoman(5);
  Label2.Caption := DecToRoman(458);
end;


Modifié exemple:

function LineToBianry(Line: Integer): string;
const
  Lines: array[0..63] of Integer =
    (1, .. 63);

  Binary: array[0..63] of string =
    ('11000000', ..,'11111111');

var
  i: Integer;
begin
  Result := '';

//supplement
if Line>0 then begin
//fin rajout
  for i := 63 downto 1 do
    while (Line >= Lines[i]) do
    begin
      Line := Linel - Binary[i];
      Result  := Result + Binary[i];
LineToBianryValue:=Result;
    end;
end else
LineToBianryValue:='11000000';
end;








//Example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := LineToBinary(45);
end;

IF (x<0) OR (x>63) THEN ERROR() ELSE
VAR
  d, u : INTEGER;
BEGIN

  d = x DIV 10;

  u = x - d*10;
....
...
..
END;