Лабораторная работа №4 Работа с массивами
Содержание работы:
Условие задачи
ЭТ с исходными данными и ЭТ с данными, создающими сбойные ситуации
Блок-схему и программу алгоритма
Результат работы программы
Пример №1 Разработайте функцию пользователя
|
ЭТ с исходными данными:
|
ЭТ с исходными данными, создающими сбойную ситуацию – деление на ноль.:
|
|
Блок-схема |
Программа |
|
|
Public Function Функция(x2) s = o For i = 1 To 5 s = s + x2(i) Next i If s = 0 Then Функция = "Произошла сбойная ситуация - деление на ноль" Else Функция = 1 / s End If End Function |
|
Результат работы:
|
Результат работы программы в сбойной ситуации:
|
Пример №2 Работа с массивами. Вычислить значение выражения
Программа
Sub Массивы()
Dim x1, i, S, y1, Z As Double
Dim A As Integer
x1 = Range("C1").Value
If x1 < 0 Then
MsgBox "Ошибка! Подкоренное выражение меньше нуля!"
Else
y1 = Sqr(x1)
S = 0
i = 1
For i = 1 To 12
A = Cells((i), 1).Value
S = S + A
Next
If S = 0 Then
MsgBox "Ошибка! Деление на ноль!"
End If
Z = y1 / S
End If
Cells(17, 4).Value = Z
End Sub
Варианты индивидуальных заданий
Создайте функцию пользователя. Предусмотрите сбойные ситуации и выдайте информацию об этих ситуациях.
Вариант 1.
Вариант 2.
Вариант 3.
Вариант 4.
Вариант 5.
Вариант 6.
Вариант 7.
Вариант 8.
Вариант 9.
Вариант 10.
Вариант 11.
Вариант 12.
Вариант 13.
Вариант 14.
Вариант 15.
Вариант 16.
Вариант 17.
Вариант 18.
Вариант 19.
Вариант 20.
Вариант 21.
Вариант 22.
Вариант 23.
Вариант 24.
Вариант 25.
Вариант 26.
Вариант 27.
Вариант 28.
Вариант 29.
Вариант 30.