دستور 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 یک مرتبه اجرا می گردد
| نکـــــــــــــــــــــــــته |
|---|
| توجه داشته باشید که اگر بعد از کلمه رزرو do از علامت سمیکالن ; استفاده نمایید مانع اجرای دستور مربوط به 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 اجرا میشود
و این عمل تا زمانی که یک جدول ضرب کامل نمایش داده شود تکرار میگردد
