Обробка одновимірних масивів

8.1. Задано а₁,…, а₁₀ - кількість опадів (у мм), що випали в Одесі за останні 10 років. Обчислити середню річну кількість опадів і відхилення від середнього для кожного року.

8.2. Задані х₁, х₂,..., х₇ - температура повітря за попередній тиждень. Визначити, скільки разів температура опускалася нижче 0^o.

8.3. Інформація про кількість опадів, що випадали протягом декади, і про температуру повітря задана у вигляді двох масивів. Визначити, яка кількість опадів випала у вигляді снігу, яка у вигляді дощу (вважати, що йде дощ, якщо температура повітря більше 0° С).

8.4. В класі n хлопчиків і m дівчинок. Інформація про ріст хлопчиків і дівчинок задана у вигляді двох масивів. Визначити середній ріст хлопчиків і середній ріст дівчинок.

8.5. В області 10 районів. Відомі: площа (у га), що засівається пшеницею, і середня врожайність (ц/га) для кожного району. Визначити кількість зібраної пшениці в області.

8.6. На площині розташовані n точок з координатами (х₁,у ₁), (х₂,у ₂),...,(x_n, y_n). Визначити, скільки точок попадає усередину кола радіуса R із центром на початку координат.

8.7. Задано масив (а₁, а₂,..., а₈). Знайти суму всіх елементів масиву, які задовольняють нерівності b а_i c (b і c задані).

8.8. Молокозавод випускає n видів молочної продукції. Задані а_i - кількість молока, необхідного для одержання 1 кг i-го виду молочної продукції; х_i - щоденний випуск (у кг) i-го виду продукції (i =1,2,..., n). Визначити щоденну потребу молокозаводу в молоці.

8.9. Відомі плановий і фактичний випуск продукції (у т) по місяцях року. Визначити відсоток виконання плану в кожному місяці і відсоток виконання річного плану.

8.10. Задані b_i (i =1,2,...,12) - фактичне споживання електроенергії заводом у i-ому місяці року. Визначити, наскільки відсотків перевищено план річного споживання електроенергії. Якщо план не перевищений, то визначити зекономлену кількість електроенергії.

8.11. Результати змагань по бігу на 100 м n спортсменів задані у вигляді масиву. Надрукувати кращий результат і кількість спортсменів, які не перевищили результат переможця, більше, ніж на 0,02 сек.

8.12. Учням 1-го класу щодня видається безкоштовно склянка молока (200 мл), якщо їхня вага становить менш 30 кг. Визначити, скільки літрів молока буде потрібно щодня для одного класу з 25 чоловік. Вага кожного учня представлена як елемент масиву.

8.13. У збиранні помідорів брала участь група з 10 студентів. За кожні 20 кг зібраних помідорів студент одержував 1 кг натуроплати. Визначити кількість помідорів (у кг), отриманих студентами, якщо відома кількість помідорів, зібраних кожним студентом (у вигляді масиву).

8.14. Коло із центром на початку координат має заданий радіус R. Задані n точок (х₁, у₁), (х₂, у₃),...,(х_n, y_n), які є центрами інших кіл того ж радіуса R. Визначити кількість кіл, що перетинають коло із центром на початку координат.

8.15. Задано пряму 4 х - З у = 0 і точки а_i (i =1,2,...,6). Визначити, які точки лежать на прямій і скільки таких точок. Вхідні дані: а₁ (2,5;1), а₂ (3;-2), а₃ (1;-1), a₄ (0;2), а₅ (4;3), а₆ (5;2).

8.16. Скласти програму відповідей "Так" або "Ні" залежно від того, чи зустрічається число К у масиві А з n елементів.

8.17. Задано масив А. Підрахувати, скільки разів зустрічається в масиві максимальний елемент.

8.18. Задано масив цілих чисел А =(а_i), i =1,2,..., n. Визначити кількість парних і непарних чисел у масиві.

8.19. Задано масив цілих чисел А =(а_i), i =1,2,..., n. Визначити кількість елементів, що мають парні порядкові номери, і є непарними числами.

8.20. Задано масив цілих чисел А =(а_i), i =1,2,..., n. Вивести ті елементи масиву, які при діленні на 7 дають остачу 1 або 2.

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

8.22. Відомі заробітна плата для кожного з N співробітників відділу. Визначити кількість співробітників відділу, що одержують зарплату вище за середню по відділу.

8.23. Задано масив з N різних чисел. Знайти суму елементів масиву, розташованих після максимального елемента.

8.24. Підприємство випускає N видів виробів. Для виготовлення одного виробу i-го виду потрібно а_i кг деякої сировини. Визначити загальну потрібну кількість сировини, якщо відомі b_i - кількість виробів, що випускає підприємство, i-го виду.

8.25. Задані 2 масиви, що мають по N різних чисел. Замінити від'ємні елементи 1-го масиву на відповідні елементи 2-го масиву.

8.26. Задано масив з N різних елементів. Визначити кількість елементів, розташованих перед мінімальним елементом масиву.

8.27. Задані 2 масиви, що мають по N елементів. Знайти різницю між сумою елементів 1-го масиву і сумою елементів 2-го масиву.

8.28. Підприємство випускає N видів продукції. Відомі величини: а_i - доходи підприємства від i-ої продукції, b_i - витрати підприємства на випуск i-ої продукції. Визначити загальний прибуток підприємства (прибуток=доходи - витрати).

8.29. У бригаді N працівників, відома а_i - вироблення за день i-го працівника. Визначити номер працівника, що дав максимальний виробіток, і номер працівника, що дав мінімальний виробіток.

8.30. Задано масив із N чисел. Визначити кількість чисел, кратних 4, і кількість чисел, кратних 5.

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

Завдання. Задано одновимірний масив Х=(x_i), i=1,2,...,12. Скласти блок-схему і програму на VBA для обчислення суми квадратів елементів, які задовільняють умові a<x_i<b, де а,b - задані числа.

 

Позначення: s - шукана сума.

 

 

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

0

Начало Public Sub pr3()

1 Dim x(1 to 12) As Single

Ввод a,b Dim s,a,b As Single, i As Integer

a=Val(InputBox("Введите а"))

2 Ввод x_i, b=Val(InputBox("Введите b"))

i=1,2...,12 for i=1 to 12

3 x(i)=Val(InputBox("Введите массив х"))

s=0 next i

4 s=0

i=1,12 for i=1 to 12

нет 5 if x(i)>a and x(i)<b then s=s+x(i)^2

a<x_i<b next i

6 да MsgBox "s= " & s

s=s+x_i² EndSub

7

Вывод s

7 Конец

 

Обробка МАТРИЦЬ

9.1. Таблиця футбольного чемпіонату задана квадратною матрицею порядку n, в якій всі елементи головної діагоналі дорівнюють 9, а кожен елемент, що не належить головній діагоналі, дорівнює 2, 1 або 0 (тобто числу очок, набраних у грі: 2 - перемога, 1 - нічия, 0 - поразка). Визначити для кожної команди кількість перемог.

9.2. Умова завдання 7.1. Надрукувати номери команд, що пройшли чемпіонат без поразок.

9.3. Умова завдання 7.1. Визначити для кожної команди кількість перемог, поразок і нічиїх.

9.4. Умова завдання 7.1. Визначити кількість команд, що мають більше перемог, ніж поразок.

9.5. Умова завдання 7.1. Визначити кількість команд, що виграли більше половини ігор.

9.6. Задано матрицю А розміру m ´ n. Визначити максимальні елементи для кожного рядка матриці.

9.7. Задано матрицю А розміру m ´ n. Визначити кількість ненульових елементів у кожному рядку матриці.

9.8. Визначити суму від'ємних елементів у кожному стовпці заданої матриці А розміром m ´ n.

9.9. Визначити мінімальний елемент заданої матриці D розміром m ´ n. Надрукувати його значення та індекси.

9.10. Для формування збірної країни з хокею завчасно обрано 20 гравців. На підставі протоколів ігор (усього 10 ігор) складена таблиця, в якій зафіксовано штрафний час кожного гравця у кожній грі (штрафний час може становити 2, 5 або 10 хвилин). Гравці, оштрафовані хоча б одного разу на 10 хвилин, з кандидатів у збірну вилучаються. Скласти програму, що визначає список кандидатів у збірну і визначає для кожного гравця сумарний штрафний час.

9.11. Умова завдання 7.10. Визначити гравця з найменшим сумарним штрафним часом.

9.12. Умова завдання 7.10. Визначити кількість гравців, що не мають жодного разу штрафного часу 5 і 10 хвилин.

9.13. Умова завдання 7.10. Визначити кількість гравців, що мають хоча б одного разу штрафний час 10 хвилин.

9.14. Умова завдання 7.10. Визначити кількість гравців, що мають хоча б одного разу штрафний час 5 або 10 хвилин.

9.15. Для кожного стовпця заданої матриці C розміром m ´ n визначити суму елементів, що лежать нижче головної діагоналі.

9.16. Для кожного рядка матриці А розміром m ´ n вивести номери стовпців, що містять тількі ненульові елементи.

9.17. Розділити елементи кожного стовпця матриці В розміром m ´ n на останній елемент стовпця.

9.18. Для квадратної матриці розміром N ´ N знайти індекси тих елементів, для яких а_ji = а_ij.

9.19. Для кожного стовпця матриці С розміром m ´ n знайти елемент, значення якого мінімальне.

9.20. Для кожного рядка матриці F розміром m ´ n знайти суму елементів стовпців з парними номерами.

9.21. Для кожного стовпця матриці V розміром m ´ n визначити суму елементів, що належать рядкам з непарними номерами.

9.22. N відрізків задані координатами своїх кінців у тривимірному просторі. Визначити кількість відрізків, довжина яких більше заданої величини С.

9.23. Задано матрицю Х розміром 4´3. Заповнити одиницями рядок з Х_max і нулями з Х_min (передбачається, що Х_max і Х_min - не лежать в одному рядку).

9.24. У даній матриці А розміром 4´3 поміняти місцями парні і непарні рядки.

9.25. Додати елементи, розташовані по периметру матриці А розміром M ´ N.

9.26. Задано матрицю Х розміром 2´6. Для кожного стовпця з парним номером знайти кількість ненульових елементів і їхній добуток.

9.27. Помножити елементи кожного рядка матриці А розміром m ´ n на мінімальний елемент цього рядка.

9.28. У матриці А розміром М ´ N помножити елементи кожного стовпця на мінімальний елемент цього стовпця.

9.29. Задано матрицю Х розміром 4´5. Знайти в кожному рядку з непарним номером суму елементів, що не перевершують величину А.

9.30. Задано матрицю Х розміром М ´ N. Знайти середнє геометричне всіх додатних елементів і середнє арифметичне всіх від'ємних елементів.

 

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

Завдання. Скласти блок-схему і програму для розв'язання задачі. Задано двовимірний масив А=(a_ij), i=1,2,...,7; j=1,2,...,8. Поділити елементи кожного стовпця на другий елемент стовпця.

Позначення: b – поточний другий елемент стовпця

 

 

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

0

Начало Public Sub pr4()

1 Dim a(1 to7, 1 to 8) As Single

Ввод a_ij, Dim i,j As Integer, b As Single

i=1,2,...,7; for i=1 to 7

j=1,2,...,8 for j=1 to 8

2 a(i,j)=Val(InputBox("Введите массив а"))

j=1,8 next j: next i

3 for j=1 to 8

b=a_2j b=a(2,j)

4 for i=1 to 7

i=1,7 a(i,j)=a(i,j)/b

5 next i: next j

a_ij=a_ij/b for i=1 to 7

for j=1 to 8

Debug.Print a(i,j)

6 next j

Вывод a_ij Debug.Print

i=1,2,...,7; next i

j=1,2,...,8 EndSub

Конец

 

 

Рекомендована література

1. Інформатика і комп”ютерна техніка. Войтюшенко Н.М., Останець А.І. - Київ, ЦУЛ, 2009.

2. Інформатика: теоретичні основи і практикум. Литвин І.І., Конончук О.М. - Київ, «Новий світ», 2007.

3. Інформатика. Комп’ютерна техніка. Комп’ютерні технології. Баженов В.А., Венгерський П.С., Горлач В.М. та інш. - Київ, «Каравела», 2003.

4. Конспект лекцій з курсу «Інформатика» для бакалаврів 6.051701 денної та заочної форм навчання. О.Д. Гонтар, Н.О. Макоєд, Одеса: ОНАХТ, 2009.

Додаткова

1. Глушаков С.В. и др. Программирование на Visual Basic 6.0. Учебный курс – Харьков: Издательство ² Фолио ², 2002.

2. Коцюбинский А.О., Грошев С.В. Современный самоучитель профессиональной работы на компьютере. – 3-е изд. — М.: Триумф, 1999.

3. Інформатика, Комп’ютерна техніка, Комп’ютерні технології. За редакцією О.І. Пушкаря. – Київ, "Академія", 2001.

4. Дібкова Л.М. Інформатика та комп’ютерна техніка. Посібник для студентів вищих навчальних закладів.– Київ: Видавничий центр "Академія", 2002.

5. Вильямс Орвис. Excel для ученых, инженеров и студентов. Пер. с англ. –К.: Юниор, 1999.

6. Гарнаев А. Использование MS Excel и VBA в экономике и финансах. - СПб.: БХВ- Санк-Петербург, 1999.