реверсивная функция / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / реверсивная функция

6 сообщений из 6, страница 1 из 1

реверсивная функция

#38536096

fastomg

Гость

Ребят, ошибка в программе, пишет , что аргумент not optional

Дан массив C1, … , C20.
Определить сумму первых пяти элементов, вторую сумму с 15ого по 20ый элемент
Найти Smin(минимальную сумму).

Код: vbnet

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.
31.
32.

Sub макрос66()
    Dim c(20) As Single, s1, s2, Smin, h1, h2 As Single
    
    For i = 1 To 20
    c(i) = Cells(i, 1)
    Next i
    
    
    If h1 = 1 And h2 = 5 Then
        Call summ(c)
        s1 = Cells(1, 3)
    End If
    
    If h1 = 15 And h2 = 20 Then
        Call summ(c)
        s2 = Cells(2, 3)
    End If

    If s1 > s2 Then
    Smin = s2
    Else
    Smin = s1
    End If
    Cells(3, 3) = Smin
End Sub

Function summ(g() As Single, h1 As Single, h2 As Single) As Single
    summ = 0
    For i = h1 To h2
        summ = summ + g(i)
    Next i
End Function

...

Рейтинг:

0 / 0

23.01.2014, 21:27

| Ответить | Цитировать | Написать

реверсивная функция

#38536117

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

fastomgаргумент not optionalа что непонятного в ошибке?
у summ три обязательных аргумента, а вызывается с одним

...

Рейтинг:

0 / 0

23.01.2014, 22:06

| Ответить | Цитировать | Написать

реверсивная функция

#38536124

Volodbka

Участник

Сообщения: 329

Рейтинг: 0 / 0

Код: vbnet

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.

Option Explicit
Sub &#236;&#224;&#234;&#240;&#238;&#241;66()
    Dim c(100) As Single
    Dim s1 As Single
    Dim s2 As Single
    Dim i As Single
    Dim smin As Single
    
    For i = 1 To 20
    c(i) = Cells(i, 1)
    Next i
    
    s1 = 0
    s2 = 0
    
    For i = 1 To 20
    If i >= 1 And i <= 5 Then s1 = s1 + c(i)
    If i >= 15 And i <= 20 Then s2 = s2 + c(i)
    Next i
    
    Cells(2, 3) = "s1=" & s1
    Cells(2, 4) = "s2=" & s2
    
    If s1 > s2 Then
    smin = s2
    Else
    smin = s1
    End If
    Cells(2, 5) = "smin=" & smin
    End Sub

...

Рейтинг:

0 / 0

23.01.2014, 22:19

| Ответить | Цитировать | Написать

реверсивная функция

#38536166

fastomg

Гость

Volodbka,

а куда делась функция? и сделать вызов функции call summ 2 раза

...

Рейтинг:

0 / 0

23.01.2014, 23:29

| Ответить | Цитировать | Написать

реверсивная функция

#38536402

Казанский

Гость

fastomg,

Вы знаете какие-нибудь другие типы переменных кроме Single? Логичнее использовать Double для данных и Long для переменной цикла.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Dim c(20) As Double, i As Long  'переменные модуля, доступны во всех процедурах модуля

Sub макрос66()
    Dim s1 As Double, s2 As Double, Smin As Double  'тип необходимо указывать для каждой переменной
    
    For i = 1 To 20
        c(i) = Cells(i, 1)
    Next i
    
    s1 = summ(1, 5)
    Cells(1, 3) = s1
    s2 = summ(15, 20)
    Cells(2, 3) = s2

    If s1 > s2 Then Smin = s2 Else Smin = s1
    Cells(3, 3) = Smin
End Sub

Function summ(h1 As Long, h2 As Long) As Double
    For i = h1 To h2
        summ = summ + c(i)
    Next i
End Function

...

Рейтинг:

0 / 0

24.01.2014, 10:42

| Ответить | Цитировать | Написать

реверсивная функция

#38537371

Volodbka

Участник

Сообщения: 329

Рейтинг: 0 / 0

если sub то call,
если function то равно =.

...

Рейтинг:

0 / 0

24.01.2014, 19:34

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / реверсивная функция

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38536117&tid=2156552]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	263ms

total:	379ms