أمثلة بسيطة في تعريف الحلقات التكرارية

اذهب الى الأسفل

أمثلة بسيطة في تعريف الحلقات التكرارية Empty أمثلة بسيطة في تعريف الحلقات التكرارية

مُساهمة  djelal في 2/5/2019, 12:40 am

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله

أمثلة بسيطة في تعريف الحلقات التكرارية

var
 frmLoops: TfrmLoops;
  i1: integer;
implementation
{$R *.dfm}

/// اجراء على شكل حلقة
procedure pLoops;
begin
 i1 := i1 + 1;
 frmLoops.lstbxLoops.Items.Add(inttostr(i1));
 if i1 <= 5 then pLoops;
end;

/// الحلقة while do
procedure TfrmLoops.btnWhileClick(Sender: TObject);
var
 i: integer;
begin
 i := 0;
 while i <= 10 do
 begin
  i := i + 1;
  mmLoops.Lines.Add(inttostr(i));
 end;
end;

/// الحلقة repeat until
procedure TfrmLoops.btnRepeatClick(Sender: TObject);
var
 i: integer;
begin
 i := 0;
 repeat
  i := i + 1;
  mmLoops.Lines.Add(inttostr(i));
 until i >= 10;
end;

/// الحلقة for to do
procedure TfrmLoops.btnForToClick(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to 10 do
  lstbxLoops.Items.Add(inttostr(i));
end;

/// الحلقة العكسية for downto do
procedure TfrmLoops.btnForDowntoClick(Sender: TObject);
var
 i: integer;
begin
 for i := 10 downto 0 do
  lstbxLoops.Items.Add(inttostr(i));
end;

/// استدعاء اجراء الحلقة
procedure TfrmLoops.btnLoopsClick(Sender: TObject);
begin
pLoops;
end;

النهاية.

djelal
مبرمج

عدد المساهمات : 88
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى