В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
samsungtaba32
samsungtaba32
19.02.2020 09:18 •  Информатика

написать функцию если для расчета оплаты электроэнергии в ячейке B3 за первые 100 кВт Клиент платит 2 руб. за 1 кВт в решении расход 100 киловатт в месяц по 250 руб. каждая Ватт​


написать функцию если для расчета оплаты электроэнергии в ячейке B3 за первые 100 кВт Клиент платит

Показать ответ
Ответ:
MarioCascas
MarioCascas
10.05.2021 12:01
Алг
нач
   цел число элементов, позиция, максимум, минимум
   число элементов:=10
   целтаб a[1:число элементов]
   максимум:=-10000
   минимум:=10000
   нц для позиция от 1 до число элементов
       ввод a[позиция]
       если максимум<a[позиция] то максимум:=a[позиция]
       иначе если минимум>a[позиция] то минимум:=a[позиция]
             все
       все
   кц
   вывод "максимум=",максимум,", минимум=",минимум
кон

Тестовое решение:
>> 15:26:57 - Новая программа* - Выполнение начато
5
15
4
8
-2
7
2
9
11
10
максимум=15, минимум=-2
>> 15:27:49 - Новая программа* - Выполнение завершено
0,0(0 оценок)
Ответ:
erdanabekok
erdanabekok
09.10.2022 16:51

8192

Объяснение:

Данная незамысловатая функция Excel VBA формирует строку, согласно условию.

Function replstr(str As String, n As Integer) As String

Dim a(1 To 3), b(1 To 3) As String, i, j As Integer

a(1) = "A": a(2) = "B": a(3) = "AB"

b(1) = "AB": b(2) = "AB": b(3) = "A"

For i = 1 To n

j = (i - 1) Mod 3 + 1

str = Replace(str, a(j), b(j))

Next

replstr = str

End Function

Аргументы функции:

1) Исходная строка (а данном случае “AA”)

2) Число операций с исходной строкой

Значение первых 13 операций:

=replstr("AA";1) ABAB

=replstr("AA";2) AABAAB

=replstr("AA";3)

=replstr("AA";4) ABABABAB

=replstr("AA";5) AABAABAABAAB

=replstr("AA";6)

=replstr("AA";7) ABABABABABABABAB

=replstr("AA";8) AABAABAABAABAABAABAABAAB

=replstr("AA";9)

=replstr("AA";10)

=replstr("AA";11)

=replstr("AA";12)

=replstr("AA";13)

Для подсчета символов “A” в строке, используем еще одну функцию:

Function chrcount(str1 As String, str2 As String) As Integer

Dim str() As String

str = Split(str1, str2)

chrcount = UBound(str, 1)

End Function

Аргументы функции:

1) Cтрока

2) Символ (последовательность символов), число которых требуется найти

Например, результатом использования функции =chrcount(replstr("AA";20);"A") в ячейке Excel будет число 256

Используя описанные функции, посчитаем символы “A”в первых 13 строках

Номер операции (i) Число символов “A” в строке

1    2

2    4

3    4

4    4

5    8

6    8

7    8

8    16

9    16

10    16

11    32

12    32

13    32

Как видно из таблицы, число символов в строке образует числовую последовательность 2^1;  2^2; 2^2; 2^2; 2^3; 2^3; 2^3; … 2^([(i-2)/3]+2)

Таким образом, мы получили формулу для вычисления числа символов “A”в строке по номеру операции.

Соответственно, 2^([(35-2)/3]+2) = 8192

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота