Результати роботи програми

Рисунок 1.5 – Приклад роботи програми " вибір "

1.1.6 Математичні функції

В VBA визначені математичні функції. Аргумент завжди запи­сується в дужках. Далі наведені позначення функцій.

Функції sin(х) і cos(x) записуються як в математиці. Зворотні тригонометричні функції, якщо , обчислюються за формулами:

Функції Int(х) та Fix(х) для додатних чисел відкидають дробову частину числа. Для від’ємних чисел Int(х) знаходить найближче ціле ліворуч від х, а Fix(х) – найближче ціле праворуч від х, тобто:

Int(99. 8) = 99, Fix(99. 8) = 99, Int(–99. 8) = –100, Fix(–99. 8) = –99

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

ü Які типи даних використовуються в VBA?

ü Оператор присвоювання, правила запису арифметичних виразів.

ü Математичні функції.

ü Логічні операції і правила запису логічних виразів.

ü Умовний оператор. Приклади.

ü Оператор вибору Select Case. Правила запису списків умов.

ü Діалогове вікно InputBox, його аргументи

ü Діалогове вікно MsgBox, його аргументи і кнопки.

1.3 Індивідуальні завдання

Напишіть програми на VBA для кожного завдання. Усі вхідні дані необхідно вводити за допомогою функції InputBox, а результати роботи виводити в діалогове вікно MsgBox або на новий Лист Excel.

Варіант 1

1. Ввести об’єм V та висоту h циліндру. Визначити радіус його осно­ви, якщо формула об’єму циліндра має вигляд:

2. Ввести натуральне число N (N<1000) та визначити чи ділиться воно на 3. Використати ознаку: якщо сума цифр числа ділиться без залишку на 3, то воно теж ділиться на 3.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 2

Ввести вагу чоловіка у фунтах. Перевести її в кілограми, якщо відомо, що 1 фунт = 400 г.

Ввести назву місяця і визначити до якої пори року він відноситься.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 3

Ввести радіус кола. Знайти довжину кола С і площу круга S за формулами: С=2πR і S=πR ² .

Ввести натуральне число N (N< 100) і визначити чи кратне воно 5. Використати властивість, що число кратне 5, якщо остання цифра його дорівнює 0 або 5.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 4.

Ввести радіуси R та r верхньої і нижньої основи зрізаного конуса та його висоту h. Обчислити об’єм V конуса за формулою

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

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 5.

Катети прямокутного трикутника рівні а і b. Визначити його пло­щу S і периметр P по формулах: .

Студент одержує на іспиті оцінку 2, 3, 4 або 5. Ввести її та записати словами: незадовільно, задовільно, добре або відмінно.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 6.

Ввести температуру за шкалою Цельсія (). Визначити темпера­туру за шкалою Фаренгейта (). Перехід із градусів за шкалою Цельсія () в градуси за шкалою Фаренгейта здійснюється за формулою

З клавіатури ввести деяке число від 1 до 9. Записати його словом.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 7.

Ввести вартість покупки в копійках. Перевести її в гривні.

Студент проходив тестування. Ввести кількість балів та вивести його оцінку за такою шкалою:

менше 50 балів – незадовільно;

від 50 до 64 балів – задовільно;

від 65 до 79 балів – добре;

більше 79 балів – відмінно.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 8.

Трикутник заданий координатами своїх вершин A(x₁, y₁), B(x₂, y₂) i C(x₃, y₃). Обчислити площу трикутника S за формулою:

Ввести один зі знаків арифметичних дій: +, –, *, / та записати його словами.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 9.

Ціна товару указана в гривнях. Ввести курс долара і визначити ціну товару в доларах.

Ввести 3 числа та перевірити чи може існувати трикутник з таки­ми довжинами сторін. Використати властивість, що у трикутника сума будь–яких двох сторін більше, ніж третя сторона.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 10.

Знайти суму S нескінченно спадної геометричної прогресії за формулою , де – перший член прогресії, q – знамен­ник, причому . Значення та q ввести з клавіатури.

Ввести позначення однієї із сторін світу літерою N, S, W або E та записати її словом північ, південь, захід або схід.

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 11.

Довжина сторони рівностороннього трикутника дорівнює а. Знайти його площу за формулою .

Визначити чи є указаний рік високосним. (Рік високосний, якщо його номер ділиться на 4 без залишку).

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 12.

Для заданого року визначити його століття. Для цього треба знай­ти кількість сотень у номері року і додати 1.

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

Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.