Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Візуал Бейсік 2010 Глінський.docx
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
4.12 Mб
Скачать

Розділ 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), де і - номер варіанта. Обчислити:

  1. Висоту ha та бісектрису Wc.

  2. Медіану та та бісектрису Wb.

  3. Бісектрису Wa та радіус вписаного кола r.

  4. Висоту hа та медіану тb.

  5. Медіану тb та бісектрису Wc.

  6. Бісектрису Wa та радіус описаного кола R.

  7. Висоту hb та бісектрису Wa.

  8. Висоту hb та медіану тс.

  9. Висоту ha і радіус вписаного кола r.

  10. Медіану тс та бісектрису Wa.

  11. Висоту hb та бісектрису Wc.

  12. Медіану тс і радіус вписаного кола r.

  13. Висоту hb та медіану та.

  14. Медіану та і радіус описаного кола R.

  15. Медіану та та бісектрису Wc.

  16. Висоту hc та бісектрису Wa.

  17. Медіану тb і радіус вписаного кола r.

  18. Висоту hc та медіану та.

  19. Медіану mb та бісектрису Wa.

  20. Медіану тс і радіус описаного кола R.

  21. Висоту hc та бісектрису Wb.

  22. Висоту hc і медіану тb.

  23. Висоту hа та радіус описаного кола R.

  24. Висоту ha та бісектрису Wb.

  25. Висоту 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 команди виведення не писати).

  1. Ввести номер студента зі списку. Вивести його прізвище та зріст.

  2. Є дані про автомобілі. Як вхідне дане ввести номер моделі й от­римати такі характеристики: рік випуску і ціну автомобіля.

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

  4. Ввести назву країни. Вивести назву її столиці й кількість вели­ких міст у країні.

  5. Ввести номер дня тижня. Вивести його назву і значення серед­ньої температури у цей день.

  6. Ввести номер трамвая. Вивести назви його двох кінцевих зупинок.

  7. Ввести назву країни. Вивести назву континента і кількість насе­лення країни.

  8. Ввести назву місяця. Вивести назву пори року і номер річного кварталу.

  9. Ввести номер студента. Вивести його ім'я і номер телефону.

  10. Ввести назву міста. Вивести кількість населення і площу міста.

  11. Ввести номер місяця. Вивести назву місяця і номер кварталу.

  12. Ввести номер автобуса. Вивести назву одної кінцевої зупинки і довжину маршруту.

  13. Ввести назву країни. Вивести назви двох міст цієї країни і від­стань між ними.

  14. Ввести назву районного центру. Вивести орієнтовну відстань до обласного центру і кількість населення району.

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

  16. Є дані про товари. Ввести числовий код одного з них і отримати його назву і ціну.

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

  18. Ввести числовий код групи (класу). Вивести кількість студентів (учнів) і прізвище старости.

  19. Ввести число з діапазону 0-4. Вивести його написання англійсь­кою (чи іншою) та українською мовами.

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

  21. Ввести назву річки. Вивести довідку про її довжину і країну, де вона протікає.

  22. Ввести ім’я особи. Вивести її вік та адресу.

  23. Ввести номер телефону особи. Вивести її ім’я і дату народження.

  24. Ввести номер квартири в будинку. Вивести площу квартири і кі­лькість мешканців у ній.

  25. Увести назву товару на складі. Вивести його ціну і кількість.

Задача 7. Цикли. Таблиця мір. Побудувати таблицю відповіднос­тей між мірами. Початкове значення міри, крок зміни цього зна­чення та кількість рядків у таблиці (10-15) задати самостійно у ре­жимі діалогу. Оформити таблицю якнайкраще, використовуючи фор­мати виведення. Вивести таблицю: а) на екран; б) у текстовий файл.

  1. 1 унція = 28.353495 г = 142 карати;

  2. 1 драхм = 1.77185 г = 0.06249 унції;

  3. 1 карат = 0.2 г = 2.9412 грана;

  4. 1 гран = 0.068 г = 0.038378 драхма;

  5. 1 пайп = 54.18 пека = 477.33 л;

  6. 1 галон (брит.) = 1.2 галона (США) = 4.546 л;

  7. 1 галон (США) = 0.0347 сака = 3.785 л;

  8. 1 чарка = 0.0568 л = 0.00012 пайпа;

  9. 1 відро = 12.3 л = 216 чарок;

  10. 1 страйк = 72.73 л =1280,46 чарки;

  11. 1 челдрон = 1.309 л = 0.149 пека;

  12. 1 сак = 109 л =1.499 страйка;

  13. 1 пек = 8.81 л = 0.07929 сака;

  14. 1 корд малий = 3.624 куб. м = 128 куб. футів;

  15. 1 стандарт = 4.672 куб. м = 0.165 рода;

  16. 1 род = 28.3 куб. м = 1000 куб. футів;

  17. 1 чейн будівельний = 30.48 м = 100 футів;

  18. фінгер =11.4 см = 4.5 дюйма;

  19. 1 нейл = 5.7 см = 2.25 дюйма;

  20. 1 фут = 0.3048 м = 12 дюймів;

  21. ярд = 0.9144 м = 3 фути;

  22. кабельт Брит. =0.183 км = 680 футів;

  23. 1 кабельт США =219.5 м = 720 футів;

  24. 1 дюйм = 2.54 см = 12 ліній;

  25. 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). Результати обчислень вивести у вигляді таблиці пар чисел х, у відповідно з одною і двома цифрами після десяткової ко­ми: а) на екран; б) у текстовий файл.

Крім цього, обчислити і вивести дані, що задовольняють наведе­ний нижче критерій пошуку. Якщо шуканих даних немає, вивести повідомлення «Таких даних немає».

  1. Обчислити суми першого та останнього значень функції.

  2. Обчислити суму та добуток усіх значень функції у, для яких ви­конується нерівність у < -3,2 або у > 0.

  3. Обчислити добуток та кількість усіх значень функції у, для яких виконується нерівність у < -3 або у > 0,4.

  4. Обчислити добуток усіх від'ємних значень функції у та визначи­ти кількість додатних.

  5. Обчислити добуток значень аргумента (х), для яких 0 < у < 1.

  6. Чи кількість від’ємних значень функції більша за кількість до­датних?

  7. Визначити суму додатних значень функції та кількість від’ємних.

  8. Скільки від'ємних і скільки додатних значень є в таблиці?

  9. Обчислити суму та кількість додатних значень функції у.

  10. Обчислити суму квадратів усіх додатних значень функції у.

  11. Обчислити різницю між першим і останнім значеннями у.

  12. Обчислити суму і кількість усіх значень функції у, для яких вико­нується нерівність у < 1,2 або у > 4.

  13. Обчислити добуток додатних значень та кількість від'ємних.

  14. Чи сума додатних значень більша за добуток від’ємних?

  15. Обчислити добуток і кількість усіх значень функції у, для яких справджується нерівність 1 < у < 3,1.

  16. Обчислити кількість та добуток усіх значень у > 5.

  17. Обчислити суму квадратів та добуток усіх значень функції у, для яких справджується нерівність -2,41 < у < 5.

  18. Обчислити середнє арифметичне значень функції у, для яких справджується нерівність -1,5 < у < 8.

  19. Обчислити середнє арифметичне всіх від'ємних значень функції.

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

  21. Знайти середнє арифметичне тих значень функції у, для яких виконуються нерівності у < 0 або у > 1.

  22. Чи середнє арифметичне додатних значень більше від останнього значення?

  23. Обчислити суму та кількість тих значень функції у, для яких виконується нерівність 0 < у < 1.

  24. Обчислити кількість та добуток тих значень функції у, для яких виконується нерівність 1,3 < у < 5.

  25. Яких значень функції більше: додатних чи від’ємних?

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.

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

  1. Обчислити суму прибутків за десять років. Визначити максима­льний збиток (якщо збитки були).

  2. Обчислити суму збитків. У якому році збиток був максимальний?

  3. Обчислити суми прибутків і збитків, а також їх різницю. Коли прибуток був максимальний?

  4. Скільки років прибутки становили менше, ніж 10000, але біль­ше, ніж 5000? Який був найбільший збиток?

  5. Обчислити суму збитків. У якому році прибуток був найбільший?

  6. Обчислити суму прибутків у межах 0 < yk< 8000. У якому році підприємство зазнало найбільших збитків?

  7. Скільки років прибутки були в межах від 2000 до 7000? Які це були роки? Який був найбільший прибуток?

  8. Обчислити суму всіх збитків. У якому році збиток був найбіль­ший? Який це був збиток?

  9. Обчислити суму збитків, для яких справджується така умова: yk < -6500 або yk > -1500. Визначити найбільший прибуток.

  10. Визначити суму прибутків та суму збитків. Вивести повідомлен­ня, чи прибутки перекрили збитки.

  11. Обчислити суму прибутків, що були у межах 2300 < yk < 8500. Скільки років підприємство мало такі прибутки?

  12. Обчислити суму збитків, що були у межах -7500 < yk < -2000. Коли прибуток був мінімальний?

  13. Обчислити суму прибутків та суму збитків за перші сім років роботи. Визначити максимальний прибуток за весь період.

  14. Обчислити суми прибутків, що були в межах yk < 1700 або yk > 6000. Скільки років підприємство мало такі прибутки?

  15. Обчислити суму збитків і визначити, скільки років підприємст­во було збитковим? У якому році збиток був максимальний?

  16. Визначити найбільший збиток. У якому році підприємство мало найбільший прибуток?

  17. У які роки підприємство мало найбільший прибуток та найбіль­ший збиток?

  18. Визначити, чи діяльність підприємства за весь період була при­бутковою чи збитковою.

  19. Обчислити суми прибутків і збитків. Визначити найменший прибуток.

  20. Обчислити суму збитків, для яких справджується умова yk < -6000 або yk > -3000. Визначити найбільший прибуток. У якому році він був отриманий?

  21. Обчислити суму збитків. Який саме і в якому році збиток був найменший?

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

  23. Обчислити суму прибутків і суму збитків. Чи років з прибут­ками було більше, ніж років зі збитками?

  24. Обчислити суму прибутків, які були в межах 3150 < yk < 9580. У якому році збитки були найбільші?

  25. Коли прибутки були більші, ніж 5800, та менші, ніж 1000 у.о? Коли був максимальний прибуток?

Задача 12*. Одновимірні масиви та складний пошук. Утворити і вивести масив з десятьма заокругленими до цілих значень елемен­тами числової послідовності yk = 15cos(2k + і), де і — номер варіан­та, k = 1, 2, ..., 10.

Виконати завдання свого варіанта.

Якщо немає шуканих даних, то вивести повідомлення про це. Якщо дані з масиву за умовою завдання треба було перетворити, то вивести їхні значення до і після перетворення.

  1. Визначити номер четвертого додатного елемента масиву.

  2. Знайти суму третього та шостого додатних елементів.

  3. Другий від’ємний елемент замінити мінімальним.

  4. Скільки є додатних елементів з мінімальним значенням?

  5. Визначити суму номерів нульових елементів масиву.

  6. Обчислити суму перших чотирьох від'ємних елементів.

  7. Вивести номер передостаннього додатного елемента.

  8. Знайти суму другого від’ємного і другого додатного елементів.

  9. Знайти добуток другого та четвертого елементів більших, ніж 3.

  10. Максимальний елемент поміняти місцями з другим нульовим.

  11. Останній від'ємний елемент замінити найбільшим.

  12. Обчислити добуток другого від'ємного та п'ятого елементів.

  13. Другий елемент, більший ніж 1, замінити нулем.

  14. Вивести номери двох найбільших елементів.

  15. Чи є два елементи з однаковим максимальним значенням?

  16. Максимальний елемент поміняти місцями з четвертим, що за­довольняє умову yk > 1.

  17. Третій додатний елемент замінити максимальним.

  18. Визначити номер п'ятого від'ємного елемента.

  19. Обчислити добуток перших трьох додатних елементів та визна­чити їхні номери.

  20. Обчислити суму другого додатного та третього елементів.

  21. Третій і п’ятий додатні елементи замінити максимальним.

  22. Знайти суму елементів, що є між другим додатним та максима­льним.

  23. Вивести добуток номерів двох найменших елементів серед додатних.

  24. Визначити суму номерів другого та третього від'ємного елементів.

  25. Другий і четвертий додатні елементи поміняти місцями.

Задача 13. Двовимірні масиви. Простий пошук. Утворити масив з елементами: а)аkn=10sin(k+п+і); б) аkn = nfi(k) + sin(k)fi(n), де і - номер варіанта, k = 1, 2, 3, 4; п = 1, 2, 3, 4. Вивести його на ек­ран у вигляді таблиці з одною цифрою після десяткової коми. Вико­нати завдання свого варіанта. Вивести повідомлення, якщо відпові­дних даних немає.

  1. Обчислити добуток від'ємних елементів масиву.

  2. Обчислити кількість елементів масиву, для яких виконується нерівність 1 < аkп < 6.

  3. Обчислити добуток значень тих елементів, для яких справджу­ється нерівність < -1 або аkп > 1.

  4. Обчислити кількість додатних елементів та їхній добуток.

  5. Обчислити суму квадратів елементів, значення яких більші, ніж 1.

  6. Обчислити добуток квадратів тих елементів масиву, для яких виконується нерівність | аkп | < 3.

  7. Обчислити кількість тих елементів масиву, для яких викону­ється нерівність аkп > 3, та суму елементів, менших, ніж 9.

  8. Визначити індекси максимального елемента.

  9. Обчислити суму діагональних елементів.

  10. Обчислити добуток тих елементів масиву, для яких виконується нерівність 2 < аkп < 10.

  11. Обчислити суму елементів над головною діагоналлю.

  12. Обчислити середнє арифметичне перших двох рядків.

  13. Обчислити суму додатних елементів над головною діагоналлю.

  14. Знайти максимальний елемент.

  15. Обчислити суму індексів максимального елемента.

  16. Визначити індекси мінімального елемента масиву.

  17. Від’ємні елементи масиву замінити на 0. Знайти суму елементів під головною діагоналлю нового масиву.

  18. Визначити кількість від'ємних та суму додатних елементів.

  19. Обчислити середнє арифметичне тих елементів, для яких вико­нується нерівність аkп < -5 або аkп > 3.

  20. Чи кількість додатних елементів більша за кількість від’ємних?

  21. Обчислити добуток елементів над головною діагоналлю.

  22. Обчислити середнє арифметичне додатних елементів масиву.

  23. Обчислити суму та кількість тих елементів масиву, для яких виконується нерівність 1< аkп <5.

  24. Обчислити суму діагональних елементів і кількість елементів, значення яких менші, ніж 3.

  25. Обчислити добуток елементів під головною діагоналлю та суму елементів над головною діагоналлю.

Задача 14. Двовимірні масиви. Задача про вибори. Результати голосування занесені у двовимірну таблицю. Нехай шість населених пунктів чи дільниць (це рядки таблиці) позначені номерами k від 1 до 6, а п’ять кандидатів — номерами п від 1 до 5 (це стовпці). Кількість голосів akn у діапазоні від 0 до 5000, набраних канди­датами у кожному пункті (дільниці), визначається або деякою формулою на зразок Ціле(5000|sin(к + n)| ), або за допомогою генератора цілих чисел на зразок Ціле(5000Rnd(i)) тощо, де і - номер варіанта. Вивести на екран і у текстовий файл даних таблицю результатів голосування, де у рядках є дані з населених пунктів, а у стовпцях — дані щодо конкретних кандидатів. Виконати додаткове завдання свого варіанта (визначити і вивести значення шуканих величин). Створити, де треба, одновимірний масив з шуканими даними.

  1. Які підсумкові результати кожного кандидата? (Підказка: утво­рити одновимірний масив із сум значень у кожному стовпці таблиці).

  2. Які номери населених пунктів, де кількість осіб, що прого­лосували, перевищила 8000?

  3. Хто з кандидатів набрав найбільшу, а хто — найменшу кіль­кість голосів у четвертому населеному пункті?

  4. Яка кількість голосів була подана за першого і третього канди­датів у всіх населених пунктах?

  5. У якому населеному пункті другий і четвертий кандидати разом набрали найбільшу кількість голосів?

  6. Скільки виборців взяли участь у голосуванні у кожному насе­леному пункті?

  7. Хто з кандидатів переміг?

  8. Хто з кандидатів набрав максимальну кількість голосів у друго­му населеному пункті?

  9. У яких населених пунктах кількість осіб, які проголосували, бі­льша від деякого заданого числа пі

  10. Хто з кандидатів отримав голосів менше від деякого числа пі

  11. У якому населеному пункті перший кандидат набрав найбільшу кількість голосів?

  12. У якому населеному пункті проголосувало найбільше виборців?

  13. Хто з кандидатів набрав найбільше голосів у другому і третьому населених пунктах разом?

  14. У якому населеному пункті перший кандидат набрав мінімальну кількість голосів, а в якому — максимальну?

  15. Другий чи четвертий кандидат набрав більше голосів?

  16. Хто набрав максимальну, а хто — мінімальну кількість голосів у першому населеному пункті?

  17. У яких населених пунктах перший і п’ятий кандидат окремо набрали більше, ніж 4500 голосів?

  18. Які номери населених пунктів, де кількість осіб, які прийшли на вибори, не перевищила n=2000?

  19. Хто з кандидатів у всіх населених пунктах набрав голосів біль­ше від деякого заданого числа n?

  20. Хто переміг у третьому населеному пункті?

  21. Де четвертий кандидат набрав найменшу кількість голосів?

  22. Хто набрав найбільшу, а хто — найменшу кількість голосів у другому і третьому населеному пункті разом?

  23. Хто з кандидатів набрав найменшу кількість голосів і де саме?

  24. Скільки кандидатів отримали голосів більше від деякого числа n?

  25. У якому населеному пункті третій кандидат набрав найбільшу кількість голосів?

26*. Чи потрапив хтось із кандидатів у «сідло»? «Сідлом» назива­ють значення, яке є найбільшим у рядку і найменшим у стовпці.

Задача 15. Дані типу String. Опрацювання текстів. Ввести прізви­ще, ім'я та по батькові як одне текстове дане. Визначити довжину тексту і кількість букв «а» у ньому. Додатково виконати завдання свого варіанта:

  1. Вивести ім'я та кількість букв у третьому слові.

  2. Визначити, скільки букв «а» е у прізвищі.

  3. Вивести три букви — свої ініціали з крапками.

  4. Вивести довжини прізвища та імені.

  5. Вивести прізвище та ініціали.

  6. Вивести ім'я та кількість букв у прізвищі.

  7. Визначити, скільки букв «о» є в імені.

  8. Вивести найдовше слово.

  9. Вилучити усі букви «а» та «о» з прізвища.

  10. Вивести ім'я у стовпчик.

  11. Чи починається хоч би одне слово з букви «М»?

  12. Усі букви «і» в імені продублювати.

  13. Вивести прізвище та кількість букв у імені.

  14. Вивести ім'я у зворотному порядку.

  15. Вивести прізвище у стовпчик.

  16. Вивести ім’я та по батькові, а також кількість букв у імені.

  17. Вивести найкоротше слово.

  18. Вивести дане без пропусків. Скільки букв є в імені?

  19. Вивести довжини трьох слів.

  20. Вивести ім’я та кількість букв у прізвищі.

  21. Вивести ім'я, прізвище.

  22. Кожну букву імені продублювати.

  23. Вивести прізвище у зворотному порядку.

  24. Визначити, скільки букв «а» та «б» є у прізвищі.

  25. Вивести третє слово та кількість букв у прізвищі.

Задача 16*. Дані типу String. Криптографія. Придумати та опи­сати словесно власний спосіб шифрування тексту (на зразок шифру Цезаря тощо). Скласти програму для введення тексту як даного ти­пу String, його шифрування і виведення результату. Додаткове зав­дання*: розробити програму для дешифрування тексту.

Задача 17. Записи. Файли даних. Моделювання роботи з базою даних засобами мови програмування. Придумати й описати об’єкт­ну модель (структуру, запис чи клас*) для деякої предметної обла­сті та скласти програму для створення масиву з шести - семи об’єк­тів (структур, записів) і опрацювання (пошуку) відповідних даних згідно з деяким сюжетом (критерієм). Вхідні дані ввести у режимі діалогу або з файлу.

Предметну область вибрати за значенням виразу і Mod 10 + 1 з та­кого списку:

  1. про учнів чи студентів (прізвище, ім'я, оцінки з трьох предметів);

  2. про друзів (ім’я, адреса, дата народження, номер телефону);

  3. про комп’ютери;

  4. про автомобілі;

  5. про аудіотехніку;

  6. про парфуми;

  7. про країни (назва, кількість населення, площа);

  8. про футбол чи інший вид спорту;

  9. про підприємство (назва, кількість співробітників, фонд зар­платні, обсяги випущеної продукції);

  10. про навчальний заклад тощо.

Приклад сюжету (критерію пошуку): створити і вивести на екран дані з масиву записів про автомобілі, які є на деякому складі. Назва моделі, рік випуску, ціна, колір — це опис відповідної об’єктної моделі. Знайти у масиві та вивести на екран назви моде­лей червоного кольору, які були випущені в 2012 році.

Результати роботи програми (всі введені та знайдені у результаті пошуку дані) вивести на екран та у файл даних.

Задача 18. Графіка. Моя емблема. У VB нарисувати фігуру 1, у середині фігури 1 — фігуру 2, а у середині фігури 2 — такий текст: своє прізвище та ініціали або назву підприємства. Усі елементи ри­сунка виконати різними кольорами. Замкнені області залити кольо­рами. Можливі фігури (прямокутник, квадрат, трикутник, коло, еліпс) і кольори вибрати самостійно. Розташування у вікні вибрати за значенням виразу і Mod 5 + 1:

1) вверху ліворуч; 2) вверху праворуч; 3) по центру;

4) внизу ліворуч; 5) внизу праворуч.

У VBA створити макрос малювання фігури у програмі MS Word, роздрукувати й описати код макросу.