Циклы с условием
Цикл с неизвестным числом шагов
Пример: требуется отпилить полено от бревна. Сколько раз надо сделать движения пилой?
Задача 1: Ввести целое число и определить число цифр в нем.
Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик.
Проблема: Неизвестно, сколько шагов надо сделать.
Решение: Надо остановиться, когда n = 0, т.е. надо делать «пока n <> 0».
program qq;
var n, k: integer;
begin
writeln('Введите целое число');
read(n);
k := 0;
while n <> 0 do begin
k := k + 1;
n := n div 10;
end;
writeln('В числе ', n, ' нашли ', k, ' цифр');
end.
Цикл с предусловием
while <условие> do begin
{тело цикла}
end;
Особенности цикла while:
• можно использовать сложные условия:
while (a < b) and (b < c) do begin
{тело цикла}
end;
• если в теле цикла только один оператор, слова begin и end можно не писать:
while a < b do
a := a + 1;
• условие пересчитывается каждый раз при входе в цикл
• если условие на входе в цикл ложно, цикл не выполняется ни разу
a := 4; b := 6;
while a > b do
a := a – b;
• если условие никогда не станет ложным, программа зацикливается
a := 4; b := 6;
while a < b do
d := a + b;
Задание 1. Сколько раз выполняется цикл?
а) a := 4; b := 6;
while a < b do a := a + 1;
б) a := 4; b := 6;
while a < b do a := a + b;
в) a := 4; b := 6;
while a > b do a := a + 1;
г) a := 4; b := 6;
while a < b do b := a - b;
д) a := 4; b := 6;
while a < b do a := a - 1;
Цикл с постусловием
repeat
{тело цикла}
until <условие>;
Особенности цикла repeat:
• можно использовать сложные условия
• цикл выполняется хотя бы один раз
• условие пересчитывается каждый раз при выходе из цикла
• цикл заканчивает выполнение когда условие становится верным
• если условие на выходе цикла всегда ложно, программа зацикливается
Задание 2. Сколько раз выполняется цикл?
а) a := 4; b := 6;
repeat a := a + 1; until a > b;
б) a := 4; b := 6;
repeat a := a + b; until a > b;
в) a := 4; b := 6;
repeat a := a + b; until a < b;
г) a := 4; b := 6;
repeat b := a - b; until a < b;
д) a := 4; b := 6;
repeat a := a + 2; until a < b;
Решим задачу 1 с использованием цикла с постусловием:
program qq;
var n,k: integer;
Begin
Read(n); k:=0;
repeat
n:=n div 10;
k:=k+1;
until n = 0;
writeln(‘k=‘,k);
end.
Задача 2. Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10.
program qq;
var n, a, s: integer;
Begin
Read(n); s:=0;
repeat
a:= n mod 10;
s:=s+a;
n:=n div 10;
until n = 0;
if s=10 then writeln(‘верно‘);
end.
Задание 3. Определить результат выполнения фрагмента программы:
| а) | s: =0; i: =1; repeat s:= s +10 Div i; i:=i+1; until I>5; | б) | a: =1; b: =1; While a <= 4 Do begin a: =a + 1; b: = b + 5; end; |
Задача 3. Составить программу нахождения количества делителей числа n (значение n вводится с клавиатуры).
Решение: Делители числа n будут находиться в диапазоне от 1 до n. Чтобы найти количество делителей нужно проверить является ли число x делителем числа n. (x= 1, 2, 3, …, n).
Read(n);
k:=0; x:=1;
While x<=n do
Begin
If n mod x =0 then k:=k+1;
x:=x+1;
End;
Задача 4. Составить программу нахождения всех простых чисел n от 1 до 1000 (значение n вводится с клавиатуры). Число называется простым, если у него нет делителей кроме 1 и самого числа.
Решение: Нужно подсчитать делители в диапазоне от 2 до n-1 для числа n, если количество таких делителей равно 0, то число простое.
Алгоритм будет содержать вложенный цикл. Исполнение вложенных циклов происходит так: для каждого значения параметра внешнего цикла происходит полная «прокрутка» внутреннего цикла.
Program z3;
Var n, x, k:integer;
begin
For n:=1 to 1000 do begin
K:=0; x:=2;
While x<=n-1 do
Begin
If n mod x =0 then k:=k+1;
X:=x+1;
End;
If k=0 then writeln (n, ‘-простое’);
End;
End.