برنامج الحلقة while

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

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

الحلقة while

الحلقة while تنفذ مادام الشرط في حالة تحقق
اذا كان الشرط i <= 10 وكان i = 1 تنفذ الحلقة الى أن يساوي المتغير i عشرة أو اكبر

while i <= 10 do

procedure TForm1.BitBtn1Click(Sender: TObject); //  https://www.djelfa.info/vb
var i: Integer; //  https://www.djelfa.info/vb
    j: Integer; //  https://www.djelfa.info/vb
begin  //  https://www.djelfa.info/vb
 i := 1;   //  https://www.djelfa.info/vb
 j := StrToInt(Edit1.Text); //  https://www.djelfa.info/vb
 ListBox1.Items.Clear; //  https://www.djelfa.info/vb
 while i <= j do //  https://www.djelfa.info/vb
 begin   //  https://www.djelfa.info/vb
  ListBox1.Items.Add('القيمة هى  : '+IntToStr(i)); //  https://www.djelfa.info/vb
  i := i + 1;  //  https://www.djelfa.info/vb
 end;  //  https://www.djelfa.info/vb
end;  //  https://www.djelfa.info/vb

[MR_DZ]

شكرا جزيلا لك يا غالي

[طيباوي ابو علي1]

ألف شكر

وبارك الله فــــــــــــــيك