أمثلة بسيطة في تعريف الحلقات التكرارية
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
أمثلة بسيطة في تعريف الحلقات التكرارية
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
أمثلة بسيطة في تعريف الحلقات التكرارية
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;
النهاية.
الصلاة والسلام على رسول الله
أمثلة بسيطة في تعريف الحلقات التكرارية
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- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
مواضيع مماثلة
» الحلقات التكرارية في لغة جو Go 2
» الحلقات التكرارية في لغة جو Go
» كيفية استعمال الحلقات في دلفي
» الحلقات التكرارية المتدخلة في لغة جو Go
» أمثلة متفرقة في دلفي
» الحلقات التكرارية في لغة جو Go
» كيفية استعمال الحلقات في دلفي
» الحلقات التكرارية المتدخلة في لغة جو Go
» أمثلة متفرقة في دلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى