OXOX تفضلي بالدخول

[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 ابدخل الليله اسمع ردك سعى اني لبيت حاجتك


عموما حكاية الاسم اعتقد اها نظير OXOX وإذا ماهو عاجبك دوري لي اسم اهم
شي يبداء بــ M على شان الأربعاء احتفل بالاسم الجديد على ألـweb
;

[xoxo]

الشي الوحيد الغريب و المستغرب و المستهجن في حلك هو اني مافهمت و لاكلمة
انت متأكد انك طالب حاسب و لا طالب زراعه؟؟؟؟؟؟؟؟
على العموم اكيد انا في غلط في سؤالي!!!
على العموم (2)شكرااااااا وما قصرت
على فكرة لا تغير اسمك السالفة ما تستاهل بس انا ما عرفت اقراه عاشان كذه سالت

------------------
لا إله إلا الله

[Mnaser]

والله عليك تحطيم من نوع خاص لكن مو مشكله ( اظري السطر التالي)
من الملف الشخصي عرفت انك من الرياض واليك الحل الشافي
اسمعي تمام وفتحي عيونك الوصفه اكيدة جدا جدا جدا :
**فيه مركز تصوير اسمه (ص) يعني صاد اطلبي 211 عال التمارين وليس الكتاب
في آخر المذكرة تابع لـprocedure and function السؤال بالنص والحل
لكن بطريقة تختلف شوي عن الي في السؤال
**المذكره في الرف المقابل للمدخل في ضرف لونه بيج
**موقع المركز على مخرج 9 قبل تقاطع لإمتداد التحصصي مع مخرج 9 مقابل
النقل الجماعي , واجهة المحل شماليه (المركز فتحه واحدة)
**إذا لم تستطيعي الوصول او الذهاب للمركز لسبب او لاخر ولا يهمك نرسله لك
لأن مابيني وبينه الإ خمس دقائق وبالتوفيق
0
(حرام عليك علمي ونسبه 98.65 وتقولين زراعه ): )

[xoxo]

شكراااااا ياmnaser(مناصر؟) كنت امزح معاك يا زراعه على العموم وكل العاده مافهمت الوصف لكن مو مشكلة..أفصد ما في مسكل سير

------------------
لا إله إلا الله

[Mnaser]

مبروك اخيرا فكيتي شفرات الأسم
يالله جائزتك تنتضرك في الإميل

[b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; Mnaser &nbsp; يوم &nbsp; 26-03-2000]

[خالد2000]

أخيرا تم حل المشكلة

[xoxo]

شكرا يا مناصر على الايميل وما كان في داعي تتعب نفسك وللفائدة هذا الحل الصحيح بالطريقة المطلوبة
procedure level_by_level(bt:binarytree);
var p:nodptr;
q:queuepointer;
begin
creat(q);
p:bt^.treeroot;
if p&lt;&gt;nil then
enqueue(q,p);
while length)q)&lt;&gt;0 do

begin
serve(q,p);
process(p);
if p^.left &lt;&gt;nil then
enqueue(q.p^.left);
if p^.right &lt;&gt;nil then enqueue(q,p^.right);
end;
terminate(q);
end;

------------------
لا إله إلا الله

[Mnaser]

??!!

[عاشق_ليل]

الظاهر انه راح يلزمكم بروفسور عشان تحلوا هذا السؤال البسيط