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

Завдання. Задано одновимірний масив Х=(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

6. Конец

9.Обробка матриць

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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