الحلقة while

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

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

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

الحلقة while

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

while i <= 10 do



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

[MR_DZ]

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

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

ألف شكر

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