حلقه for

تکرار کارها

اگر بخواهید ۱۰۰ بار «سلام» چاپ کنید، ۱۰۰ خط کد نمی‌نویسید! حلقه for برای تکرار شمارش‌دار است: «از ۱ تا ۱۰۰ این کار را بکن».

ساختار

for شمارنده := شروع to پایان do
  دستور;

مثال ساده

var i: integer;
begin
  for i := 1 to 5 do
    writeln('سلام! شماره ', i);
end.

خروجی:

سلام! شماره 1
سلام! شماره 2
سلام! شماره 3
سلام! شماره 4
سلام! شماره 5

for...downto — شمارش معکوس

var i: integer;
begin
  for i := 5 downto 1 do
    writeln(i, '...');
  writeln('پرواز! 🚀');
end.

بلوک چند دستوری

var i, sum: integer;
begin
  sum := 0;
  for i := 1 to 10 do
  begin
    sum := sum + i;
    writeln('i=', i, ' sum=', sum);
  end;
  writeln('مجموع ۱ تا ۱۰: ', sum);   { 55 }
end;

حلقه‌های تودرتو

var i, j: integer;
begin
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      write(i, 'x', j, '=', i * j, '  ');
    writeln;
  end;
end.

شمارنده می‌تواند کاراکتر باشد!

var c: char;
begin
  for c := 'a' to 'e' do
    write(c, ' ');
  writeln;
end.

الگوهای رایج

مجموع اعداد

sum := 0;
for i := 1 to n do
  sum := sum + i;

مجموع اعداد زوج

sum := 0;
for i := 1 to n do
  if i mod 2 = 0 then
    sum := sum + i;

جدول ضرب

for i := 1 to 10 do
  writeln(i, ' x 7 = ', i * 7);

ستاره‌های هرمی

var i, j: integer;
begin
  for i := 1 to 5 do
  begin
    for j := 1 to i do
      write('*');
    writeln;
  end;
end.

خروجی:

*
**
***
****
*****

خلاصه

• for i := a to b do — صعودی
• for i := a downto b do — نزولی
• تعداد تکرار از اول مشخص است
• حلقه تودرتو = جدول/ماتریس/الگو