Сообщение об ошибке

Deprecated function: The each() function is deprecated. This message will be suppressed on further calls в функции menu_set_active_trail() (строка 2405 в файле /home/kpaco123/e-helper/includes/menu.inc).

while

Цикл while (цикл з передумовою) найчастіше використовується коли наперед не відомо кількість ітерацій і цикл має працювати до тих пір поки буде виконуватись початкова умова. Синтаксис оператора while:

           while умова (i<=20) do
           begin
             .
             .
             .
             Тіло циклу
             .
             .
             .
           end;
           

Наприклад потрібно підрахувати кількість брусків довжиною 1,5м. які отримаються із розпилювання колоди довжиною 20м, цикл підрахунку матиме наступний вигляд:

 

           i:=0;{кількість брусків}
           L:=0;{Загальна довжина відпиляний брусків}
           while L<20 do
           begin
             L:=L+1.5;
             i:=i+1;
           end;
           ShowMessage(’Кількість брусків ’,i);