19-07-2012, 12:43 PM
السلام عليكم
للاستفادة الفرق بين Repeat و while
Repeat تتحقق من الشرط عند النهاية until و لذلك سينفذ الكود مرة اخرى قبل الخروج من الحلقة while تحقق من
الشرط عند البداية و لذلك لن ينفذ الكود ما لم يتحقق الشرط ...
باستخدام حلقة while
بالتوفيق
للاستفادة الفرق بين Repeat و while
Repeat تتحقق من الشرط عند النهاية until و لذلك سينفذ الكود مرة اخرى قبل الخروج من الحلقة while تحقق من
الشرط عند البداية و لذلك لن ينفذ الكود ما لم يتحقق الشرط ...
باستخدام حلقة while
كود :
procedure TForm1.Button2Click(Sender: TObject);
var
a,b: Integer;
begin
a := 2;
while a <= 100 do
begin
b := 0;
while b <= 1000 do
begin
if (a * b = 63875) then
begin
Edit1.Text := IntToStr(a);
Edit2.Text := IntToStr(b);
end;
inc(b);
end;
inc(a);
end;
end;بالتوفيق
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج