Repeat повторяй

операторы операторы

until <условие>; до тех пор, пока условие будет ложным;

Есть небольшое отличие в организации цикла repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin... end. Зарезервированные слова repeat и until действуют как операторные скобки.

Представим всю информацию о цикле с постусловием в таблице:

Цикл с постусловием (девиз цикла: «Выполнять операторы, пока условие ложно»)
	Оператор цикла с постусловием: Repeat <тело цикла> Until <условие>; < Тело цикла > – набор любых операторов, т.к Repeat..Until подобны операторным скобкам. Тело цикла выполнится 1 раз, даже если условие изначально истинно.

Конструкция repeat... until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeat проверяет условие после выполнения действий, это гарантирует хотя бы одно выполнение действий до завершения цикла.

Упражнение 24. Составьте блок-схему по данному фрагменту программы. Сколько раз выполняется цикл? Чему становится равно a?

Упражнение 25. Найти квадраты целых чисел от 1 до 10
	Program Sum2; Var x,y:integer; Begin X:=1; {начальное присваивание} Repeat {повторять действия,..} Y:=X*X; {найти квадрат x} Writeln(X,Y); {вывести х и его квадрат} X:=X+1; {х увеличить на 1, } until X=11; {пока неверно, что X=11} end.

Домашние вопросы и задачи:

1. Как работает цикл с постусловием? Приведите примеры такого цикла из вашей жизни.

2. Запишите блок-схему цикла с постусловием? Объясните его работу.

3. Запишите оператор цикла с постусловием, расскажите о его работе и особенностях. В чем состоят различия между циклами с предусловие и постусловием?

4. Пусть мы отправляемся за грибами и возвращаемся домой, когда корзина наполнится. Все грибники делятся на 2 категории:

· Смотрят, есть ли место в корзине, если есть, срывают гриб.

· Сначала срывают гриб, а уже потом думают, как их положить в корзину.

Опишите поведение грибников с помощью блок-схем разных циклов.

Задачи:

№ 35. Составьте блок-схемы, определите сколько раз выполнился цикл и найдите значения переменных S, i после выполнения операторов:

А) S:=0; I:=3; Repeat S:=s+sqr(i); i:=i-1 until i<=0;

Б) S:=0; I:=2; Repeat S:=s+i*3; i:=i-2 until i<=0;

В) S:=0; I:=2; Repeat S:=s+i; i:=i-1 until 2*i<=S;

№ 36. Бесконечно печатать 100 99 98 …… (программа и блок-схема)

№ 37. Запросить имя пользователя и напечатать "Привет, Вася!" 10 раз. (если Вася – имя пользователя)

§ 15. Решение задач по теме «Цикл с постусловием»

Упр 26. Население города увеличивается на 3% каждый год. В 1983 году население города составляло 65000. Напишите программу, которая выведет на экран предсказываемую численность населения города в каждом году вплоть до 1999г.

Упр. 27. Найдите все натуральные числа от 1 до 1000, кратные 3.

Упр. 28 Вывести на печать все трёхзначные натуральные числа, сумма цифр которых равна заданному числу N.

Домашние вопросы и задачи:

1. Какие из приведенных задач вы бы решили с помощью цикла с предусловием, а какие – циклом с постусловием и почему?

А) Программа должна вычислять произведение двух чисел и спрашивать завершать программу или нет, если нет то продолжать запрашивать данные вычислять произведение и печатать его.

Б) Составить программу запроса пароля пока пароль не будет введен верно.

В) До тех пор, пока папка не пуста, удалять по одному файлу из папки.

Задачи:

№38. Для x= 2700, 900, 300, 100 …. вычислять и печатать y=x/4+20 до тех пор, пока x не станет меньше 1.

№39 Вводятся пары целых чисел. Посчитать, сколько среди них пар, дающих в сумме число, кратное 13. Подсчет закончить после ввода пары нулей.