Repeat <оператори тіла циклу>
Until <умова>;
Вираз логічного типу
оператори, які виконуються при кожній ітерації
Хибна
Істинна
то оператори тіла циклу повторюються
цикл Repeat припиняє свою роботу і виконується наступний оператор програми
var k: Integer;
Begin
k := 0;
Repeat
k := k + 2;
Label1.Caption := IntToStr(k);
Until k > 10;
end;
Блок операторів між Repeat і Until обов'язково виконується хоча б один раз.
умова ще була хибною, відбулась ще одна ітерація, і в тілі циклу k отримало значення 12.
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;
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть