پاورپوینت دستور حلقه While (pptx) 19 اسلاید
دسته بندی : پاورپوینت
نوع فایل : PowerPoint (.pptx) ( قابل ویرایش و آماده پرینت )
تعداد اسلاید: 19 اسلاید
قسمتی از متن PowerPoint (.pptx) :
مطالب امروز
دستور حلقه While
مراحل اجرای While
استفاده از While به عنوان For
دستور حلقه Repeat
مراحل اجرای Repeat
استفاده از Repeat به عنوان For
چند مثال
دستورهای کنترل حلقه
نکات مقايسه ای حلقه ها
دستور حلقه While
While شرط ادامه حلقه Do
; يک دستور
شرط ادامه حلقه، يک عبارت شرطی يا يک متغير منطقی است.
تا زمانی که شرط ادامه حلقه صحيح باشد، دستور مورد نظر تکرار می شود.
به جای يک دستور می توان از يک بلوک دستوری استفاده نمود.
ميانگين تعدادی نامعلوم از اعداد
Var
n : Integer;
a , Sum : Real;
Begin
Sum := 0;
Readln (a);
While a <> 0 Do
Begin
Sum := Sum + a;
n := n + 1;
Readln (a);
End;
Writeln (Sum / n);
End.
بررسی شرط حلقه
اجرای
دستور حلقه
اجرای دستور
بعد از حلقه
مراحل اجرای دستور While
پايان حلقه
پرسيدن يک کاراکتر برای ادامه برنامه
Var
c : Char;
Begin
c := ‘Y’;
While c = ‘Y’ Do
Begin
Writeln ( ‘ Your program is running! ’ );
Readln (c);
While (c <> ‘Y’) and (c <> ‘N’) Do
Readln (c);
End;
Writeln ( ‘ Your program is finished! ’ );
End.
چاپ اعداد 1 تا 10 (استفاده به عنوان FOR )
Var
i : Integer;
Begin
i := 1;
While i <= 10 Do
Begin
Writeln (i);
i := i + 1;
End;
End.
دستور حلقه Repeat
Repeat
; يک يا چند دستور
Until شرط پايان حلقه ;
شرط پایان حلقه، يک عبارت شرطی يا يک متغير منطقی است.
تا زمانی که شرط پايان حلقه صحيح نباشد، دستور مورد نظر تکرار می شود.
استفاده از چند دستور نيازی به بلوک دستوری ندارد.
ميانگين تعدادی نامعلوم از اعداد
Var
n : Integer;
a , Sum : Real;
Begin
Sum := 0;
Repeat
Readln (a);
If a <> 0 Then
Begin
Sum := Sum + a;
n := n + 1;
End;
Until a = 0;
Writeln (Sum / n);
End.