+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : [تمرين] التحويل من النظام العشري الى النظام الثنائى (/showthread.php?tid=350)
[تمرين] التحويل من النظام العشري الى النظام الثنائى - hanipino - 25-12-2008
انشاء برنامج لتحويل الاعداد من النضام العشرى (النضام الدى نعرفه نحن [0..9]) الى
النضام الثنائى (0 , 1) النضام التى تعرفه الالة .
مثلا العدد 6 :
PHP كود :
0 = 2/6 = 3
1 = 2/3 = 1
1 = 2/1 = 0
-----------
110 = 6
-----------
***********
لنتحقق :
=(4*1)+(2*1)+(1*0)
6 = 4 + 2 + 0
---------------------
1,2,4,8,16,32 ... الخ .
الاعداد من نوع Integer فقط .
[تمرين] التحويل من النظام العشري الى النظام الثنائى - محمد عبد العزيز - 25-12-2008
حل على السريع
PHP كود :
Function Int2Bin(x: Integer):String;
Var
s : String;
Begin
s:='';
repeat
case x mod 2 of
0 : s:='0'+ s;
1 : s:='1'+ s;
end;
x := x div 2;
until x=0;
Result :=s;
End;
[تمرين] التحويل من النظام العشري الى النظام الثنائى - محمد عبد العزيز - 25-12-2008
توفير قليل من الذاكرة بالاستغناء عن المتغير s
PHP كود :
Function Int2Bin(x: Integer):String;
Begin
result:='';
repeat
case x mod 2 of
0 : result:='0'+ result;
1 : result:='1'+ result;
end;
x := x div 2;
until x=0;
End;
[تمرين] التحويل من النظام العشري الى النظام الثنائى - hanipino - 25-12-2008
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;
[تمرين] التحويل من النظام العشري الى النظام الثنائى - محمد عبد العزيز - 25-12-2008
بالعكس اخي،
جيد انك تحاول وفي الاخير تجد طريقة تعطي نتيجة صحيحة
هذا هو المهم ولايهم كم من وقت امضيت او شيئ اخر
ملاحظة: لم تعلق على حلي ان كان صحيح او خطأ كونك صاحب التمرين
والسلام عليكم
[تمرين] التحويل من النظام العشري الى النظام الثنائى - STRELiTZIA - 25-12-2008
إقتباس :لا يازال التمرين لم يبرد بعد
من الأفضل ان تكون الحلول على صيغة Functions ليسهل تصديرها.
بالتوفيق ان شاء الله
[تمرين] التحويل من النظام العشري الى النظام الثنائى - hanipino - 26-12-2008
إقتباس :ملاحظة: لم تعلق على حلي ان كان صحيح او خطأ كونك صاحب التمرينالحل 100 % صحيح . صغير الحجم و مفيد . و تمت الاستفادة منه ان شاء الله .
إقتباس :من الأفضل ان تكون الحلول على صيغة Functions ليسهل تصديرها.تم تحويلها الى Functions .
PHP كود :
Function SystemBinary(Binary:Integer):String;
var
I,S,Z,L,Count2:integer;
LblStr:Array [0..1000]of Integer;
begin
Result:='';
for I := 0 to Binary do
begin
if S < 1 then Break;
S:=(Binary div 2);
Z:=(Binary mod 2);
If Z=0 then L:=0 else L:=1;
LblStr[I]:= L;
Binary:=S;
Count2:=I;
end;
For I:=0 to Count2 do
Result:=Result+IntToStr(LblStr[I]);
end;
[تمرين] التحويل من النظام العشري الى النظام الثنائى - hanipino - 25-01-2009
تعديل على طريقتى . على حسب الدروس المقدمة .
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;