[تمرين] التحويل من النظام العشري الى النظام الثنائى

[hanipino]

تعديل على طريقتى . على حسب الدروس المقدمة .

PHP كود :

Function SystemBinary(Binary:Integer):String;
var
I,S,Z,L:Integer;
LblStr:Array of Word;
begin
 Result:='';
 for I :=  0 to Binary do
   begin
     SetLength(LblStr,I+1);
     S:=(Binary div 2);
     Z:=(Binary mod 2);
     If Z=0 then L:=0 else L:=1;
     LblStr[I]:= L;
     Binary:=S;
     if S < 1 then Break;
   end;
 For I:=High(LblStr) Downto 0 do
 Result:=Result+IntToStr(LblStr[I]);
end;