Розглянемо декілька прикладів:

Знайти суму всіх натуральних чисел від 1 до n.

program zadacha3_1;

var i,n,s:integer;

Begin

writeln('введіть натуральне n'); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('сумма від 1 до',n,' = ',s);

End.

В даному циклі змінна i автоматично змінюється від 1 до n з кроком 1. Тому до змінної s додається i спочатку рівна 1, потім 2, потім 3, і т.д. до n, відповідно змінна s приймає значенні 1, 3, 6, 10, 15 ...

Задане натуральне n. Обчислити суму ряду:

S=1 - 1/2 + 1/3 - 1/4 + 1/5-........1/n

program zadacha3_2;

var i,n,a:integer;

s:real;

Begin

writeln('Введіть n');

readln(n);

s:=1;a:=1;

for i:=2 to n do

begin

а:=(-1)*a;

s:=s+a/i;

end;

writeln('Сумма ряду S= ',s);

End.

Визначити кількість тризначних натуральних чисел, сума цифр яких рівна заданому числуN.

program zadacha3_3;

var с1,с2,с3,i,n,kol:integer;

Begin

writeln('Введіть n');

readln(n);

kol:=0;

for i:=100 to 999 do

begin

c1:=i div 100;

c2:=(i div 10) mod 10;

c3:=i mod 100;

if c1+c2+c3=n then kol:=kol+1;

end;

writeln('Кількість таких чисел = ',kol);

End.

Питання для повторення:

1. Для чого призначений оператор циклу?

2. Які існують цикли в мові Паскаль?

3. Який формат запису має оператор FOR?

4. Як працює оператор FOR?

5. В яких випадках застосовується оператор FOR?

6. Скільки разів буде виконаний цикл, і чому буде рівна змінна S після виконання:

s:=0; n=6;

for i:=3 to n do

s:=s+i;

7. Як в тілі циклу виконати декількох операторів?

Завдання для самостійної роботи:

1. Знайти суму всіх непарних тризначних чисел.

2. Знайти суму позитивні кратні 7 чисел, менших 100.

3. Знайти всі числа, які діляться на N серед:

1. всіх двухзначных чисел;

2. всіх тризначних чисел.

4. Скласти програму обчислення суми квадратів чисел від 1 до n.

5. Серед двозначних чисел знайти ті, сума квадратів цифр яких ділиться на 13.

6. Знайти всіх дільників для заданого числа n.

7. Дано натуральне число n. Обчислити:

a) 2n; b) 3n з) n!;

8. Серед чотиризначних чисел вибрати ті, у яких:

1. всі чотири цифри різні (наприклад: 3167, 9012);

2. є три однакові цифри (наприклад: 1311, 7779);

3. цифри попарно різні (наприклад: 1331, 7979, 2255);

4. цифри утворюю зростаючу послідовність (наприклад: 1389, 4678);

9. Написати програму пошуку чисел <1000, які при розподілі на 2 дають в залишку 1, при розподілі на 3 дають в залишку 2, при розподілі на 4 - в залишку 3, при розподілі на 5 - в залишку 4, при розподілі на 6 - в залишку 5 а при розподілі на 7 дають в залишку 6.

Вивчаємо “Цикли”

Тема уроку:

Алгоритми з повтореннями.

Цикл з передумовою WHILE.

Цикл з післяумовою REPEAT.

Мета заняття:

1. Закріпити поняття про цикли;

2. Познайомитися з циклами WHILE і REPEAT;

3. Отримати навики рішення алгоритмів з повтореннями.

На минулому занятті ми познайомилися і навчилися використовувати рахунковий цикл FOR.

Продовжимо роботу по цій темі і познайомимося з ще двома циклами:

- цикл WHILE з предусловием;

- цикл REPEAT.UNTIL з постусловием.

Ці цикли зручно використовувати тоді, коли наперед невідомо число повторень.

Вирішимо задачу zadacha3_1 використовуючи цикли WHILE і REPEAT

спробуємо зрозуміти принцип роботи цих циклів.

Знайти суму всіх натуральних чисел від 1 до n.