دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

الحلقة while

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الحلقة while

مُساهمة  alla في 30/5/2015, 1:56 pm

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

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


الحلقة 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 تنفذ الى أن يتحقق الشرط")

alla
مبرمج مجتهد

عدد المساهمات : 731
تاريخ التسجيل : 29/07/2013

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

رد: الحلقة while

مُساهمة  sdk11 في 13/6/2015, 8:51 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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