n đổi số thập phân sang số nhị phân

0 bình luận về “n đổi số thập phân sang số nhị phân”

1. function doihe2(a:integer):string;
   var t,i:integer;
   s,s1,doi:string;
   begin
    s:=”;
    while a<>0 do
    begin
    t:=a mod 2;
    str(t,s1);
    s:=s+s1;
    a:=a div 2;
    end;
    for i:=length(S) downto 1 do
    doihe2:=doihe2+s[i];
   end;

   kha đần độn # chúc bn hc tốt

   Bình luận

2. function nhip(n: word):string;

   var

          t, i: word;
         s, s2, doi: string;

      begin
           s:=”;
           while n<>0 do
              begin
                   t:=n mod 2;
                   str(t, s2);
                   s:=s+s2;
                   n:=n div 2;
              end;

          for i:=length(s) downto 1 do
          nhip:=nhip+s[i];
   end;

   Bình luận