الحلقة while
2 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
الحلقة while
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
الحلقة while
الحلقة while تنفذ مادام الشرط في حالة تحقق
اذا كان الشرط i <= 10 وكان i = 1 تنفذ الحلقة الى أن يساوي المتغير i عشرة أو اكبر
while i <= 10 do
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
الحلقة while
الحلقة while تنفذ مادام الشرط في حالة تحقق
اذا كان الشرط i <= 10 وكان i = 1 تنفذ الحلقة الى أن يساوي المتغير i عشرة أو اكبر
while i <= 10 do
- الكود:
procedure TForm1.BitBtn1Click(Sender: TObject); // h
var i: Integer; // ht
j: Integer; // htt
begin
i := 1; // hth
j := StrToInt(Edit1.Text); // hta
ListBox1.Items.Clear; // hty
while i <= j do
begin
ListBox1.Items.Add('القيمة هى : '+IntToStr(i)); // htu
i := i + 1; // htm
end; // htn
end; // htb
عدل سابقا من قبل alla في 31/5/2015, 12:48 am عدل 1 مرات (السبب : خطأ في العبارة "الحلقة while تنفذ الى أن يتحقق الشرط")
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى