کنترل تکرار بر نامه ها

برای تکرار بلاکی از بر نامه می توانیم به جای تکرار دستورات به تعداد مورد نیاز از دستورات حلقه استفاده کنیم در پاسکال انواع دستورات حلقه داریم که عبارتند از :

1)دستور حلقهfor………do

این دستور دارای یک شمارنده می باشد که مقدار اولیه و مقدار نهایی آن باید مشخص شده باشد

 شکل کلی دستور for

For    متغییر :=مقدار اولیه       to     مقدار نهایی    do   دستورات

Begin

دستوراتی که باید تکرار شوند 

End

نکته :

زمانی از begin و end  استفاده می کنیم که دستورات اجرای داخل for بیشتر باشد .

حلقه ها 2حالت می توانند داشته باشند :

1)افزایشی

در این حالت بین مقدار اولیه و مقدار نهایی عبارت toرا بکار می بریم بدین تر تیب مقدار اولیه کمتر از مقدار نهایی خواهد بود.

مثال 7 :

عددی صحیح و مثبت را گرفته اعداد کمتر از هزار که بر N بخش پذیر است را چاپ کند ؟

Program  EXAMPL7  ;

Var

N, I: integer;

Begin

Write ('enter N :');

Readln (N);

For   I=1   to 999   do

If (I mod N= 0) then   write (I);

Readln;

End.

2)کاهشی

در  این حالت بین عبارت مقدار اولیه و مقدار نهایی از عبارت down to  استفاد ه می کنیم .بنابراین مقدار اولیه بیشتر از مقدار نهایی خواهد بود .

حلقه های to در to :

دستورات      DO      مقدار اتمام       TO      مقدار شروع =: متغیر  FOR 

---------------

---------------

دستورات      DO      مقدار اتمام       TO      مقدار شروع =: متغیر  FOR 

مثال 8 :

جدول ضرب 10*10را محاسبه و چاپ کند

Program  EXAMPL8;

Var

a,b: integer;

Begin

For a: =1    To   10   Do

Begin

For   b: =1    To 10   Do

Write (a*b: 5);

Writeln;

End;

Read(s);

End.

یادآوری : در دستور

Write(a*b:5);

عدد 5 فاصله مابین دو ستون را مشخص می کند و دستور Writeln در سطر بعدی فاصله ما بین دو سطر است و یا به عبارتی دیگر بین سطور فاصله ایجاد می کند