دستور for در پاسکال

دستور for در پاسکال

در صورتی که به اجرای متعدد یک یا چند دستور به تعداد دفعات مشخص نیاز داشته باشید
بهتر است از دستور for استفاده نمایید شکل کلی دستور for به صورت زیر است

for متغیر اولیه : =  مقدار شمارش to | downto مقدار ثانویه  do  دستور ;

برای مثال در برنامه زیر ازدستور for استفاده شده است

var
 A : Integer;
begin
 for A : = 1 TO 100 do
  writeln (A);
end.

با اجرای این برنامه دستور خروجی صد مرتبه ارجا می گردد و باعث نمایش اعداد 1 تا 100 خواهد شد
همان طور که مشاهده میکنید استفاده از دستور for بسیار پر کاربرد است
برای مثال در نظر بگیرید بدون دستور for بخواهید اعداد 1 تا 100 را نمایش دهید
به چند دستور نیاز خواهید داشت ؟
توجه داشته باشید که در صورت استفاده از کلمه رزرو شده to با هر تکرار یک واحد به متغییر شمارش اضافه میشود
همچنین میتوانید از کلمه رزرو شده downto برای کم کردن یک واحد از متغییر شمارش استفاده کنید
برای مثال به برنامه زیر توجه کنید

var
 A : Integer;
begin
 for A : = 100 downto 1 do
   writeln(A);
end.

با اجرای برنامه فوق باعث نمایش اعداد از 100 تا 1 خواهد شد
یعنی با هر تکرار یک واحد از متغییر شمارش ( یعنی A ) کم خواهد شد
توجه داشته باشید اگر در این حالت مقدار اولیه و ثانویه یکسان باشند دستور مروبط به for یک مرتبه اجرا می گردد

با توجه به اینکه دستور for برای تکرار اجرای یک دستور مورد استفاده قار می گیرد
بنابراین دستور مربوط میتواند یک دستور مرکب باشد
برای مثال به برنامه زیر توجه کنید

var
 A : integer;
begin
 for A : 1 to 100 do
 begin
  write(' A = ');
  writeln(A);
 end;
end.

توجه داشته باشید که اگر بعد از حلقه for چندین دستور وجود داشته باشد
فقط اولین دستور در تکرار حلقه مورداجرا قرار خواهد گرفت
و دستورات بعدی بعد از خروج از حلقه مورد اجرا قرار خواهند گرفت
برای مثال به برنامه زیر توجع کنید

var
 A : integer;
begin
 for A : 1 to 100 do
  writeln(A);
  witeln ('Ok');
end.

اجرای این برنامه باعث نمایش اعداد از 1 تا 100 خواهد شد
و سپس کلمه ok نمایش داده خواهد شد
توجه داشته باشید که دستور مرکب از نظر پاسکال یک دستور است
با توجه به اینکه دستور for قادر به اجرای متعددی یک دستور می باشد
بنابراین شما میتوانید یک دستور for را درون حلقه تکرار قرار دهید که به آن for تو در تو گفته میشود
برای مثال به برنامه زیر توجه کنید

var
 A,B : integer;
begin
 for A : 1 to 100 do
 for B : 1 to 100 do
  writeln(B);
end.

اجرای برنامه فوق باعث خواهد شد که 10 مرتبه اعداد از 1 تا 10 نمایش داده شوند
همان طور که مشاهد میکنید اولین حلقه for موجب می شود
که دومین حلقه for ده مرتبه اجرا گردد
حلقه دوم نیز باعث نمایش اعداداز 1 تا 10 خواهد شد
استفاده از حلقه های for تودرتو دارای کاربردهای بسیاری است
برای مثال در برنامه زیراز دو حلقه for تو درتو برای نمایش جدول ضرب استفاده شده است

var
 A,B : integer;
begin
 for A : 1 to 100 do
 begin
   for B : 1 to 100 do
     write(A*B:4);
  writeln;
 end;
end.

اولین حلقه این برنامه باعث خواهد شد که دستور مرکب ده مرتبه اجرا شود
دستور مرکب شامل حلقه ای است که ده مرتبه خروجی را اجرا خواهد کرد
بعد از پایان یافتن حلقه دوم writeln اجرا میشود
و این عمل تا زمانی که یک جدول ضرب کامل نمایش داده شود تکرار میگردد