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. Обчислити суму ряду:

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 серед:

a) всіх двухзначных чисел;

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

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

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

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

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

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

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

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

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

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

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

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

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

№11

Тема уроку:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1) цикл FOR