Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
РГЗ3 по VBA Циклы.doc
Скачиваний:
18
Добавлен:
31.03.2015
Размер:
581.63 Кб
Скачать

Индивидуальные задания по теме: Циклические алгоритмы

Требования к выполнению ИЗ

ИЗ должно содержать:

  1. Титульный лист

  2. Условие задачи

  3. ЭТ с исходными данными

  4. Блок-схему и код программы

  5. Результат работы программы

  6. Для запуска программы создайте командную кнопку

Пример выполнения индивидуального задания

Условие задачи. В массиве чисел М(10) очистить клетки с нулевыми значениями.

Электронная таблица с исходными данными:

Блок - схема

Программа

Sub Замена ()

For i = 1 To 10

If Cells(i, 1) = 0 Then Cells(i, 1).Clear

Next i

End Sub

Результат работы программы:

Варианты задач

  1. Есть ли в массиве число 10? Если есть, на каком месте оно стоит (известно, что число может встретиться несколько раз).

  1. Определить порядковые номера нулей в массиве.

  1. Все отрицательные элементы массива заменить нулями. Выдать сообщение о количестве таких замен.

  1. Найти порядковый номер минимального числа в массиве.

  1. Найти значение и координаты первого по порядку положительного элемента в массиве.

  1. Найти количество единиц в массиве.

  1. Каких чисел в массиве больше: положительных или отрицательных ? (массив может содержать нулевые значения).

  1. Исходные данные : В таблице 10 строк . Первый столбец – фамилия работника, второй- стаж работника.

  2. По стажу работника определить, к какой группе он относится, если 1 группа – стаж до 3-х лет, 2 группа – до 5 лет, 3 группа – до 10 лет, 4 группа – свыше 10 лет.

  1. Найти сумму элементов ячеек главной диагонали для таблицы, состоящей из 5 строк и 5 столбцов.

  1. Двадцати переменным массива присвоить одно и то же значение, равное наибольшему из них.

  1. Дан массив чисел. В клетке Е1 записано некоторое число. Определить порядковый номер этого числа в массиве. Если в массиве такого числа нет, выдать об этом сообщение.

  1. Просуммировать положительные и отрицательные числа в массиве. Записать полученные суммы в ячейки В1 и В2. (в массиве могут быть нулевые значения).

  2. В клетку А1 записать число - 100, если количество положительных элементов массива больше количества отрицательных. В противном случае записать в клетку А1 любой текст.

  1. Найти сумму положительных элементов массива, расположенного в ячейках В3:В15, имеющих индекс 3, 5, 7 и т.д.

  1. Найти сумму отрицательных элементов массива, расположенного в ячейках А2:А15, имеющих индекс 2, 4, 6 и т.д.

  1. Найти произведение отрицательных элементов массива, расположенного в ячейках С3:С12, имеющих индекс 3, 6, 9 и т.д.

  1. Четные элементы массива Е2:Е12 заменить на обратные им числа. (для определения четности числа использовать функцию MOD).

  1. В блоке ячеек А3:С8 записана матрица чисел. Ячейки с отрицательными значениями закрасить синим цветом, с положительными – красным, с нулями – желтым.

  1. В ячейку В1 записать произведение чисел ячеек столбца А, начиная с ячейки А1. Произведение вычислять до тех пор, пока оно не станет больше 500.

  1. В ячейку С4 Листа 2 записать сумму чисел ячеек столбца А Листа 1, начиная с ячейки А20. Столбец просматривать до первого отрицательного числа.

  1. Скопировать ячейки с Листа1, начиная с В3 до первой пустой ячейки, на Лист3 в ячейки, начиная с А13.

  1. Копировать ячейки столбца В, начиная с ячейки В7, с Листа2 на Лист1 до тех пор, пока сумма копируемых значений не станет больше 200.

  1. В блоке ячеек А3:С9 заменить нулями отрицательные значения, подсчитать количество замен и установить размер шрифта в этих ячейках равным 14.

  1. В матрице чисел А2:Е8 поменять местами 2-ую строку со 2-м столбцом.

  1. В матрице чисел, записанной в ячейках А2:Е7, обнулить 3-ий столбец и 2-ую строку.

  1. Даны 2 массива чисел: В2:В10 и С2:С10. Построить массив Е2:Е10, элементы которого являются покомпонентной суммой двух заданных массивов.

  1. В массиве чисел Е2:Е13 подсчитать число элементов, предшествующих первому по порядку отрицательному элементу.

  1. В массиве чисел D3:D13 подсчитать число элементов, предшествующих первому по порядку нулевому элементу.

  1. Имеется массив чисел. Сформировать 2 массива: в один перенести четные элементы исходного массива (индекс которых 2,4,6,…), в другой – нечетные (индекс которых 1,3,5,…).

  1. В матрице чисел в ячейках А2:Е6 отрицательные числа заменить их квадратами и подсчитать количество таких замен.

  1. Есть ли в массиве число 555? Если есть, на каком месте оно стоит (известно, что число может встретиться несколько раз).

  1. Определить порядковые номера отрицательных значений в массиве.

  1. Все нули в массиве А1:А12 заменить знаком «-». Выдать сообщение о количестве таких замен.

  1. Найти порядковый номер минимального числа в массиве С1:С10.

  1. Найти значение и координаты первого по порядку отрицательного элемента в массиве В2:В12.

  1. Найти количество нулей в массиве А1:а12 и заменить их на пробел.

  1. Каких чисел в массиве больше: положительных или отрицательных или нулевых?

  1. Исходные данные : В таблице 10 строк. Первый столбец – фамилия работника, второй- стаж работника.

По стажу работника определить, к какой группе он относится, если стаж до 3-х лет, то - « 1 группа», если– до 5 лет, то – «2 группа», если– до 10 лет, то «3 группа», если – свыше 10 лет, то – «4 группа».

  1. Найти сумму диагональных элементов блока ячеек, состоящего из 6 строк и 6 столбцов.

  1. Десяти переменным массива А2:А20 присвоить одно и то же значение, равное наибольшему из них.

  1. Дан массив чисел: А3:А10. В клетке В3 записано некоторое число. Определить порядковый номер этого числа в массиве. Если в массиве такого числа нет, выдать об этом сообщение.

  1. Просуммировать положительные и отрицательные числа в массиве С1 :С10. Записать полученные суммы в ячейки В11 и В12. (в массиве могут быть нулевые значения).

  1. В клетку А1 записать число - 999, если количество положительных элементов массива больше количества отрицательных. В противном случае записать в клетку А1 любой текст.

  1. Найти сумму положительных и количество нулевых элементов массива Е3 : Е15, имеющих индекс 3, 5, 7 и т.д.

  1. Найти сумму отрицательных и количество положительных элементов массива В2 : В15, имеющих индекс 2, 4, 6 и т.д.

  1. Найти произведение и количество отрицательных элементов массива А2 :А16, имеющих индекс 3, 6, 9 и т.д.

  1. Четные элементы массива заменить на обратные им числа. (для определения четности числа использовать функцию MOD).

  1. В блоке ячеек записана матрица чисел. Ячейки с отрицательными значениями закрасить синим цветом, с положительными – зеленым, с нулями – желтым.

  1. В ячейку А1 записать произведение чисел ячеек столбца Е, начиная с ячейки Е5. Произведение вычислять до тех пор, пока оно не станет больше 200.

  2. В ячейку С1 Листа2 записать сумму чисел ячеек столбца В Листа1, начиная с ячейки В17. Столбец просматривать до первого отрицательного числа.

  1. Скопировать ячейки с Листа1, начиная с Е3 до первой пустой ячейки, на Лист3 в ячейки, начиная с Е13.

  1. Копировать ячейки столбца D, начиная с ячейки D8, с Листа2 на Лист1 до тех пор, пока сумма копируемых значений не станет больше 555.

  1. В блоке ячеек А1 : С7 заменить нулями отрицательные значения, подсчитать количество замен и установить размер шрифта в этих ячейках равным 14.

  1. В матрице чисел, записанной в ячейках В3:Е13 обнулить 3-ий столбец и 2-ую строку.

  1. Даны 2 массива чисел: В2:В12 и С2:С12. Построить массив D2: D12, элементы которого являются покомпонентным произведением двух заданных массивов.

  1. В массиве чисел D3:D13 подсчитать число элементов, предшествующих первому по порядку отрицательному элементу.

  1. Имеется массив чисел С3:С13. Сформировать 2 массива: в один перенести четные элементы исходного массива (2,4,6,…), в другой – нечетные (1,3,5,…).

  1. В матрице чисел в ячейках отрицательные числа заменить их квадратами и подсчитать количество таких замен.

  1. Есть ли в массиве число 5? Если есть, на каком месте оно стоит (известно, что число может встретиться несколько раз).

  1. Определить порядковые номера нулей в массиве А1:М1.

  1. Все отрицательные элементы массива А3:М3 заменить нулями. Выдать сообщение о количестве таких замен.

  1. Найти порядковый номер максимального числа в массиве В2:В14.

  1. Найти значение и координаты первого по порядку положительного элемента в массиве С3:С13.

  1. Найти количество единиц и сотен в массиве А2:М2.

  1. Каких чисел в массиве А3:М3 больше: положительных или отрицательных ? (массив может содержать нулевые значения).

  1. Исходные данные : В таблице 10 строк . Первый столбец – фамилия работника, второй- стаж работника. По стажу работника определить, к какой группе он относится, если 1 группа – стаж до 3-х лет, 2 группа – до 5 лет, 3 группа – до 10 лет, 4 группа – свыше 10 лет.

  1. Найти сумму диагональных элементов блока ячеек А3:Е8, состоящего из 5 строк и 5 столбцов.

  1. Десяти переменным массива А2:А18 присвоить одно и то же значение, равное наибольшему из них.

  1. Дан массив чисел В3:С8. В клетке А1 записано некоторое число. Определить порядковый номер этого числа в массиве. Если в массиве такого числа нет, выдать об этом сообщение.

  1. Просуммировать положительные и отрицательные числа в массиве А3:М3. Записать полученные суммы в ячейки А1 и В1. (в массиве могут быть нулевые значения).

  1. В клетку А1 записать число, если количество положительных элементов массива С4:С13 больше количества отрицательных. В противном случае записать в клетку А1 любой текст.

  1. Найти сумму положительных элементов массива, имеющих индекс 3, 5, 7 и т.д.

  1. Найти сумму отрицательных элементов массива, имеющих индекс 2, 4, 6 и т.д.

  1. Найти произведение отрицательных элементов массива, имеющих индекс 3, 6, 9 и т.д.