Оператор цикла с постусловием repeat

Инструкция repeat как и инструкция while, используется в программе, если надо провести некоторые повторяющиеся вычисления (цикл), однако число повторений не известно и определяется самим ходом вычислений.

В общем виде оператор выглядит так: repeat {последовательность операторов}; until условие; где условие – выражение логического типа.

Оператор работает следующим образом: 1)Выполняются инструкции следующие за словом repeat. 2)Вычисляется значение условия. Если условие ложно, то повторно выполняются инструкции цикла. Если же условие истинно, то выполнение цикла заканчивается. Таким образом, операторы находящиеся между repeat и until выполняются до тех пор, пока условие ложно.

Примечания:

1) Последовательность инструкций между repeat и until всегда будет выполнена хотя бы один раз.

2) Для того чтобы цикл завершился, необходимо, чтобы последовательность операторов между repeat и until изменяла значения переменных, входящих в выражение условие.

Инструкция полезна при создании программ, обрабатывающих ввод с клавиатуры.

Пример: Составить программу вычисляющую сумму положительных чисел, вводимых с клавиатуры. program polog; uses crt; var n, s: integer; begin clrscr; s:=0; repeat write (‘->’); readln (n); if n>0 then s:=s+n; until n<=0; writeln (‘Сумма введенных положительных чисел =’,s); readln; end.

С клавиатуры вводится число, проверить является ли оно простым. var r, n, d: integer; begin writeln (‘Введите целое число’); readln (n); d:=2; repeat r:=n mod d; if r<>0 then d:=d+1; until r=0; if d=n then writeln (n,‘ – простое число’) else writeln (n,‘ – составное число’) readln; end.

Задачи цикл repeat:

1) Дано натуральное число.

а) Получить все его делители.

б) Найти сумму его делителей.

в) Найти сумму его четных делителей.

г) Определить количество его делителей.

д) Определить количество его нечетных делителей.

е) Определить количество его делителей. Сколько из них четных?

ж) Найти количество его делителей, больших D.

2) Натуральное число называется совершенным, если оно равно сумме своих делителей, включая 1 и, естественно, исключая это самое число. Например, число 6 - совершенное (6=1+2+3). Дано натуральное число. Выяснить, является ли оно совершенным.

3) Найти количество делителей каждого из целых чисел от 120 до 140.

4) Найти все целые числа из промежутка от 1 до 300, у которых ровно 5 делителей.

5) Найти все целые числа из промежутка от 200 до 500, у которых ровно 6 делителей.

6) Найти все целые числа из промежутка от А до В, у которых количество делителей равно К. Если таких чисел нет, то должно быть напечатано соответствующее сообщение.

7) Найти натуральное число из интервала от А до В, у которого количество делителей максимально. Если таких чисел несколько, то должно быть найдено:

а) максимальное из них; минимальное из них.

8) Найти все трёхзначные простые числа.

9) Найти 100 первых простых чисел.

10) Найти сумму делителей каждого из целых чисел от 50 до 70.

11) Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна 50.

12) Найти все целые числа из промежутка от 300 до 600, у которых сумма делителей кратна 10.

13) Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается).Найти все пары дружественных чисел, меньших 50000.

14) Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом. Найти среднее арифметическое всех чисел последовательности (без учета отрицательного числа).

15) Дана непустая последовательность целых чисел, оканчивающаяся числом -1. Определить, есть ли в последовательности хотя бы одно число, кратное 7. В случае положительного ответа определить номер первого из них.

Дата добавления: 2015-06-27