Меню

Обратная связь

Сейчас на сайте

•Сейчас• •41 гостей• •онлайн•

Авторизация




Назад...


Цикл WHILE (с предусловием)


Этот цикл применяется в случае, если неизвестно, сколько раз необходимо выполнить тело цикла.

Его можно использовать вместо FOR, либо REPEAT.

Для входа в цикл предварительно проверяется условие.


Синтаксис цикла:


while <условие> do

<тело цикла>;

пока <условие> то

<тело цикла>;


Первый вход в цикл и последующие будут выполняться при верном условии.

Поэтому перед циклом нужно создать истинность условия для первого входа.

В теле цикла нужно прослеживать признак окончания работы цикла (создание ложности условия), иначе цикл будет выполняться вечно.


Обычно тело цикла состоит из нескольких команд. В таком случае оно берется в операторные скобки.

while <условие> do

begin

<тело цикла>;

end;

 


 

Рассмотрим примеры. Рядом с решением задачи приведу, если это возможно, решение с использованием цикла FOR.


Пример 1. Найдем сумму первых десяти натуральных чисел. (можно через for)


Var

i, s : integer;

Begin

s:=0;

i:=0;

while i<10 do

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

End.

Var

i, s : integer;

Begin

s:=0;

for i:=1 to 10 do

s:=s+i;

writeln(s);

End.

 

Пример 2. Найдем сумму всех четных двухзначных натуральных чисел. (можно через for)


Var

i, s : integer;

Begin

s:=0;

i:=10;

while i<99 do

begin

s:=s+i;

i:=i+2;

end;

writeln(s);

End.

Var

i, s : integer;

Begin

s:=0;

for i:=10 to 99 do

if   i mod 2=0 then

s:=s+i;

writeln(s);

End.


Пример 3. С клавиатуры вводятся целые положительные числа. Выведем на экран квадраты этих чисел. Признаком выхода из цикла и завершения работы программы будет введение числа 0.

В условии не оговаривается, сколько чисел введем.


Var

a : integer;

Begin

read(a);

while a>0 do

begin

writeln(a*a:10);

read(a);

end;

writeln('Работа программы завершена...');

End.

 

•Информация о профиле•

Application afterLoad: 0.002 seconds, 0.29 MB
Application afterInitialise: 0.022 seconds, 0.96 MB
Application afterRoute: 0.028 seconds, 1.20 MB
Application afterDispatch: 0.065 seconds, 1.85 MB
Application afterRender: 0.094 seconds, 2.20 MB

•Использование памяти•

2346504

•Зарегистрировано запросов: 22•

  1. SELECT *
      FROM jos_session
      WHERE session_id = 'hpunugodft2cajntd9s420rpk2'
  2. DELETE
      FROM jos_session
      WHERE ( time < '1733298034' )
  3. SELECT *
      FROM jos_session
      WHERE session_id = 'hpunugodft2cajntd9s420rpk2'
  4. INSERT INTO `jos_session` ( `session_id`,`time`,`username`,`gid`,`guest`,`client_id` )
      VALUES ( 'hpunugodft2cajntd9s420rpk2','1733301634','','0','1','0' )
  5. SELECT *
      FROM jos_components
      WHERE parent = 0
  6. SELECT folder AS type, element AS name, params
      FROM jos_plugins
      WHERE published >= 1
      AND access <= 0
      ORDER BY ordering
  7. SELECT *
      FROM jos_migration_backlinks
      WHERE url LIKE 'component/content/article/150.html%' OR sefurl LIKE 'component/content/article/150.html%'
  8. SELECT template
      FROM jos_templates_menu
      WHERE client_id = 0
      AND (menuid = 0 OR menuid = 0)
      ORDER BY menuid DESC
      LIMIT 0, 1
  9. SELECT a.*, u.name AS author, u.usertype, cc.title AS category, s.title AS section, CASE WHEN CHAR_LENGTH(a.alias) THEN CONCAT_WS(":", a.id, a.alias) ELSE a.id END AS slug, CASE WHEN CHAR_LENGTH(cc.alias) THEN CONCAT_WS(":", cc.id, cc.alias) ELSE cc.id END AS catslug, g.name AS groups, s.published AS sec_pub, cc.published AS cat_pub, s.access AS sec_access, cc.access AS cat_access 
      FROM jos_content AS a
      LEFT JOIN jos_categories AS cc
      ON cc.id = a.catid
      LEFT JOIN jos_sections AS s
      ON s.id = cc.section
      AND s.scope = "content"
      LEFT JOIN jos_users AS u
      ON u.id = a.created_by
      LEFT JOIN jos_groups AS g
      ON a.access = g.id
      WHERE a.id = 150
      AND (  ( a.created_by = 0 )    OR  ( a.state = 1
      AND ( a.publish_up = '0000-00-00 00:00:00' OR a.publish_up <= '2024-12-04 08:40:34' )
      AND ( a.publish_down = '0000-00-00 00:00:00' OR a.publish_down >= '2024-12-04 08:40:34' )   )    OR  ( a.state = -1 )  )
  10. UPDATE jos_content
      SET hits = ( hits + 1 )
      WHERE id='150'
  11. SELECT id, title, module, position, content, showtitle, control, params
      FROM jos_modules AS m
      LEFT JOIN jos_modules_menu AS mm
      ON mm.moduleid = m.id
      WHERE m.published = 1
      AND m.access <= 0
      AND m.client_id = 0
      AND ( mm.menuid = 0 OR mm.menuid = 0 )
      ORDER BY position, ordering
  12. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='mod_maximenu_CK'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  13. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  14. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='uth_proc'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  15. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  16. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='Olimp'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  17. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  18. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='obr_sv'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  19. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  20. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='raznoe'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  21. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  22. SELECT guest, usertype, client_id
      FROM jos_session
      WHERE client_id = 0

•Языковые файлы загружены•

  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_system_debug.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.com_content.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_content_pagebreak.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_maximenu_CK.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.mod_maximenu_CK.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_whosonline.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_login.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_breadcrumbs.ini 1

•Диагностика непереведённых строк•

•Нет•

•Дизайнер непереведённых строк•

•Нет•