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

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,bDim 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.