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

[hanipino]

DeltaAziz لا يازال التمرين لم يبرد بعد ... لا تضحك على طريقتى ... بالرغم من انى معها من الصباح

PHP كود :

var
I,Y,S,Z,L,Count2:integer;
LblStr:Array [0..1000]of Integer;
Str:String;
begin
Y:=StrToInt(edit1.Text);
for I :=  0 to Y do
 begin
  if S < 1 then Break;
    S:=(Y div 2);
    Z:=(Y mod 2);
    If Z=0 then L:=0 else L:=1;
    LblStr[I]:= L;
    Y:=S;
    Count2:=I;
 end;
For I:=0 to Count2 do
Str:=Str+IntToStr(LblStr[I]);
Label1.Caption:=Str;
end;