Тема: Задачка по VBA

Вводиться послідовність із n довільних чисел. Визначити, скільки разів послідовність змінює знак.

Помогите решить задачку, пожалуйста.

2

Re: Задачка по VBA

zheniakhliustov написав:

Вводиться послідовність із n довільних чисел. Визначити, скільки разів послідовність змінює знак.

Помогите решить задачку, пожалуйста.

1. Ви якою мовою тут відписували?
2. У чому проблеми?

I belong to the Dead Generation.

3

Re: Задачка по VBA

VBA
просто не знаю як зробити, допоможіть будьласка

4

Re: Задачка по VBA

Реалізація на C++ наведена тут. Алгоритм робочий.
Перекласти на вба - справа техніки.

I belong to the Dead Generation.

5

Re: Задачка по VBA

але ж там не n-на послідовність...
я просто зовсім не розумію VBA, а сестра попросила допомогти

6

Re: Задачка по VBA

Якщо матиму час - завтра під вечір підгоню щось.

I belong to the Dead Generation.

7

Re: Задачка по VBA

добре, дякую

8

Re: Задачка по VBA

http://rghost.net/43912933

I belong to the Dead Generation.

9 Востаннє редагувалося Bartash (20.02.2013 00:13:31)

Re: Задачка по VBA

Попередній лінк термінується 5 днями. Код-сирець нижче:

Private Sub CommandButton1_Click()

Dim signChanges As Integer
Dim lastSignPlus As Boolean

If CInt(ListBox1.List(1)) > 0 Then
    lastSignPlus = True
Else
    lastSignPlus = False
End If


For Index = 1 To ListBox1.ListCount - 1 Step 1

If CInt(ListBox1.List(Index)) >= 0 Then
    If Not lastSignPlus Then
        signChanges = signChanges + 1
    End If
    lastSignPlus = True
ElseIf CInt(ListBox1.List(Index)) < 0 Then
    If lastSignPlus Then
        signChanges = signChanges + 1
    End If
    lastSignPlus = False
End If
Next Index

Label1.Caption = CStr(signChanges)

End Sub

Private Sub Edit_Click()

ListBox1.AddItem (TextBox1.Text)

End Sub

З.І: Уточнення у коді:

If CInt(ListBox1.List(0)) > 0 Then
    lastSignPlus = True
Else
    lastSignPlus = False
End If

ВБА ламає мозок.

I belong to the Dead Generation.
Подякували: Очі.завидющі1

10

Re: Задачка по VBA

не зрозумів про лінк

11

Re: Задачка по VBA

zheniakhliustov написав:

не зрозумів про лінк

Умови файлобмінника обмежують його існування за лінком на термін 5 днів.

I belong to the Dead Generation.

12

Re: Задачка по VBA

ага, дякую

файл excel відкривається але в ньому нічого немає(

13

Re: Задачка по VBA

Alt+F11 - відкриє редактор вба. Для третього офісу.

З.І: внесіть у код у файлі уточнення - я двома постами раніше вказав.

I belong to the Dead Generation.

14

Re: Задачка по VBA

просто дописати в код?

15

Re: Задачка по VBA

Знайдіть той блок у коді. Там просто треба індекс одиничку на нуль замінити, інакше результат хибний буде.

I belong to the Dead Generation.

16

Re: Задачка по VBA

ага, все зрозуміло.
велике дякую!

17

Re: Задачка по VBA

можна ще будь - ласка блок схему побудувати?

18

Re: Задачка по VBA

Легко. :)

I belong to the Dead Generation.