حلقه های تکرار [بایگانی]

shareh

یک شنبه 05 فروردین 1386, 16:53 عصر

SYNDROME

یک شنبه 05 فروردین 1386, 17:05 عصر

با سلام
While i<10 Do
Begin
Inc(i);
End;
تا زمانی که متغییر کوچکتر از 10 است حلقه ادامه دارد و بروی خروج از
Break;
استفاده می شود.
While True Do
Begin

End;
این هم یک حلقه بینهایت که برای خروج از دستور فوق استفاده می شود.
من با دستور
Repeat
هم کمتر کار می کنم.

dkhatibi

یک شنبه 05 فروردین 1386, 20:51 عصر

با سلام به دوستان
راستش می خواستم با حلقه های تکرار و کاربردشان در دلفی بیشتر آشنا بشم .
اگه برا دوستان ممکنه چند مثال برای حلقه While و Repeat بیارید .و همچنین نحوه خروج از این حلقه ها .
فقط از معادلات ریاضی استفاده نکنید !!

حلقه ها وشرطها مهمترین بخش برنامه نویسی و پایه ی اون هستند برای اشنایی بیشتر حتما به کتابهای برنامه نویسی پاسکال یا دلفی مراجعه کنید.
حلقه ی While تازمانی انجام می پذیرد که شرط جلوی آن برقرار باشد.
در حلقه ی Repeat جلوی Until برقرار شد از حلقه خارج می شیم.
کلا با دستور Break در هر مرحله می تونیم از حلقه خارج شیم.

shareh

دوشنبه 06 فروردین 1386, 09:06 صبح

ضمن تشکر از دوستان
می خواستم بگم من فقط یه مثال ساده که جامع وکامل باشه در مورد کاربرد این حلقه می خواستم (خواهشا از معادلات ریاضی هم نباشه!)

SYNDROME

دوشنبه 06 فروردین 1386, 15:45 عصر

شرط زیر تمام رکوردهای ADO را پیمایش می کند(رکورد به رکورد)
ADO.First;
While ADO.EOF Do
Begin
ADO.Next
End;
دوست عزیز این یک مثال بود.
ما در حلقه های شرطی هزاران روش را می توانیم پیاده کنیم مهم این است که شما این حلقه ها را خوب درک کرده و با آنها کار کنید.
مهم نیست با کدام کار کنید مهم این است که بهترین روش را پیاده سازی کنید.

Hamid_PaK

دوشنبه 06 فروردین 1386, 17:55 عصر

while (condition) do begin
// statement ...
end;

کدهای مابین دو واژه "begin" و "end" تا زمانی که شرط داخل پرانتز برقرار است اجرا می شود...

repeat
// statement ...
until (condition);

کدهای مابین دو واژه "repeat" و "until" تا زمانی که شرط داخل پرانتز برقرار است اجرا می شود...

نکته : در while شما شرط را در ابتدا و در repeat آنرا در انتها می سنجید.

در این نمونه متغیر i از 1 شروع و تا 9 بالا میرود ...

var
i: integer;
begin
i := 0;
while (i < 10) do begin
Inc(i);
ShowMessage( Format('I is: %d', [i]) );
end;
end;

در این نمونه متغیر i از 1 شروع و تا 10 بالا میرود ...

var
i: integer;
begin
i := 0;
repeat
Inc(i);
ShowMessage( Format('I is: %d', [i]) );
until not (i < 10);
end;

یا حق ...