Воды предприятием и номера месяца с минимальным расходом в виде блок-схемы
Программа на VBA имеет вид:
Sub Задание1()
Dim B() As Single
Dim M As Single
Dim i, K, N As Integer
N = InputBox("Введите количество элементов массива")
ReDim B(N) As Single
For i = 1 To N
B(i) = InputBox("Введите" & i & "-й элемент массива")
Debug.Print i; "-й расход ", B(i)
Next i
M = B(1)
K = 1
For i = 2 To N
If B(i) < M Then
M = B(i)
K = i
End If
Next i
Debug.Print "Номер дня с минимальным расходом="; K
Debug.Print "Минимальный расход предприятия= "; M
End Sub
Выполнение примера №2
Имеются данные об ежедневной выручке каждого магазина торговой фирмы в течение недели. Определить выручку указанного магазина в течение недели; определить выручку всех магазинов фирмы в указанный день недели.
Таблица 3.24 – Исходные данные для примера №2
Выполним построение математической модели и алгоритма решения данной функциональной задачи.
а) Обозначение переменных:
N – количество записей в таблице = число_магазинов*7 (равно числудней в неделе);
M(N) – массив названий магазинов;
D(N) – массив номеров дней;
V(N) – массив ежедневной выручки каждого магазина;
i –номер текущей записи (i =1,2,3,...N);
Mag – название нужного магазина;
Nd – номер нужного дня недели;
VM - выручка указанного магазина в течение недели;
VD – выручка всех магазинов фирмы в указанный день недели.
б) Тип переменных:
N, i, Nd – простые переменные целого типа;
M(i) – символьная переменная с индексом (элемент массива М);
D(i) – целочисленная переменная с индексом (элемент массива D);
V(i) – вещественная переменная с индексом (элемент массива V);
Mag – простая переменная символьного типа;
VM, VD – простые переменные вещественного типа.
в) Классификация по группам:
исходные данные: M(N), D(N), V(N), Mag, Nd;
результаты: VM; VD;
промежуточный результат: i.
г) Система расчетных формул:
VM = 0 обнуление VM
VD = 0 обнуление VD
i = 1 начальный номер элемента
Программа на VBA имеет вид:
Sub Задание2()
Dim D(), V() As Single
Dim M() As String
Dim VM, VD As Single
Dim Mag As String
Dim i, N, Nd As Integer
N = InputBox("Введите количество элементов массива")
ReDim D(N), V(N) As Single
ReDim M(N) As String
Debug.Print "Магазин", "День недели", "Выручка"
For i = 1 To N
M(i) = InputBox("Введите название магазина")
D(i) = InputBox("Введите день недели")
V(i) = InputBox("Введите выручку")
Debug.Print M(i), D(i), V(i)
Next i
Mag = InputBox("Выручку какого магазина вычислить?")
VM = 0
For i = 1 To N
If Mag = M$(i) Then VM = VM + V(i)
Next i
Nd = InputBox("За какой день?")
VD = 0
For i = 1 To N
If Nd = D(i) Then VD = VD + V(i)
Next i
Debug.Print "Выручка магазина "; Mag; " за неделю составляет: "; VM
Debug.Print "Выручка магазина за день "; Nd; " составляет: "; VD
End Sub
Представим алгоритм определения выручки магазина в виде блок-схемы (рисунок 3.7): [8]
Рисунок 3.7 − Алгоритм определения выручки магазина