 |
هذا السؤال عن binary trees
As an implementor,write a procedure that will traverse a binary tree level by level
(i.e.the root first then the first level and then the third level and so on)
(Hint :use a queue)
الله يخليكم لا تفشلوني وردولي الحل بسررررعه لان التسليم يوم الاحد القادم
------------------
لا إله إلا الله
[b]<small><small>[ تم تعديل الموضوع بواسطة xoxo يوم 23-03-2000]
ما فهمت ؟
وشو المطلوب؟
ان الله قدرني السبت يكون الواجب محلول
------------------
Do to be...
[b]<small><small>[ تم تعديل الموضوع بواسطة Mnaser يوم 24-03-2000]
يا خالد القصة و ما فيها مطلوب تمشي على بايناري تري بحيث تمر على كل
نود مرة واحدة فقط ويكون الترتيب انك تبدأ بالجذر ثم الدور الذي يليه وهكذا
اتمنى تكون فهمت معليش الترجمة غير دقيقة لاني أول مرة اتكلم عربي عن الداتا ستركشرس
انتم وصلتوا للبايناري تري و لا لسه؟
شكرا يا mnaser
على فكرة وش تقصد باسمك ؟
انتظر الحل؟لا تتأخر علي الله يخلييييييييك؟
------------------
لا إله إلا الله
xoxo يسعدمساك اليك هذا الحل والظاهر انه بطريقه غير المطلوبه لكن نفس النتيجه عموما يمكن توصلك لطيقة الحل المحدده في السؤال وآسف كان الاسلوب غير واضح (مثل:مد شرحك على قداسلوبك)سأضع const لأنك ستحتاجين لها ثم سأضع الـ procedure :
CONST
type
KEYTYPE=INTEGER
POSITION=0..MAX
PTR =^NODE
NODE =RECOD
VOUNT:POSISTION
KEY :ARRAY[1..MAX] OF KEYTYPE
BRANCH :ARRAY[POSITION] OF PTR
END;
{*******************************************************************}
PROCEDURE level_by_level(ROOT:PTR;leve,x:integer)M M
var
i,j:integer
BEGIN
IF (ROOT<>NIL) THEN
BEGIN
with root^do
begin
level:=level+1
if (level=x) then
begin
for j:= 1 to root^.count do
write(root^.key[j]:3); m
end
else
if (level<x) then
for i:= 0 to root.count do
level_by_level(BRANCH[i],level,x); m
END
END
END
.
.
..
.
..
.
الظاهر انك تقولين الله لا يبارك فيه ولا في حله لكن الجود من الماجود وعن اذنك بروح اذاكر الـQUIZ ابدخل الليله اسمع ردك سعى اني لبيت حاجتك
;
[b]<small><small>[ تم تعديل الموضوع بواسطة Mnaser يوم 25-03-2000]
ضوابط المشاركة
