Урок 56 Розділ 6 § 6.7 Цикл з передумовою

циклу.
Чи можуть команди тіла циклу з передумовою не виконуватись

жодного разу? Поясніть свою відповідь. Наведіть приклади.
Чи може виконання циклу з передумовою ніколи не закінчитися? Поясніть свою відповідь. Наведіть приклади.
Чим відрізняються між собою цикл з лічильником і цикл з передумовою?
У чому полягають відмінності у виконанні основних алгоритмічних структур: слідування, розгалуження, цикл з лічильником і цикл з передумовою?
Який загальний вигляд команди циклу з передумовою в Object Pascal?

випадках, коли потрібно спочатку виконати деяку послідовність дій, а потім

визначити, чи є потреба повторювати ці дії ще раз. Синтаксис оператора Repeat:

Repeat <оператори тіла циклу>
Until <умова>;

Вираз логічного типу

оператори, які виконуються при кожній ітерації

виконання вказівок, які входять у тіло циклу, після чого обчислюється

вираз умова. Якщо умова:

Хибна

Істинна

то оператори тіла циклу повторюються

цикл Repeat припиняє свою роботу і виконується наступний оператор програми

12.
var k: Integer;
Begin
k := 0;
Repeat
k := k + 2;
Label1.Caption

:= IntToStr(k);
Until k > 10;
end;

Блок операторів між Repeat і Until обов'язково виконується хоча б один раз.

= 10
умова ще була хибною, відбулась ще одна ітерація, і

в тілі циклу k отримало значення 12.

потрібну для того, щоб одержати суму, більшу за 1000.
var

N, S: Integer;
begin
N := 0; S := 0;
Repeat
N := N + 1; S := S + N;
Until S > 1000;
Edit1.Text := IntToStr(N);
end;

кількість цифр у якому невідома.
var N, d, S: Integer;
begin

N := StrToInt(Edit1.Text);
S := 0;
Repeat
d := N mod 10; // виділено останню цифру числа
S := S+d; // значення d додається до суми цифр
N := N div 10; // відкидається остання цифра числа N
Until N=0; // Якщо N = 0, цикл припиняє роботу
Edit2.Text := IntToStr(S);
end;

циклу з післяумовою.
Чи може виникнути ситуація, за якої тіло циклу

Repeat не виконається жодного разу?
Дано фрагмент програмного коду. Доповніть таблицю.





Якого значення набуде змінна F після виконання циклу?
і := 1; F := 2;
Repeat
і := і + 1; F := F * і
Until і < 6;
Поясніть призначення оператора циклу:
Repeat
х := StrToFloat(lnputBox(‘Введення X', Введіть додатне число', '0'));
Until х > 0;