mik hỏi rất nhìu câu thầy mik ra bài nhìu quá ( đổi số nhị phân sang số thập phân)

0 bình luận về “mik hỏi rất nhìu câu thầy mik ra bài nhìu quá ( đổi số nhị phân sang số thập phân)”

1. function thapp(s:string): longint;

   var i:longint;
    begin
           Thapp:=1;
           for i:=2 to length(s) do
           if s[i]=’0′ then

                  Thapp:=thapp*2
          else

                  thapp:=thapp*2+1;
   end;

   Bình luận

2. function doihe10(s:string):longint;
   var i:longint;
    begin
    doihe10:=1;
    for i:=2 to length(s) do
    if s[i]=’0′ then doihe10:=doihe10*2
    else doihe10:=doihe10*2+1;
   end;

   chúc bn hc tốt # kha @@@

   Bình luận