Використання функцій обробки даних типа ДАТА/ЧАС

3.1. Вивести прізвища туристів чоловічої статі, що народилися після 1960 року, і визначити їхню кількість.

3.2. Підрахувати кількість дітей до 12 років і зробити їм знижку на квитки у розмірі 30%, вивести їхні прізвища.

3.3. Підрахувати кількість туристів жіночої статі, що народилися в 1980 році, і вивести їхні прізвища.

3.4. Підрахувати кількість туристів, що вилітають у жовтні, скільки з них - чоловічої статі.

3.5. Підрахувати кількість туристів, що вилітають взимку в Німеччину. і вивести прізвища цих туристів.

3.6. Підрахувати кількість рейсів, що вилітають по понеділках, і вивести їх список.

3.7. Підрахувати кількість рейсів, що вилітають вранці, і вивести назву їх авіакомпаній.

3.8. Підрахувати кількість дітей до 12 років і зробити їм знижку на квитки у розмірі 30%, вивести їхні прізвища.

3.9. Підрахувати кількість туристів, що вилітають на Різдво, і зробити їм знижку на квитки у розмірі 40%, вивести їхні прізвища.

3.10. Підрахувати кількість рейсів, що вилітають у першу декаду місяця, і вивести назву відповідних авіакомпаній.

Приклад вирішення

Завдання 1.Вивести список всіх, хто народився пізніше квітня цього століття.

Результат вирішення задачі виглядатиме таким чином:

Формульний вигляд вирішення задачі.

Форматування  даних таблиці

4.1. Відформатувати таблицю 2 так, щоб у стовпчику СТАТЬ чоловіки визначалися зеленим кольором, а жінки - рожевим.

4.2. Відформатувати таблицю 2 так, щоб певне прізвище (за вибором студента) людини (вона у розшуку) було виділено червоним кольором.

4.3. Відформатувати таблицю 2 так, щоб у стовпчику Авіакомпанії введення українських авіаліній (МАУ) виділялося жовтим кольором.

4.4. Відформатувати таблицю 2 так, щоб ціни на квитки більше 500 у.о. виділялись помаранчевим кольором.

 4.5. Відформатувати таблицю 2 так, щоб введення часу ранкових рейсів здійснювалось синім кольором.

4.6. Відформатувати таблицю 2 так, щоб введення зимових дат вилиту здійснювалось блакитним кольором.

4.7. Відформатувати таблицю 2 так, щоб введення бізнес-класу здійснювалось червоним кольором.

 4.8. Відформатувати таблицю 2 так, щоб введення країн Туреччина і Ізраїль здійснювалось блакитним кольором.

4.9. Відформатувати таблицю 2 так, щоб дати народження туристів похилого віку (дата народження раніше 1січня 1943 р. ) вводилися червоним кольором.

4.10. Відформатувати таблицю 2 так, щоб дати народження туристів дитячого віку (дата народження пізніше 1 січня 2000 р. ) вводилися зеленим кольором.

Завдання. Відформатувати таблицю так, щоб у стовпчику СТАТЬ чоловіки визначалися червоним кольором, а жінки - зеленим.

На рисунку 4.1 показано результат виклику і заповнення вікна«Умовне форматування» (Формат \ Условное форматирование)відповідно умовам задачі.

Рис. 4.1

Тема АЛГОРИТМИ і   VBA-ПРОГРАМУВАННЯ

Лінійні алгоритми

5.1.Задано довжину ребра куба. Знайти об’єм і площу його бічної поверхні.

    5.2.Задано два додатних числа а і b. Знайти їх середнє арифметичне й середнє геометричне.

5.3.Задано катети прямокутного трикутника. Знайти його гіпотенузу й площу.

5.4.Визначити площу правильного n-кутника зі стороною а, описаного біля кола радіуса R.

5.5.Два опори R₁ і R₂ з'єднані паралельно. Знайти загальний опір з'єднання.

5.6.Задано гіпотенузу і катет трикутника. Знайти другий катет і площу трикутника.

5.7.Задано сторону рівностороннього трикутника. Знайти площу цього трикутника.

5.8.Відома довжина кола. Знайти площу круга.

5.9.Обчислити період гармонійних коливань маятника довжиною L.

5.10. Визначити час падіння каменя на поверхню землі з висоти h.

5.11. Знайти площу рівнобічної трапеції з основами а і b, і кутом a (у радіанах) при більшій основі а.

5.12. Знайти площу кільця, внутрішній радіус якого дорівнює R₁, а зовнішній – R₂ (R₂>R₁).

5.13. У прямокутному трикутнику задані два катети. Знайти радіуси вписаного й описаного кола.

5.14. Трикутник заданий довжинами сторін. Знайти радіус вписаного й описаного кола.

5.15. Знайти об’єм і площу бічної поверхні прямокутного паралелепіпеда, якщо задані 3 сторони: а, b і c.

5.16. Знайти суму n членів арифметичної прогресії з першим елементом а і різницею d.

5.17. Трикутник заданий двома сторонами і кутом між ними. Знайти радіус описаного кола.

5.18. Площина задана рівнянням Аx+Вy+Cz+D=0. Знайти відстань від точки P (x₀,y₀,z₀) до даної площини.

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

5.20. Задано гіпотенузу і катет трикутника. Знайти другий катет і радіус описаного кола.

5.21. Трикутник заданий довжинами своїх сторін. Знайти довжини висот.

5.22. Обчислити периметр трикутника і його площу за формулою Герона.

5.23. Задано площу круга S. Обчислити довжину кола C.

5.24. Знайти відстань між точками А(x₁,y₁,z₁) і B(x₂,y₂,z₂) .

5.25. Задані: висота конуса h і радіус основи конуса r. Знайти об’єм конуса і повну поверхню конуса.

5.26. Задані v₁, v₂, t₁, t₂. Нехай змішано v₁ літрів води температури t₁ з v₂ літрами води температури t₂. Обчислити об’єм і температуру суміші, що утворилася.

5.27. Трикутник заданий координатами (x₁,y₁), (x₂,y₂), (x₃,y₃) своїх вершин. Знайти периметр трикутника.

5.28. Для готування вапняно-цементного розчину необхідно А % вапняного тіста, В % білого цементу, C % кухонної солі, D % пігменту, інше становить вода. Скласти програму знаходження необхідної кількості води F для готування Q кг розчину.

5.29. Знайти суму членів арифметичної прогресії Sn за заданим значенням першого члена прогресії а₁, різниці d, параметра n.

5.30. Знайти суму членів геометричної прогресії Sn за заданим значенням першого члена прогресії b₁, знаменника q, параметра n.

РОЗГАЛУЖЕНІ АЛГОРИТМИ

6.1. Для заданих a і b одержати

6.2. В комп'ютер надходять результати змагань по плаванню для трьох спортсменів. Вибрати і надрукувати кращий результат.

6.3. Задано координати двох точок. Визначити, чи лежать вони на одному колі із центром на початку координат.

6.4. Визначити, чи належить точка з координатами (x,y) колу радіуса R із центром на початку координат.

6.5. Визначити, чи належить задана точка (х,у) заштрихованій області (рис. 6.1).

Рис. 6.1.

6.6. Скласти програму рішення квадратного рівняння ax²+bx+c=0

6.7. Для заданих a, b, c одержати z = max[min(a,b),c].

6.8. Задані x, y, z. Обчислити max(x+y+z,хуz).

6.9. Задані a, b, c. Перевірити, чи виконується нерівність а<b<c.

6.10. Визначити, чи належить задана точка (х,у) заштрихованій області (рис. 6.2).

Рис. 6.2.

6.11. Скласти програму рішення двох рівнянь із двома невідомими за правилом Крамера.

6.12. Вводяться координати трьох векторів =(х,в,z); =(u,v,t); =(b,f,t). Визначити, чи є компланарними вектори , , .

6.13. Вводяться координати векторів =(х,в,z), =(u,v,t). Визначити, чи є колінеарними вектори:  = 2  + 4 ,  = З  - .

6.14. У продажі книг у книгарні бере участь комп'ютер. Скласти програму, що запитує вартість книг, кількість грошей, внесених покупцем, а також визначає належну здачу (якщо грошей заплачено більше), друкує "СПАСИБІ", якщо здача не потрібна або видає повідомлення про недостатність внесеної суми.

6.15. Задано дійсні числа а, b, c. З'ясувати, чи існує трикутник із заданими сторонами.

6.16. Визначити, чи лежить точка (x,y) усередині кільця, утвореного колами з радіусами R₁ й R₂ (R₁>R₂) та із центром на початку координат.

6.17. Задано площі круга S₁=70 і квадрата S₂=36,74. Визначити, чи поміститься квадрат у колі.

6.18. Скласти програму для визначення кращого віку кандидатури для вступу в шлюб, користуючись міркуванням: вік дівчини дорівнює половині віку чоловіка плюс 7, вік чоловіка визначається відповідно як подвоєний вік дівчини мінус 14. Програма повинна запитувати стать і вік вступаючого в шлюб.

6.19. Задано змінні х і у. З'ясувати, чи належить точка з координатами (х,у) кільцю із центром на початку координат із зовнішнім радіусом 3 і із внутрішнім радіусом 2,5.

6.20. Задано три числа. Підняти до квадрата ті з них, значення яких від'ємні.

6.21. Літак летить із пункту А в пункт В (відстань між якими S) із власною швидкістю v₁. Скласти програму розрахунку часу польоту, якщо в шляху може бути вітер зі швидкістю v₂. Програма повинна запитувати, чи є вітер взагалі, а також його напрям, а саме: зустрічний або попутний.

6.22. При облицюванні стіни робота вважається виконаною, якщо ширина швів між плитками d<c, де c - деякий норматив. Скласти програму для виведення на екран напису "Робота зроблена" або "Робота не зроблена", якщо на стіні довжиною L в один рядок покладено N плиток шириною 1.

6.23. Визначити, чи лежить точка (х,у) усередині еліпса х²/169+y^2/25=1.

6.24. Визначити, чи перетинаються коло із центром у точці (х₁,у₁) і радіусом R₁ і коло із центром у точці (x₂,y₂) і радіусом R₂.

6.25. Визначити, чи лежить точка (х,у) усередині кільця, утвореного колами з радіусами R₁ і R₂ (R₁>R₂), і центром в точці (x₁,y₁ ).

6.26. Визначити вартість Q т зерна, вологість якого А %. Відомо, що тонна зерна базової вологості (А1 %) коштує C грн, надбавка за кожен відсоток вологості нижче базису становить Р грн, знижка на кожен % вологості вище базису становить R грн.

6.27. Визначити номер чверті площини, в якій знаходиться точка (х,у).

6.28. Перерозподілити значення змінних х и у так, щоб у х виявилося більше із цих значень, а в у - менше.

6.29. З'ясувати, чи пройде цегла з ребрами а, b, c у прямокутний отвір зі сторонами х и у. Просовувати цеглу в отвір дозволяється тільки так, щоб кожне з ії ребер було паралельне або перпендикулярне кожній із сторін отвору.

6.30. Задано числа а, b, c. Подвоїти ці числа, якщо a³b³c, і замінити їхніми абсолютними значеннями, якщо це не так.

Примітки до розділу 6:

1. Рішення системи 2-х рівнянь із 2-мя невідомими  у випадку, якщо , за правилом Крамера описується наступними формулами: , , де ,

2. Необхідною і достатньою умовою колінеарності двох векторів x=(x₁,x₂,x₃) і y=(y₁,y₂,y₃) є:

3. Необхідною і достатньою умовою компланарності 3-х векторів х=(x₁,x₂,x₃), в=(y₁,y₂,y₃), z=(z₁,z₂,z₃) є:

    Приклад виконання

    Завдання.Скласти  блок-схему і програму обчислення

                         z=max[min(x,y), a/b)]

    Позначимо: m=min(x,y).

         Блок-схема                         Програма     

        0           

             Начало               Public Sub pr1()

1                                        Dim a,b,x,y,m,z As Single

       Ввод x,y,a,b                  x=Val(InputBox("Введите х"))

Нет 2       да               y= Val(InputBox("Введите y"))

              x<y                             a= Val(InputBox("Введите a"))

3                    4                     b= Val(InputBox("Введите b"))

  m=y                m=x           if x<y then m=x else m=y

                                                    if m>a/b then z=m else z=a/b       

                                                   Msgbox "z=" & z 

нет 5            да            End Sub 

            m>a/b         

6                             7      

z=a/b                   z=m