Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
💸 Как сделать бизнес проще, а карман толще?
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже.
Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал.
Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее. ✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать». Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами! Вывод массива
Для распечатки полученного массива на рабочий лист Excel используется следующая конструкция:
For i = 1 To n Cells(k, i) = A(i) ‘ вывод массива в ячейки электронной таблицы Next i ‘ k – номер строки для заполнения ячеек.
Вместо переменной k можно использовать конкретное значение, например 3, тогда массив распечатается в третьей строке рабочего листа. После заполнения ячеек их содержимое можно посмотреть, свернув окно программного кода при помощи кнопки “Свернуть” или переключившись в окно Excel с помощью соответствующей кнопки на панели задач.
Вычисление суммы, произведения и количества элементов в одномерном массиве
Вычисление суммы, произведения и количества элементов в одномерных массивах производится обязательно в цикле, перед которым сумма приравнивается к нулю, произведение – к единице, количество – к нулю. Например, в одномерном массиве, состоящем из пяти элементов, для вычисления суммы следует записать следующее:
sum = 0 For i = 1 To 5 sum = sum + A(i) Next i MsgBox (sum)
Для вычисления произведения:
pr = 1 For i = 1 To 5 pr = pr * A(i) Next i MsgBox (pr)
Для вычисления количества:
kol = 0 For i = 1 To 5 kol = kol + 1 Next i MsgBox (kol)
Если необходимо вычислить сумму, произведение или количество элементов массива, удовлетворяющих некоторому условию, то в цикле следует записать условный оператор, в котором проверяется это условие.
Пример Задан целочисленный массив А, состоящий из N элементов. Вычислить среднее арифметическое четных элементов и среднее геометрическое нечетных элементов.
Программный код
Option Explicit Sub PR16() Dim i As Integer, S As Integer Dim K1 As Integer, K2 As Integer, N As Integer Dim PR As Double, SA As Double, SG As Double Dim A(50) As Integer N = Val(InputBox(" Введите N")) S = 0: PR = 1: K1 = 0: K2 = 0 For i = 1 To N A(i) = Cells(1, i) Next i For i = 1 To N If A(i) mod 2 = 0 Then S = S + A(i) ‘ вычисление суммы и K1 = K1 + 1 ‘ количества четных элементов End If If A(i) mod 2 < > 0 Then PR = PR * A(i) ‘ вычисление произведения и K2 = K2 +1 ‘ количества нечетных элементов End If Next i MsgBox(" S=" & S & " K1=" & K1) MsgBox(" PR=" & PR & " K2=" & K2) If K1 < > 0 Then SA = S / K1 ‘ вычисление среднего арифметического MsgBox(" SA=" & SA) Else MsgBox(" четных элементов нет") End If If K2 < > 0 And PR> 0 Then SG = PR ^ (1 / K2) ‘ вычисление среднего геометрического MsgBox(" SG=" & SG) Else MsgBox(" нечетных элементов нет") End If End Sub
|