دخول

musvc · 07-01-2009, 08:41 PM

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

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

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

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.

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

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة