Програмування на мові Паскаль. Цикли з умовою

потрібно зробити рух пилкою?
Задача: Ввести ціле число (<2000000) і визначити кількість цифр у ньому.
Ідея розв’язання: Відрізаємо послідовно останню цифру, збільшуємо лічильник.
Проблема: Невідомо, скільки кроків потрібно зробити.
Розв’язання: Потрібно зупинитися, коли n = 0, тобто потрібно робити “поки n <> 0".

n div 10;

обнулити лічильник цифр

ввести n

виконувати "поки n <> 0"

0;
while n <> 0 do begin
count := count + 1;
n := n div 10;
end;
writeln('В числі ', n, ' знайшли ',
count, ' цифр');
end.

, n1: integer;

n1 := n;

n1,

виконувати "поки n <> 0"

складені умови:
якщо в тілі циклу тільки один оператор, слова begin і end можна не писати:

while (a {тіло циклу}
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;

b do a := a + 1;

2 рази
a = 6

a := 4; b := 6;
while a < b do a := a + b;

1 раз
a = 10

a := 4; b := 6;
while a > b do a := a + 1;

0 разів
a = 4

a := 4; b := 6;
while a < b do b := a - b;

1 раз
b = -2

a := 4; b := 6;
while a < b do a := a - 1;

зациклювання

{тіло циклу}
end;

i := 1;
while i <= 10 do begin
{тіло циклу}
i := i + 1;
end;

for i:=a downto b do
begin
{тіло циклу}
end;

i := a;
while i >= b do begin
{тіло циклу}
i := i - 1;
end;

Заміна while на for можлива тільки тоді, коли можна наперед розрахувати кількість кроків циклу.

Заміна циклу for на while можлива завжди.

число:
1234
Сума цифр числа 1234 рівна 10.
"5": Ввести ціле число і визначити, чи правда, що в його записі є дві однакові цифри.
Приклад:
Ввести ціле число: Ввести ціле число:
1234 1224
Ні. Так.

…
1, 2, 4, 8, 16, 32, …

an = n

a1 = 1, an+1 = an+1

a1 = 1, an+1 = an + n

an = 2n-1

a1 = 1, an+1 = 2an

b1 = 1, bn+1 = bn+1

c1 = 2, cn+1 = 2cn

0,001:

Елемент послідовності (починаючи з №2):

b := b+1;

c := 2*c;

z := -z;

1; c := 2; z := -1; a := 1;

початкове значення

a := z*b/c;
b := b + 1; c := 2*c; z := -z;

перший елемент

новий елемент

зміни

0; z := -1;
b := 1; c := 2; a := 1;
while abs(a) > 0.001 do begin
S := S + a;
a := z * b / c;
z := - z;
b := b + 1;
c := c * 2;
end;
writeln('S =', S:10:3);
end.

перехід до наступного доданка

початкове значення

збільшення суми

розрахунок елемента послідовності

суму елементів послідовності з точністю 0,001:
Відповідь:
S = 1.220

цифр в ньому.
Проблема: Як не дати ввести від'ємне число або нуль?
Розв’язання: Якщо вводиться неправильне число, повернутися назад до введення даних (цикл!).
Особливості: Один раз тіло циклу потрібно виконати в будь-якому випадку => перевірку умови циклу потрібно виконувати в кінці циклу (цикл с післяумовою).

Цикл с післяумовою – це цикл, в якому перевірка умови виконується в кінці циклу.

n

основний алгоритм

> 0;
... { основний алгоритм }
end.

until n > 0;

умова ВИХОДУ

Особливості:
тіло циклу завжди виконується хоча б один раз
після слова until ("до тих пір, поки не…") ставиться умова ВИХОДУ із циклу