
- •§ 1. Поняття про інформаційне моделювання
- •Опорний конспект
- •§ 2. Етапи розв’язання задач на комп’ютері
- •§ 3. Середовища розробки проектів
- •§ 4. Властивості елементів керування
- •§ 1. Поняття про інформаційне моделювання 2
- •Контрольна робота № 1
- •§ 5. Створення проектів
- •§ 6. Основні поняття мови програмування
- •9. Процедура кнопки «Обчислити» для задачі про калькулятор.
- •§ 7. Алгоритм та його властивості
- •Запитання
- •§ 8. Різновиди алгоритмів
- •Запитання
- •§ 9. Типи даних
- •§ 10. Лінійні програми
- •Запитання та вправи
- •Контрольна робота № 2
- •§11. Введення даних і виведення результатів
- •§ 12. Текстові файли даних
- •§ 13. Програми з розгалуженням
- •§ 1. Поняття про інформаційне моделювання 2
- •Запитання
- •§ 14. Елементи керування прапорці і перемикачі
- •§ 15. Алгоритмічна конструкція вибір
- •Контрольна робота № 3
- •§ 16*. Списки
- •§ 17. Підпрограми. Функції користувача
- •§ 18. Підпрограми. Процедури користувача
- •§ 19. Цикли. Цикл з параметром
- •§ 20. Задачі пошуку даних. Цикл «доки»
- •§ 21. Застосування циклів
- •Контрольна робота № 4
- •Розділ 2. Складені структури даних
- •§ 22. Одновимірні масиви. Створення масивів
- •§ 23. Пошук даних в одновимірному масиві
- •1. Пошук даних у масиві за заданим критерієм.
- •5. Проект «На метеостанції». Застосування масивів і процедур користувача у vb.
- •§ 24. Впорядкування одновимірного масиву
- •§ 1. Поняття про інформаційне моделювання 2
- •4. Моделювання предметних областей за допомогою масивів.
- •§ 25. Двовимірні масиви. Створення масивів
- •§ 26*. Опрацювання двовимірних масивів
- •1. Елементи керування DataGridView (vb) та DataGrid (vba).
- •Контрольна робота № 5
- •§ 27. Опрацювання текстових даних
- •§ 28. Структури даних (записи)
- •§ 1. Поняття про інформаційне моделювання 2
- •§ 29. Файли даних прямого доступу
- •5. Vb. Команди для роботи з файлами даних прямого доступу.
- •§ 30. Застосування файлів даних послідовного доступу
- •§ 31. Графіка у vb
- •§ 32. Поняття про об’єктно-орієнтоване програмування
- •Розділ 3. Задачі
- •Складніші задачі*
- •Розділ 4. Vba у програмах пакету ms office
- •§ 33. Застосування vba у ms word
- •§ 34. Vba у програмі ms excell
- •§ 35. Задача про облік товарів на складі
- •§ 36. Розв’язування математичних задач
- •§ 37. Робота 3 базами даних
- •Список літератури
- •§ 1. Поняття про інформаційне моделювання 2
Розділ 3. Задачі
Задач є 18. Кожна задача містить по 25 індивідуальних завдань. Номер завдання визначається номером варіанта і. Номер варіанта — це номер у журналі. Якщо і > 25, то від і потрібно відняти 25.
Для всіх задач потрібно створити алгоритм і скласти програму для консольного режиму чи розробити проект і коди для візуального середовища. Якщо в умові задачі немає конкретних даних, то їх треба задати на власний розсуд, керуючись принципами доцільності й відповідності даних змісту задачі.
Якщо потрібно оформити звіт про розв’язування задачі, то в текстовий документ копіюють умову задачі, тексти кодів і графічне зображення екранної форми проекту (чи вікна з результатами), яке створюють у буфері обміну шляхом натискання клавіші PrintScreer. (PrtSc, копія екрана) або Alt + PrintScreen (копія лише активного вікна) з подальшим вставлянням цієї копії у документ.
Задача 1. Дуже проста задача. Розробити проект або скласти лише графічну схему алгоритму і програму (код) розв’язування задачі, задавши, де потрібно, вхідні дані самостійно.
1. Квіткова клумба має форму круга. Обчислити її периметр і площу за заданим радіусом.
2. Обчислити периметр і площу прямокутного трикутника за заданим катетом та гострим кутом (у радіанах).
3. Обчислити довжину кола і площу круга за заданим діаметром.
4. Ділянка лісу має форму прямокутної трапеції. Обчислити її периметр і площу за заданими сторонами.
5. Ресторан закуповує щодня масло т1 кг по 58,50 грн за кілограм, сметану т2 кг по 28,40 грн, вершки т3 кг по 40,10 грн. Визначити суми, потрібні для купівлі окремих продуктів, і загальну суму.
6. Скільки секунд мають доба, тиждень, рік?
7. Обчислити кінетичну (Е = тv2 / 2) та потенціальну (Р=mgh) енергії тіла заданої маси т, яке рухається на висоті h зі швидкістю v.
8. Ціни на товари зросли на р відсотків. Вивести старі та нові ціни двох товарів.
9. Обчислити площу поверхні S = 4πr2 та об'єм V = 4πr3/3 футбольного м’яча за заданим радіусом r.
10. Швидкість світла — 299792 км/с. Яку відстань долає світло за хвилину, годину, добу?
11. Радіус Місяця — 1740 км. Обчислити площу поверхні (S = 4πr2) та об'єм планети (V = 4πr3/3).
12. Обчислити довжину гіпотенузи та площу прямокутного трикутника за заданими двома катетами.
13. Увести врожайність трьох сортів пшениці (наприклад, 36, 40, 44 т/га) і розміри трьох відповідних полів (у га). Скільки зібрали пшениці з кожного поля і з трьох полів разом?
14. Увести продуктивності роботи трьох труб, які наповнюють басейн, і час їхньої роботи. Скільки води надійшло з кожної труби і з трьох труб разом?
15. Обчислити об'єм, площу бічної поверхні і повну площу куба, якщо відоме ребро.
16. Яку площу і периметр матиме квадрат, описаний навколо круга заданої площі S?
17. Тіло падає з прискоренням g. Визначити пройдений тілом шлях h = gt2/2 після першої та другої секунд падіння.
18. Обчислити периметр і площу прямокутного трикутника із заданими катетами.
19. Телефонні розмови з трьома населеними пунктами коштують с1, с2, с3 коп/хв. Розмови тривали t1, t2, t3 хв. Яку суму нарахує комп’ютер до оплати за кожну розмову і за всі розмови разом?
20. Обчислити площу бічної поверхні S = 2πrh та об'єм V = πr2h діжки за заданою висотою h та радіусом основи r.
21. Купують деяку кількість товарів трьох видів. Ціни відомі. Яка вартість товарів кожного виду і покупки в цілому?
22. Обчислити катет та площу прямокутного трикутника за заданими гіпотенузою та другим катетом.
23. Обчислити сторону та площу S = d2/2 квадрата, якщо відома його діагональ d.
24. Обчислити площу бічної поверхні S = πrl та об'єм V = πr2h/3 конуса за заданою висотою h, твірною l та радіусом основи r.
25. Поїзд їхав t1 год зі швидкістю v1 км/год, t2 год зі швидкістю v2 км/год і t3 год зі швидкістю v3 км/год. Визначити пройдені шляхи з різною швидкістю і повний шлях.
Задача 2. Про трикутник. Трикутник задано координатами вершин А(0; 0), В(г, і-i) та С(-і; і+1), де і - номер варіанта. Обчислити:
Висоту ha та бісектрису Wc.
Медіану та та бісектрису Wb.
Бісектрису Wa та радіус вписаного кола r.
Висоту hа та медіану тb.
Медіану тb та бісектрису Wc.
Бісектрису Wa та радіус описаного кола R.
Висоту hb та бісектрису Wa.
Висоту hb та медіану тс.
Висоту ha і радіус вписаного кола r.
Медіану тс та бісектрису Wa.
Висоту hb та бісектрису Wc.
Медіану тс і радіус вписаного кола r.
Висоту hb та медіану та.
Медіану та і радіус описаного кола R.
Медіану та та бісектрису Wc.
Висоту hc та бісектрису Wa.
Медіану тb і радіус вписаного кола r.
Висоту hc та медіану та.
Медіану mb та бісектрису Wa.
Медіану тс і радіус описаного кола R.
Висоту hc та бісектрису Wb.
Висоту hc і медіану тb.
Висоту hа та радіус описаного кола R.
Висоту ha та бісектрису Wb.
Висоту ha і медіану тс.
Довідка. Для розв’язування задачі про трикутник наведемо формули:
відстань
між точками (x1,
y1),
(x2,
y2):
координати середини відрізка: х =(x1+x2)/2, y=(y1+y2)/2,
півпериметр трикутника: р = (а + b + с) / 2;
площа
трикутника:
;
висоти трикутника: ha = 2s / a, hb =2s / b, hc= 2s / c;
бісектриси
трикутника:
радіус описаного кола: R = abc / (4s);
радіус вписаного кола: r = s / р, де a, b, с — сторони трикутника.
Задача 3. Значения функції. Обчислити у = fi(x), де х = і, а і — номер варіанта.
В умовах цієї і наступних задач є посилання на функції fi. Потрібні функції слід вибирати з табл. 3.1 відповідно до значення числа і (номера варіанта).
Таблиця 3.1. Функції до варіантів
і |
Функція fi(x) |
і |
Функція fi(x) |
1 |
|
14 |
|
2 |
|
15 |
|
3 |
|
16 |
|
4 |
|
17 |
|
5 |
|
18 |
|
6 |
|
19 |
|
7 |
|
20 |
|
8 |
|
21 |
|
9 |
|
22 |
|
10 |
|
23 |
|
11 |
|
24 |
|
12 |
|
25 |
|
13 |
|
|
|
Задача 4. Розгалуження. Про оплату праці. Нехай оплата робіт залежить від виду діяльності (А, Б, В) і нараховується за формулою
де і — номер варіанта. Для робіт типу А відрахування становлять 10%, для Б — 15%, для В — 20%.
Ввести тип робіт. Вивести нараховану суму, відрахування і суму до видачі. Розв’язати задачу двома способами, використовуючи: а) повну команду розгалуження If; б) команду вибору Select Case.
Задача
5*.
Розгалуження.
Значення складеної функції. Обчислити
значення двох функцій:
та
,
ввівши
довільні значення аргумента
х,
параметрів a,
b,
с,
d,
а
також числа і
(номер варіанта). Вибрати ft,
fі+1
з табл.
3.1.
Обчислити
і вивести значення такої складеної
функції:
Підказка: спочатку треба обчислити ер та (О, застосувавши для них коректні назви, наприклад, fi та omega чи от, і лише тоді отримані значення використати як аргументи для обчислення значень функцій fi, fi+1. Рекомендація: застосуйте підпрограми-функції.
Задача 6. Вибір. Скласти програму для розв’язування наведеного нижче завдання, використовуючи команду Select Case. Задати дані так, щоб вибір був з чотирьох-п’яти альтернатив. Використати дві змінні відповідних типів для величин, які треба визначити і вивести їхні значення на екран у кінці коду, тобто команду виведення застосовувати лише один раз після команди Select Case (у тілі команди Select Case команди виведення не писати).
Ввести номер студента зі списку. Вивести його прізвище та зріст.
Є дані про автомобілі. Як вхідне дане ввести номер моделі й отримати такі характеристики: рік випуску і ціну автомобіля.
Ввести номер поїзда. Вивести назву пункту призначення і відстань до нього.
Ввести назву країни. Вивести назву її столиці й кількість великих міст у країні.
Ввести номер дня тижня. Вивести його назву і значення середньої температури у цей день.
Ввести номер трамвая. Вивести назви його двох кінцевих зупинок.
Ввести назву країни. Вивести назву континента і кількість населення країни.
Ввести назву місяця. Вивести назву пори року і номер річного кварталу.
Ввести номер студента. Вивести його ім'я і номер телефону.
Ввести назву міста. Вивести кількість населення і площу міста.
Ввести номер місяця. Вивести назву місяця і номер кварталу.
Ввести номер автобуса. Вивести назву одної кінцевої зупинки і довжину маршруту.
Ввести назву країни. Вивести назви двох міст цієї країни і відстань між ними.
Ввести назву районного центру. Вивести орієнтовну відстань до обласного центру і кількість населення району.
Ввести номер дня тижня. Вивести кількість занять у цей день і назву першого заняття.
Є дані про товари. Ввести числовий код одного з них і отримати його назву і ціну.
Ввести номер місяця. Вивести його назву і кількість днів у ньому.
Ввести числовий код групи (класу). Вивести кількість студентів (учнів) і прізвище старости.
Ввести число з діапазону 0-4. Вивести його написання англійською (чи іншою) та українською мовами.
Ввести номер поїзда. Вивести довідку про кількість місць у ньому і назву пункту призначення.
Ввести назву річки. Вивести довідку про її довжину і країну, де вона протікає.
Ввести ім’я особи. Вивести її вік та адресу.
Ввести номер телефону особи. Вивести її ім’я і дату народження.
Ввести номер квартири в будинку. Вивести площу квартири і кількість мешканців у ній.
Увести назву товару на складі. Вивести його ціну і кількість.
Задача 7. Цикли. Таблиця мір. Побудувати таблицю відповідностей між мірами. Початкове значення міри, крок зміни цього значення та кількість рядків у таблиці (10-15) задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення. Вивести таблицю: а) на екран; б) у текстовий файл.
1 унція = 28.353495 г = 142 карати;
1 драхм = 1.77185 г = 0.06249 унції;
1 карат = 0.2 г = 2.9412 грана;
1 гран = 0.068 г = 0.038378 драхма;
1 пайп = 54.18 пека = 477.33 л;
1 галон (брит.) = 1.2 галона (США) = 4.546 л;
1 галон (США) = 0.0347 сака = 3.785 л;
1 чарка = 0.0568 л = 0.00012 пайпа;
1 відро = 12.3 л = 216 чарок;
1 страйк = 72.73 л =1280,46 чарки;
1 челдрон = 1.309 л = 0.149 пека;
1 сак = 109 л =1.499 страйка;
1 пек = 8.81 л = 0.07929 сака;
1 корд малий = 3.624 куб. м = 128 куб. футів;
1 стандарт = 4.672 куб. м = 0.165 рода;
1 род = 28.3 куб. м = 1000 куб. футів;
1 чейн будівельний = 30.48 м = 100 футів;
фінгер =11.4 см = 4.5 дюйма;
1 нейл = 5.7 см = 2.25 дюйма;
1 фут = 0.3048 м = 12 дюймів;
ярд = 0.9144 м = 3 фути;
кабельт Брит. =0.183 км = 680 футів;
1 кабельт США =219.5 м = 720 футів;
1 дюйм = 2.54 см = 12 ліній;
1 морська миля = 1.852 км = 6076 футів.
Задача 8. Цикли. Обчислення скінченних сум і добутків. Обчислити z:
1) z = а + b; |
10) z = ab- π; |
19) |
z = |2а - cos(b)|; |
2) z = ab; |
11) z = а – 2b; |
20) |
z = 2а - b; |
3) z = tg(b) - а; |
12) z = bа; |
21) |
z = tg(a + b); |
4) z = (а + b)2; |
13) z = cos(ab); |
22) |
z = ln|а + 4b|; |
5) z = 5ab - 4; |
14) z = |а - b|; |
23) |
z = 3ab-cos(b); |
6) z = sin (а) + b; |
15) z = ctg(2a) - b; |
24) |
z = 4а + ехр(b); |
7) z = аb; |
16) z = ехр(3аb); |
25) |
z = 5а – 2b, |
8) z = а2 + 3b; |
17) z = 4bа - b; |
|
|
9) z = (ab)1/4; |
18) z = 2а - b; |
|
|
якщо
де і - номер варіанта, Σ — сума, Π — добуток. Ввести і, вивести значення a, b, z.
Задача 9. Цикли. Табулювання функції і пошук даних. Протабулювати функцію у = fi+3(x) на проміжку [0; і] з кроком h = 0,1i, де і - номер варіанта. Застосувати підпрограму-функцію для обчислення fi+3(x). Результати обчислень вивести у вигляді таблиці пар чисел х, у відповідно з одною і двома цифрами після десяткової коми: а) на екран; б) у текстовий файл.
Крім цього, обчислити і вивести дані, що задовольняють наведений нижче критерій пошуку. Якщо шуканих даних немає, вивести повідомлення «Таких даних немає».
Обчислити суми першого та останнього значень функції.
Обчислити суму та добуток усіх значень функції у, для яких виконується нерівність у < -3,2 або у > 0.
Обчислити добуток та кількість усіх значень функції у, для яких виконується нерівність у < -3 або у > 0,4.
Обчислити добуток усіх від'ємних значень функції у та визначити кількість додатних.
Обчислити добуток значень аргумента (х), для яких 0 < у < 1.
Чи кількість від’ємних значень функції більша за кількість додатних?
Визначити суму додатних значень функції та кількість від’ємних.
Скільки від'ємних і скільки додатних значень є в таблиці?
Обчислити суму та кількість додатних значень функції у.
Обчислити суму квадратів усіх додатних значень функції у.
Обчислити різницю між першим і останнім значеннями у.
Обчислити суму і кількість усіх значень функції у, для яких виконується нерівність у < 1,2 або у > 4.
Обчислити добуток додатних значень та кількість від'ємних.
Чи сума додатних значень більша за добуток від’ємних?
Обчислити добуток і кількість усіх значень функції у, для яких справджується нерівність 1 < у < 3,1.
Обчислити кількість та добуток усіх значень у > 5.
Обчислити суму квадратів та добуток усіх значень функції у, для яких справджується нерівність -2,41 < у < 5.
Обчислити середнє арифметичне значень функції у, для яких справджується нерівність -1,5 < у < 8.
Обчислити середнє арифметичне всіх від'ємних значень функції.
Обчислити кількість і суму кубів усіх додатних значень.
Знайти середнє арифметичне тих значень функції у, для яких виконуються нерівності у < 0 або у > 1.
Чи середнє арифметичне додатних значень більше від останнього значення?
Обчислити суму та кількість тих значень функції у, для яких виконується нерівність 0 < у < 1.
Обчислити кількість та добуток тих значень функції у, для яких виконується нерівність 1,3 < у < 5.
Яких значень функції більше: додатних чи від’ємних?
9а. Додатково визначити максимальне значення функції та значення аргументу, для якого воно досягається.
9б. Визначити максимальне і мінімальне значення функції і значення аргументів, для яких вони досягаються.
Задача 10*. Цикли. Обчислення нескінченних сум. Розгляньте нескінченно спадну числову послідовність (і — номер варіанта):
10а) ak = fi(k)/k2, де k = 1, 2 ,...;
10б)* ak = (-1 )kfi(k)xk / k!,
де k = 1, 2, ..., x — число з проміжку (0; 1), a k! = 1 * 2 * ... * k.
Обчислити суму елементів аk цієї послідовності, для яких виконується умова |аk | > е, де е=0.001. Число e визначає точність обчислень. Скільки потрібно доданків k, щоб досягнути задану точність: а) 0,001; б) 0,0001? Вивести ці доданки на екран у вигляді таблиці з двома стовпцями (k, аk).
Задача 11. Одновимірні масиви. Аналіз доходу підприємства. Нехай дохід підприємства у ft-му році діяльності обчислюється за формулою уk = 10000sin(k + 2і) умовних одиниць, де k = 1, 2, ..., 10; і — номер варіанта. Якщо уk > 0, то підприємство у відповідний рік мало прибуток, а у випадку уk < 0 — збиток. Вивести на екран таку таблицю: реальний рік, величина доходу.
Підказка: реальний рік = k + 2000.
Пошук даних. Розглянути доходи підприємства протягом десяти років. Виконати додатково завдання свого варіанта, наведене нижче. Вивести повідомлення, якщо шуканих даних немає, наприклад, про те, що відповідних збитків чи прибутків не було.
Обчислити суму прибутків за десять років. Визначити максимальний збиток (якщо збитки були).
Обчислити суму збитків. У якому році збиток був максимальний?
Обчислити суми прибутків і збитків, а також їх різницю. Коли прибуток був максимальний?
Скільки років прибутки становили менше, ніж 10000, але більше, ніж 5000? Який був найбільший збиток?
Обчислити суму збитків. У якому році прибуток був найбільший?
Обчислити суму прибутків у межах 0 < yk< 8000. У якому році підприємство зазнало найбільших збитків?
Скільки років прибутки були в межах від 2000 до 7000? Які це були роки? Який був найбільший прибуток?
Обчислити суму всіх збитків. У якому році збиток був найбільший? Який це був збиток?
Обчислити суму збитків, для яких справджується така умова: yk < -6500 або yk > -1500. Визначити найбільший прибуток.
Визначити суму прибутків та суму збитків. Вивести повідомлення, чи прибутки перекрили збитки.
Обчислити суму прибутків, що були у межах 2300 < yk < 8500. Скільки років підприємство мало такі прибутки?
Обчислити суму збитків, що були у межах -7500 < yk < -2000. Коли прибуток був мінімальний?
Обчислити суму прибутків та суму збитків за перші сім років роботи. Визначити максимальний прибуток за весь період.
Обчислити суми прибутків, що були в межах yk < 1700 або yk > 6000. Скільки років підприємство мало такі прибутки?
Обчислити суму збитків і визначити, скільки років підприємство було збитковим? У якому році збиток був максимальний?
Визначити найбільший збиток. У якому році підприємство мало найбільший прибуток?
У які роки підприємство мало найбільший прибуток та найбільший збиток?
Визначити, чи діяльність підприємства за весь період була прибутковою чи збитковою.
Обчислити суми прибутків і збитків. Визначити найменший прибуток.
Обчислити суму збитків, для яких справджується умова yk < -6000 або yk > -3000. Визначити найбільший прибуток. У якому році він був отриманий?
Обчислити суму збитків. Який саме і в якому році збиток був найменший?
Обчислити середні арифметичні всіх прибутків та збитків.
Обчислити суму прибутків і суму збитків. Чи років з прибутками було більше, ніж років зі збитками?
Обчислити суму прибутків, які були в межах 3150 < yk < 9580. У якому році збитки були найбільші?
Коли прибутки були більші, ніж 5800, та менші, ніж 1000 у.о? Коли був максимальний прибуток?
Задача 12*. Одновимірні масиви та складний пошук. Утворити і вивести масив з десятьма заокругленими до цілих значень елементами числової послідовності yk = 15cos(2k + і), де і — номер варіанта, k = 1, 2, ..., 10.
Виконати завдання свого варіанта.
Якщо немає шуканих даних, то вивести повідомлення про це. Якщо дані з масиву за умовою завдання треба було перетворити, то вивести їхні значення до і після перетворення.
Визначити номер четвертого додатного елемента масиву.
Знайти суму третього та шостого додатних елементів.
Другий від’ємний елемент замінити мінімальним.
Скільки є додатних елементів з мінімальним значенням?
Визначити суму номерів нульових елементів масиву.
Обчислити суму перших чотирьох від'ємних елементів.
Вивести номер передостаннього додатного елемента.
Знайти суму другого від’ємного і другого додатного елементів.
Знайти добуток другого та четвертого елементів більших, ніж 3.
Максимальний елемент поміняти місцями з другим нульовим.
Останній від'ємний елемент замінити найбільшим.
Обчислити добуток другого від'ємного та п'ятого елементів.
Другий елемент, більший ніж 1, замінити нулем.
Вивести номери двох найбільших елементів.
Чи є два елементи з однаковим максимальним значенням?
Максимальний елемент поміняти місцями з четвертим, що задовольняє умову yk > 1.
Третій додатний елемент замінити максимальним.
Визначити номер п'ятого від'ємного елемента.
Обчислити добуток перших трьох додатних елементів та визначити їхні номери.
Обчислити суму другого додатного та третього елементів.
Третій і п’ятий додатні елементи замінити максимальним.
Знайти суму елементів, що є між другим додатним та максимальним.
Вивести добуток номерів двох найменших елементів серед додатних.
Визначити суму номерів другого та третього від'ємного елементів.
Другий і четвертий додатні елементи поміняти місцями.
Задача 13. Двовимірні масиви. Простий пошук. Утворити масив з елементами: а)аkn=10sin(k+п+і); б) аkn = nfi(k) + sin(k)fi(n), де і - номер варіанта, k = 1, 2, 3, 4; п = 1, 2, 3, 4. Вивести його на екран у вигляді таблиці з одною цифрою після десяткової коми. Виконати завдання свого варіанта. Вивести повідомлення, якщо відповідних даних немає.
Обчислити добуток від'ємних елементів масиву.
Обчислити кількість елементів масиву, для яких виконується нерівність 1 < аkп < 6.
Обчислити добуток значень тих елементів, для яких справджується нерівність < -1 або аkп > 1.
Обчислити кількість додатних елементів та їхній добуток.
Обчислити суму квадратів елементів, значення яких більші, ніж 1.
Обчислити добуток квадратів тих елементів масиву, для яких виконується нерівність | аkп | < 3.
Обчислити кількість тих елементів масиву, для яких виконується нерівність аkп > 3, та суму елементів, менших, ніж 9.
Визначити індекси максимального елемента.
Обчислити суму діагональних елементів.
Обчислити добуток тих елементів масиву, для яких виконується нерівність 2 < аkп < 10.
Обчислити суму елементів над головною діагоналлю.
Обчислити середнє арифметичне перших двох рядків.
Обчислити суму додатних елементів над головною діагоналлю.
Знайти максимальний елемент.
Обчислити суму індексів максимального елемента.
Визначити індекси мінімального елемента масиву.
Від’ємні елементи масиву замінити на 0. Знайти суму елементів під головною діагоналлю нового масиву.
Визначити кількість від'ємних та суму додатних елементів.
Обчислити середнє арифметичне тих елементів, для яких виконується нерівність аkп < -5 або аkп > 3.
Чи кількість додатних елементів більша за кількість від’ємних?
Обчислити добуток елементів над головною діагоналлю.
Обчислити середнє арифметичне додатних елементів масиву.
Обчислити суму та кількість тих елементів масиву, для яких виконується нерівність 1< аkп <5.
Обчислити суму діагональних елементів і кількість елементів, значення яких менші, ніж 3.
Обчислити добуток елементів під головною діагоналлю та суму елементів над головною діагоналлю.
Задача 14. Двовимірні масиви. Задача про вибори. Результати голосування занесені у двовимірну таблицю. Нехай шість населених пунктів чи дільниць (це рядки таблиці) позначені номерами k від 1 до 6, а п’ять кандидатів — номерами п від 1 до 5 (це стовпці). Кількість голосів akn у діапазоні від 0 до 5000, набраних кандидатами у кожному пункті (дільниці), визначається або деякою формулою на зразок Ціле(5000|sin(к + n)| ), або за допомогою генератора цілих чисел на зразок Ціле(5000Rnd(i)) тощо, де і - номер варіанта. Вивести на екран і у текстовий файл даних таблицю результатів голосування, де у рядках є дані з населених пунктів, а у стовпцях — дані щодо конкретних кандидатів. Виконати додаткове завдання свого варіанта (визначити і вивести значення шуканих величин). Створити, де треба, одновимірний масив з шуканими даними.
Які підсумкові результати кожного кандидата? (Підказка: утворити одновимірний масив із сум значень у кожному стовпці таблиці).
Які номери населених пунктів, де кількість осіб, що проголосували, перевищила 8000?
Хто з кандидатів набрав найбільшу, а хто — найменшу кількість голосів у четвертому населеному пункті?
Яка кількість голосів була подана за першого і третього кандидатів у всіх населених пунктах?
У якому населеному пункті другий і четвертий кандидати разом набрали найбільшу кількість голосів?
Скільки виборців взяли участь у голосуванні у кожному населеному пункті?
Хто з кандидатів переміг?
Хто з кандидатів набрав максимальну кількість голосів у другому населеному пункті?
У яких населених пунктах кількість осіб, які проголосували, більша від деякого заданого числа пі
Хто з кандидатів отримав голосів менше від деякого числа пі
У якому населеному пункті перший кандидат набрав найбільшу кількість голосів?
У якому населеному пункті проголосувало найбільше виборців?
Хто з кандидатів набрав найбільше голосів у другому і третьому населених пунктах разом?
У якому населеному пункті перший кандидат набрав мінімальну кількість голосів, а в якому — максимальну?
Другий чи четвертий кандидат набрав більше голосів?
Хто набрав максимальну, а хто — мінімальну кількість голосів у першому населеному пункті?
У яких населених пунктах перший і п’ятий кандидат окремо набрали більше, ніж 4500 голосів?
Які номери населених пунктів, де кількість осіб, які прийшли на вибори, не перевищила n=2000?
Хто з кандидатів у всіх населених пунктах набрав голосів більше від деякого заданого числа n?
Хто переміг у третьому населеному пункті?
Де четвертий кандидат набрав найменшу кількість голосів?
Хто набрав найбільшу, а хто — найменшу кількість голосів у другому і третьому населеному пункті разом?
Хто з кандидатів набрав найменшу кількість голосів і де саме?
Скільки кандидатів отримали голосів більше від деякого числа n?
У якому населеному пункті третій кандидат набрав найбільшу кількість голосів?
26*. Чи потрапив хтось із кандидатів у «сідло»? «Сідлом» називають значення, яке є найбільшим у рядку і найменшим у стовпці.
Задача 15. Дані типу String. Опрацювання текстів. Ввести прізвище, ім'я та по батькові як одне текстове дане. Визначити довжину тексту і кількість букв «а» у ньому. Додатково виконати завдання свого варіанта:
Вивести ім'я та кількість букв у третьому слові.
Визначити, скільки букв «а» е у прізвищі.
Вивести три букви — свої ініціали з крапками.
Вивести довжини прізвища та імені.
Вивести прізвище та ініціали.
Вивести ім'я та кількість букв у прізвищі.
Визначити, скільки букв «о» є в імені.
Вивести найдовше слово.
Вилучити усі букви «а» та «о» з прізвища.
Вивести ім'я у стовпчик.
Чи починається хоч би одне слово з букви «М»?
Усі букви «і» в імені продублювати.
Вивести прізвище та кількість букв у імені.
Вивести ім'я у зворотному порядку.
Вивести прізвище у стовпчик.
Вивести ім’я та по батькові, а також кількість букв у імені.
Вивести найкоротше слово.
Вивести дане без пропусків. Скільки букв є в імені?
Вивести довжини трьох слів.
Вивести ім’я та кількість букв у прізвищі.
Вивести ім'я, прізвище.
Кожну букву імені продублювати.
Вивести прізвище у зворотному порядку.
Визначити, скільки букв «а» та «б» є у прізвищі.
Вивести третє слово та кількість букв у прізвищі.
Задача 16*. Дані типу String. Криптографія. Придумати та описати словесно власний спосіб шифрування тексту (на зразок шифру Цезаря тощо). Скласти програму для введення тексту як даного типу String, його шифрування і виведення результату. Додаткове завдання*: розробити програму для дешифрування тексту.
Задача 17. Записи. Файли даних. Моделювання роботи з базою даних засобами мови програмування. Придумати й описати об’єктну модель (структуру, запис чи клас*) для деякої предметної області та скласти програму для створення масиву з шести - семи об’єктів (структур, записів) і опрацювання (пошуку) відповідних даних згідно з деяким сюжетом (критерієм). Вхідні дані ввести у режимі діалогу або з файлу.
Предметну область вибрати за значенням виразу і Mod 10 + 1 з такого списку:
про учнів чи студентів (прізвище, ім'я, оцінки з трьох предметів);
про друзів (ім’я, адреса, дата народження, номер телефону);
про комп’ютери;
про автомобілі;
про аудіотехніку;
про парфуми;
про країни (назва, кількість населення, площа);
про футбол чи інший вид спорту;
про підприємство (назва, кількість співробітників, фонд зарплатні, обсяги випущеної продукції);
про навчальний заклад тощо.
Приклад сюжету (критерію пошуку): створити і вивести на екран дані з масиву записів про автомобілі, які є на деякому складі. Назва моделі, рік випуску, ціна, колір — це опис відповідної об’єктної моделі. Знайти у масиві та вивести на екран назви моделей червоного кольору, які були випущені в 2012 році.
Результати роботи програми (всі введені та знайдені у результаті пошуку дані) вивести на екран та у файл даних.
Задача 18. Графіка. Моя емблема. У VB нарисувати фігуру 1, у середині фігури 1 — фігуру 2, а у середині фігури 2 — такий текст: своє прізвище та ініціали або назву підприємства. Усі елементи рисунка виконати різними кольорами. Замкнені області залити кольорами. Можливі фігури (прямокутник, квадрат, трикутник, коло, еліпс) і кольори вибрати самостійно. Розташування у вікні вибрати за значенням виразу і Mod 5 + 1:
1) вверху ліворуч; 2) вверху праворуч; 3) по центру;
4) внизу ліворуч; 5) внизу праворуч.
У VBA створити макрос малювання фігури у програмі MS Word, роздрукувати й описати код макросу.