Лабораторная работа №3 Циклические конструкции
Требования к выполнению лабораторной работы
Содержание работы:
Условие задачи
ЭТ с исходными данными
Блок-схему и программу алгоритма
Результат работы программы
Для запуска программы создайте командную кнопку
Пример №1 Задача. В массиве чисел М(10) очистить клетки с нулевыми значениями.
Электронная таблица с исходными данными:
|
Блок - схема |
Программа |
|
|
Sub ОбнулениеКлетокС_НулевымиЗначениями() For i = 1 To 10 If Cells(i, 1) = 0 Then Cells(i, 1).Clear Next i End Sub |
Результат работы программы:
Пример №2 Есть ли в массиве число 10? Если есть, на каком месте оно стоит (известно, что число может встретиться несколько раз).
Программа
Sub Число()
Dim A As Variant
Dim i, k As Integer
i = 1
k = 0
A = Range("A1:A10")
For i = 1 To 10
If A(i, 1) = 10 Then
MsgBox ("Номер ячейки, содержащей число 10 - " & i)
k = k + 1
End If
Next i
MsgBox ("Число 10 встретилось следующее количество раз - " & k)
End Sub
Варианты задач
Есть ли в массиве число 10? Если есть, на каком месте оно стоит (известно, что число может встретиться несколько раз).
Определить порядковые номера нулей в массиве.
Все отрицательные элементы массива заменить нулями. Выдать сообщение о количестве таких замен.
Найти порядковый номер минимального числа в массиве.
Найти значение и координаты первого по порядку положительного элемента в массиве.
Найти количество единиц в массиве.
Каких чисел в массиве больше: положительных или отрицательных ? (массив может содержать нулевые значения).
Исходные данные: В таблице 10 строк. Первый столбец – фамилия работника, второй- стаж работника.
По стажу работника определить, к какой группе он относится, если 1 группа – стаж до 3-х лет, 2 группа – до 5 лет, 3 группа – до 10 лет, 4 группа – свыше 10 лет.
Найти сумму диагональных элементов блока ячеек, состоящего из 5 строк и 5 столбцов.
Двадцати переменным массива присвоить одно и то же значение, равное наибольшему из них.
Дан массив чисел. В клетке С1 записано некоторое число. Определить порядковый номер этого числа в массиве. Если в массиве такого числа нет, выдать об этом сообщение.
Просуммировать положительные и отрицательные числа в массиве. Записать полученные суммы в ячейки В1 и В2. (в массиве могут быть нулевые значения).
В клетку А1 записать число, если количество положительных элементов массива больше количества отрицательных. В противном случае записать в клетку А1 любой текст.
Найти сумму положительных элементов массива, имеющих индекс 3, 5, 7 и т.д.
Найти сумму отрицательных элементов массива, имеющих индекс 2, 4, 6 и т.д.
Найти произведение отрицательных элементов массива, имеющих индекс 3, 6, 9 и т.д.
Четные элементы массива заменить на обратные им числа. (для определения четности числа использовать функцию MOD).
В блоке ячеек записана матрица чисел. Ячейки с отрицательными значениями закрасить синим цветом, с положительными – красным, с нулями – желтым.
В ячейку В1 записать произведение чисел ячеек столбца А, начиная с ячейки А1. Произведение вычислять до тех пор, пока оно не станет больше 500.
В ячейку А1 Листа 2 записать сумму чисел ячеек столбца А Листа 1, начиная с ячейки А20. Столбец просматривать до первого отрицательного числа.
Скопировать ячейки с Листа 1, начиная с В3 до первой пустой ячейки, на Лист 3 в ячейки, начиная с А13.
Копировать ячейки столбца D, начиная с ячейки D5, с Листа 2 на Лист 1 до тех пор, пока сумма копируемых значений не станет больше 100.
В блоке ячеек заменить нулями отрицательные значения, подсчитать количество замен и установить размер шрифта в этих ячейках равным 14.
В матрице чисел поменять местами строки со столбцами (транспонировать данную матрицу).
В матрице чисел, записанной в ячейках обнулить 3-ий столбец и 2-ую строку.
Даны 2 массива чисел. Построить массив, элементы которого являются покомпонентной суммой двух заданных массивов.
В массиве чисел подсчитать число элементов, предшествующих первому по порядку отрицательному элементу.
Имеется массив чисел. Сформировать 2 массива: в один перенести четные элементы исходного массива (2,4,6,…), в другой – нечетные (1,3,5,…).
Записать в обратном порядке элементы массива чисел.
Отсортировать элементы массива по возрастанию. Отсортировать элементы массива по убыванию