Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
UDK
0 / 0 / 1
Регистрация: 05.11.2016
Сообщений: 46
1

Надо реализовать ф-цию, возвращающую результат умножения всех чётных чисел прописанных во входном векторе функ

19.04.2017, 12:38. Просмотров 742. Ответов 2
Метки нет (Все метки)

Написал набросок, но код не пашет(. Пишет, что ошибка в 7 строке, но я не знаю как её исправить.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Function chetniysum(Massiv As Range)
Dim i As Integer, Count As Integer
Count = 1
arr = Massiv.Value
For i = LBound(arr, 1) To UBound(arr, 1)
  For j = LBound(arr, 2) To UBound(arr, 2)
   if val(arr(i,j)) % 2 == 0 Then Count = Count * val(arr(i,j))
  Next j
 Next i
chetniysum Count
End Function
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2017, 12:38
Ответы с готовыми решениями:

Дано натуральное число n. Выяснить, является ли оно полным квадратом.Определить функ-цию, позволяющую распознавать полные квадраты
Вот пока что сделал, дальше домозговать не могу. #include "stdafx.h" #include...

Cоставить программу, которая содержит рекурсивную функ-цию Combin2(N, K) целого типа, находящую C(N, K) – число сочетаний из N эле-ментов по K
помогите составить программу, которая содержит рекурсивную функ-цию Combin2(N,...

Реализовать функцию UnSpace(s), возвращающую строку, полученную удалением из исходной всех лишних пробелов
Реализовать функцию UnSpace(s), возвращающую строку, полученную удалением из...

Результат умножения чисел. Проверить код
дано два целых числа через пробел, результат одно целое число, результат...

Указать номера всех одинаковых чисел в векторе
Сформировать вектор В(N) и матрицу М(m,n): (можно Вi,j определить с помощью...

2
Vlad999
2813 / 1728 / 516
Регистрация: 02.11.2012
Сообщений: 4,316
19.04.2017, 13:35 2
Лучший ответ Сообщение было отмечено UDK как решение

Решение

1. что за ==
2. val(arr(i,j)) % 2 что этим вы хотели посчитать?

Добавлено через 16 минут
так?
Visual Basic
1
2
3
4
5
6
7
8
9
10
Public Function chetniysum(Massiv As Range)
Dim s, arr()
arr = Massiv.Value
For Each s In arr
  If IsNumeric(s) Then 'проверяем евляется ли числом
     If s > 0 Then chetniysum = IIf(chetniysum, chetniysum, 1) * s
  End If
Next
chetniysum = IIf(chetniysum, chetniysum, "-")
End Function
1
UDK
0 / 0 / 1
Регистрация: 05.11.2016
Сообщений: 46
19.04.2017, 19:22  [ТС] 3
Да, спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2017, 19:22

Как создать динамичное id? Просто надо создать третию матрицу где будет результат умножения двух матриц
<script type="text/javascript"> var p=document.getElementById('p'); var...

Интересует мой результат по выполнению операции умножения чисел
Всем привет, я пишу свою небольшую библиотеку для...

Циклы - надо найти произведение двух чисел, не используя умножения (*)
надо умножить два числа допустим 'а' и 'н' с помошью цикла for не используя...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru