اضافة للدرس الرابع

[musvc]

بسم الله الرحمن الرحيم

انا من متابعي الدورة بشدة ..
كل يوم افتح الموقع و ارى هل قمتم بأضافة درس جديد ام لا ..
بالمناسبة هل تسمحول لي ان انشر موقعكم في المواقع الأخرى لكي يستفيدو من الدروس الرائعة


اضافتي هي في الدرس الرابع
لماذا لم تشرحو الأمران

Label
و
goto

يستعمل هذان الأمران لأعادة تنفيذ امر لمرات غير محدودة و لا يستجيب لأمر if

مثال :

كود :

program Water; [color=DarkGreen]{$APPTYPE CONSOLE}[/color] uses Windows; Label Loop; begin SetConsoleTitle('Water !'); [color=Blue]Loop[/color][color=Red]:[/color] Writeln(' 010 010 010 010 010 010 010 010 010 010 010'); Writeln(' 101 101 010 010 010 010 010 010 01 0100 010'); Writeln(' 010 010 010 010 010 010 01 010 010 0100 01 0'); Writeln(' 101 101 010 010 010 010 010 010 010 010 010'); Writeln(' 010 010 010 01 0100 010 010 010 010 010 01 0'); [color=Blue]goto[/color] Loop; end.

اتمنى لكم كل الفائدة

والسلام عليكم

[محمد عبد العزيز]

لماذا لم تشرحو الأمران Label و goto

1- الدورة ليست لشرح اوامر باسكال
2- استخدام goto تعد طريقة سيئة وتفكير منطقي ركيك

[kachwahed]

شكرا على التنبيه
أنا أيضا أتفاد استعمالها
حتى أستسلم أحيانا فأضيفها
لكن...
لماذا تعد تفكير منطقي ركيك؟
وما هو البديل لها؟
ممكن تفيدنا بشرح؟

[STRELiTZIA]

السلام عليكم و رحمة الله

اضافتي هي في الدرس الرابع
لماذا لم تشرحو الأمران

تعريف Declaration و استعمال Label ليس له علاقة بالحلقات و الشروط الأساسية في دلفي التي يجب تعلمها، لانه عبارة على استدعاء اول الأوامر في آخرها... و يعتبر Call على طريقة البرمجة بالأسمبلي و للخروج منها يجب اضافة Counter ثم شرط يقفز خارج الــ Label
و الــ Label يمكن ان نسميه اي شئ Loop في المثال او Test.

لماذا تعد تفكير منطقي ركيك؟

اخي العزيز كاش واحد معرف جميل
تطورت اوامر الباسكال و اظنك تعلم ذلك جيدا لتفادي البرمجة باسلوب بدائي يعني مثل الذي يشير بيده اليمنى ليظهر لك اذنه اليسرى...

وما هو البديل لها؟

اظن انك قد كسبت معلومات جيدة في مشوار تعلمك لدلفي و طريقة طرح اسئلتك منطقية و تعليمية بناء على مشاركاتك في هذا المنتدى، و تعرف جيد ان الطريقة الذكية للبرمجة هي محاولة كتابة اسطر اوامر Optimized اكثر، يعني سطر اوامر مدروس خير الف مرة من عشرة عشوائية حتى لو يعطون نفس النتيجة.

تحياتي

[محمد عبد العزيز]

اضافة الى ما قاله اخي STRELiTZIA
المثال فوق يمكن ان يكتب

PHP كود :

program Water;

{$APPTYPE CONSOLE}

uses
  Windows;

Label Loop;
begin
SetConsoleTitle('Water !');
Repeat
Writeln('  010     010      010  010      010  010     010      010     010     010  010');
Writeln(' 101   101    010    010    010    010      010        010    01    0100  010');
Writeln('  010      010    010       010       010   010    01     010       010 0100  01 0');
Writeln('   101    101       010    010      010   010       010    010      010    010  010');
Writeln('  010    010      010    01    0100  010         010 010        010  010 01 0');
Until False;
end. 


المرفق (عمره اكثر من 40 سنة) يشرح لماذا

والسلام عليكم

[musvc]

انا ايضا ً اعتقد استعمالها ليس ضروريا ً
فقط استعملها حين انشيئ فايروس
لأجعله يعيد تخريب الــ Registry ..

سلام

[musvc]

بالمناسبة وضعت الكود فقط للأفادة فهناك مبرمجين مبتدئين لا يعرفون مثل هذه الأوامر ( اصلا ً انا اعرف مبرمجين جيدين لا يعرفون هذه الأوامر )

يجب معرفة جميع الأوامر ( مضارها و منافعها ) لكي نصبح ان شاء الله مبرمجين محترفين في المستقبل

[ اعتقد يجب شرح جميع الأشياء في الدورة و لا يغفل شيئ عن احد ]

و السلام عليكم