حلقه ی for در پاسکال و دلفی (Pascal , Delphi)

در زبان پاسکال و دلفی (یا به طور کل در همه ی زبانهای برنامه نویسی) معروف ترین حلقه همین حلقه ی for می باشد. از این حلقه برای نوشتن تکرارهای معین استفاده می گردد، به علت اینکه در این حلقه تعداد تکرار مشخص می باشد.(از این پس به جای حلقه ی forمی نویسیم for) که در آن سه بخش متغیر و دو بخش ثابت وجود دارد:

به طور کل نحوه ی نوشتن حلقه ی forبه شکل زیر است:

for variable := start to finish do

// code

توضیح:

به زبان فارسی کد بالا به معنای زیر می شود:

برای متغیر variable و مقدار اولیه ی start تا زمانیکه به مقدار finish نرسیده است کدهای code را اجرا کن.

حال بپردازیم به توضیح اصلی حلقه:

1- قسمت هایی که با رنگ قرمز مشخص گردیده است بخشهای ثابت forمی باشند.

2- قسمتی که با رنگ آبی مشخص گردیده است به بخش مقداردهی اولیه ی اندیس forمعروف است، در آن به جای کلمه ی variable می توان نام متغیر دلخواهی را نوشت (البته این متغیر باید قبلا تعریف شده باشد) که در واقع با عنوان اندیس forخواهد بود، به جای کلمه ی start مقدار اولیه ی دلخواه که در محدوده ی اندیس forباشد را قرار می دهیم.

نکته: در بخش مقدار دهی اولیه اندیس forفقط می توان از عملگر انتساب(:=) استفاده کرد و می توان گفت که این عملگر در این بخش ثابت می باشد و استفاده از آن الزامی است.

3- قسمتی که با رنگ صورتی نمایان است مشخص می نماید که forما افزایش است یا کاهشی، که برای مشخص نمودن افزایشی یا کاهشی بودن forاز دو کلمه ی کلیدی to برای افزایشی کردن حلقه و downto برای کاهشی کردن حلقه استفاده می گردد.

توضیح: حلقه ی افزایشی به حلقه ای گفته می شود که در آن مقدار اندیس حلقه در هر بار تکرار حلقه افزایش می یابد ولی حلقه ی کاهشی در هر تکرار حلقه مقدار اندیس حلقه را کاهش می دهد.

4- قسمتی که با رنگ سبز مشخص گردیده است مقدار پایانی اندیس حلقه می باشد که به آن شرط خاتمه هم گفته می شود، و همانند مقدار دهی اولیه باید این مقدار در محدوده ی اندیس forباشد. هر گاه شرط خاتمه «درست» باشد اجرای حلقه متوقف می گردد.

نکته: گام حلقه ی forدر زبان پاسکال و دلفی همواره یکی است بدین معنی که در هر تکرار حلقه فقط یک واحد به اندیس افزوده می گردد و یا از آن کاهش می یابد و این ویژگی منحصر به فرد است مثلا در زبان های برنامه نویسی vb و cشما می توانید مشخص نمایید که گام حلقه ی forبه چه میزان تغییر نماید ولی این امکان به برنامه نویسان پاسکال و دلفی داده نشده است.

5- و در آخر قسمتی را مشاهده می نمایید که با رنگ مشکی معین گردیده است به جای این عبارت کدهای خود را وارد می نمایید. هر کدی که در این بخش باشد به تعداد تکرار حلقه ی for، تکرار خواهد شد.

برای به کاربردن forکافی است آنرا در یک تابع، رویه و یا برنامه اصلی بنویسید و بعد از آن دستوراتی را که نیاز به تکرار دارند را قرار دهید.

مثال حلقه ی افزایشی:

for i := 1 to 10 do

write(i);

تکه کد بالا باعث نوشته شدن اعداد 1 تا 10 بر روی صفحه نمایش می گردد.

مثال حلقه ی کاهشی:

for i := 10 downto 1 do

write(i);

تکه کد بالا اعداد 1 تا 10 را به صورت وارونه می نویسد.

نکته: در حلقه ی کاهشی مشاهده می نمایید که به جای کلمه ی کلیدی do (در مثال حلقه ی افزایشی) از کلمه ی کلیدی downto استفاده گردیده است و اگر این کار انجام نشود هیچ چیزی بر روی صفحه نمایش نوشته نخواهد شد و این به علت این است که، شرط خاتمه «درست» می شود.

نکته2: در حلقه ی افزایش اگر اندیس حلقه در زمان مقدار دهی اولیه مقداری بیش از مقدار پایانی داشته باشد و همچنین در حلقه ی کاهشی اگر اندیس حلقه در زمان مقدار دهی اولیه مقداری کمتر از مقدار پایانی داشته باشد دستورات درون حلقه هیچ گاه انجام نمی شود.

هر حلقه ی forمی تواند بیش از یک دستور در خود جای دهد برای این کار باید دستورات خود را در یک بلوک بین دو کلمه ی کلیدی end, begin قرار دهید. مثال:

for i := 1 to 10 do

begin

write(i:3);

writeln(i*i: 4);

end;

توضیح: قطعه کد بالا اعداد 1 تا 10 را به همراه توان دوم آنها را در صفحه نمایش می نویسد. هر کدام از اعداد و توان دوم مربوطه را در یک خط می نویسد.

برای اطلاع از حلقه های تودرتو به اینجا مراجعه نمایید.

حلقه ی for در پاسکال و دلفی (Pascal , Delphi)

مطالب مشابه :

تزئین جای حلقه(5-بالش کوچک)

تزئین جای حلقه(5-بالش کوچک)

جای حلقه عروس

تزیین میز آرایش

حلقه مرغ و ریحان

کوسن برای جای حلقه

حلقه ی for در پاسکال و دلفی (Pascal , Delphi)