= 2 to 10 do WriteLn (x * x);
Приклад 2. Латинська алфавіт.ch: = 'A' to 'Z' do Writeln (ch);
Приклад 3. Використання циклу з downto. p align="justify"> for i: = 10 downto 1 do WriteLn (i);
Приклад 4. Використання складеного оператора.x: = 1 to 10 do begin
y: = 2 * x +3; ('f (', x, ') =', y);
end;
Ітераційні цикли з передумовою
Синтаксис: вираз do оператор
Оператор після do буде виконуватися до тих пір, поки логічне вираження приймає щире значення (True). Логічний вираз є умовою поновлення циклу. Його істинність перевіряється щоразу перед черговим повторенням оператора циклу, який буде виконуватися лише до тих пір, поки логічне вираження істинно. Як тільки логічне вираження приймає значення неправда (False), здійснюється перехід до оператора, наступного за while. Вираз оцінюється до виконання оператора, так що якщо воно з самого початку було помилковим (False), то оператор не буде виконаний жодного разу. p align="justify"> Тут також слід пам'ятати, що дозволяється використовувати тільки один оператор після ключового слова do. Якщо необхідно виконати групу операторів, то варто використовувати складений оператор. br/>
Приклад.: = 0.001; x> eps do x: = x/2;
Ітераційні цикли з постусловіем
Синтаксис:
оператор;
оператор;
...
операторвираженіе
Оператори між словами repeat і until повторюються, поки логічне вираження є помилковим (False). Як тільки логічне вираження стає істинним (True), відбувається вихід з циклу. Так як вираз оцінюється після виконання операторів, то в будь-якому випадку оператори виконаються хоча б один раз. br/>
Приклад. ('Введіть позитивне число'); (x); x> 0;
Оператори завершення циклу
Для всіх операторів циклу вихід із циклу здійснюється як внаслідок природного закінчення оператора циклу, так і за допомогою операторів переходу і виходу.
У версії Турбо Паскаль 7.0 визначені стандартні процедури:
Процедура Break виконує безумовний вихід із циклу. Процедура Continue забезпечує перехід до початку нової ітерації циклу. br/>
2. Переривання фрагмента програми з циклом
Використовуючи оператор break, можна викликати негайне завершення циклу, пропускаючи умовний вираз і будь решті код у тілі циклу. Коли програма зустрічає оператор break всередині циклу, вона припиняє виконання циклу, і управління передається оператору, наступному за циклом. Нижче показаний простий приклад. p align="justify">// Використа...