3.5.2. Программирование циклов с заданным условием окончания работы

Цикл с заданным условием окончания работы (цикл-ДО) программируется в языке Паскаль с помощью оператора repeat.

Общий вид оператора:

repeat <оператор1; оператор2; ...; > until <условие>

Здесь:

<оператор1>; <оператор2>; ... — операторы, образующие тело цикла;

<условие> — логическое выражение; если оно ложно, то выполняется тело цикла.

Запишем на языке Паскаль рассмотренный в п. 2.4.3 (пример 17) алгоритм решения задачи о графике тренировок спортсмена.

program n_15;
var i: integer; х: real;
begin
writeln (Трафик тренировок');
i: =1;
x: =10;
repeat
i: =i + 1;
x:=x+0.1*x;
until x>=25;
writeln ('Начиная c ', i, '-го дня спортсмен
будет пробегать 25 км')
end.