Лабораторна робота № 7

Тема: Програми циклічної структури. Оператор циклу з післяумовою.

Мета: Формування вмінь та навичок написання програм мовою Pascal з використанням циклу з післяумовою.

Контрольні запитання:

1. Запишіть загальний вигляд оператора циклу з післяумовою.

2. Як працює оператор циклу з післяумовою?

3. Чи виконуватиметься тіло циклу, якщо умова при першій перевірці набула значення «хиба»?

4. В чому полягає принципова відмінність циклів While і Repeat?

5. Чи завжди замість циклу з передумовою можна використати цикл з післяумовою і навпаки?

Завдання 1. Написати програму.

Вимоги до завдання:

- числові значення параметрів обчислень ввести з клавіатури з відповідною перевіркою коректності даних та їх типів;

- використати оператор циклу з післяумовою;

- не використовувати масиви.

Варіанти:

1. Є перші N натуральних чисел. Визначити середнє арифметичне парних значень і середнє арифметичне непарних значень.

2. Підрахувати суму всіх натуральних чисел, що діляться на 3 і не перевищують числа N.

3. Обчислити середнє геометричне елементів натурального ряду від 1 до N (N не перевищує 12).

4. Піднести до степеня 9 число 3, не використовуючи безпосередню операцію піднесення до степеня.

5. Обчислити суму перших N чисел ряду

6. Знайти різницю між сумами двоцифрових чисел натурального ряду, розмішених на парних і на непарних місцях.

7. Обчислити суму S=sin1°+sin2° + sin 3° +... + sin 45°.

8. Підрахувати кількість натуральних чисел, кратних числу 6, що не перевищують
числа N.

9. Обчислити суму кубів двозначних непарних чисел.

10. Кожен член натурального ряду від 1 до 30 зменшити в три рази та обчислити добуток отриманих чисел.

11. Обчислити суму всіх трьохзначних чисел, кратних числу 8.

12. Знайти суму перших N доданків ряду

13. Обчислити суму квадратів чисел -8, -6, -4,..., 4, 6, 8.

14. Обчислити середнє геометричне всіх непарних чисел від 10 до 50.

15. Знайти суму цілочисельних координат точок, що належать відрізку [-3.5; 12, 8].

Завдання 2. Скласти програму.

Вимоги до завдання:

- числові значення параметрів обчислень ввести з клавіатури з відповідною перевіркою коректності даних та їх типів;

- програму написати у двох варіантах:

o при написанні програми використати оператор циклу Repeat;

o при написанні програми використати оператор циклу While;

- масиви не використовувати.

Варіанти:

1. Визначити перший від'ємний елемент послідовності . Вивести номер і значення цього елемента послідовності.

2. Обчислити добуток перших семи додатніх елементів послідовності

3. Дано дійсне число b > 0. Послідовність утворена за законом . Знайти перший від'ємний елемент цієї послідовності.

4. Дано дійсне число b > 0. Послідовність утворена за законом . Отримати всі , що не перевищують b.

5. Вирахувати n-й член послідовності, утвореної дробами , де чисельник (знаменник) наступного елемента послідовності, починаючи з третього, отримується додаванням чисельників (знаменників) двох попередніх елементів.

6. Для заданого х обчислити наближено суму , припиняючи обчислення, коли черговий член суми за абсолютною величиною буде меншим 0.001.

7. Для заданого х обчислити суму , припиняючи обчислення, коли черговий член суми за абсолютною величиною буде меншим 0.0001.

8. Населення двох країн рівні Н1 іН2, а приріст за рік – відповідно ПІ і П2. Відомо, що Н1> Н2 і П1< П2. Підрахувати, через скільки років населення другої країни перевищить населення першої країни.

9. Розв'язати рівняння , обчислюючи . Обчислення припинити, коли буде виконана умова .

10. Комп'ютер (за допомогою датчика випадкових чисел) генерує результати кидань двох кубиків до тих пір, поки не випаде дві шістки. З’ясувати, через скільки кидань станеться ця подія. Вивести всі числа, що при цьому генеруються.

11. Почавши тренування, спортсмен за перший день пробіг М км. Кожного наступного дня він збільшував денну норму на З% відносно норми попереднього дня. Визначити, через скільки днів спортсмен буде пробігати за день більше N км (N> M).

12. При умові попереднього завдання визначити, через скільки днів спортсмен пробіжить сумарний шлях не менше L км.

13. Обчислити суму перших десяти додатніх членів послідовності

14. При заданому х обчислити суму , припиняючи обчислення, коли черговий член суми за абсолютною величиною буде меншим 0.0001.

15. Лісництво веде заготівлю ділової деревини. Початковий об'єм деревини на території лісництва був рівний 120000 м³. Щорічний природний приріст становить 5.5%. Річний план заготівлі деревини – 9500 м³. Через скільки років об'єм деревини на території лісництва стане меншим 23000м³? Вивести об'єм деревини на кінець кожного року до настання цієї події.