Задачки

[SeT]

Чё-то я не могу решить задачку по бейсику, хотя уже третий день бьюсь... Помогите пожалуйста с решением!
Задача:
Напечатать только те числа из массива, которые образуют растущую последовательность. Н.р. если A={2,4,-3,4,2,-2,5}, результат 2,4 и -3,4 и -2,5

[GAGArin]

"Те числа ..." или "те пары чисел... "?

Add Постеснялся бы хоть в основной форум класть.

[GSerg]

Я не думаю, что кто-то кроме тебя должен делать эту исключительно примитивную домашнюю работу.

[alibek]

Переношу.

[Faust]

Опустили человека... Если тебе нужно найти все монотонно возрастающие подпоследовательности данной последовательности, то рекурсия тебе поможет, ежели все дайствительно так тупо, как можно понять из твоего примера (что нужно найти все пары A(i)<A(i+1)), то с такими вопросами тебе поможет только Бог.

[SeT]

Я написал её в главном разделе потому, что все мои вопросы остаются без ответа, т.е. никто не может или не хочет мне помочь => вопрос мой для вас трудный
Если так и делал, он прога число 2 тоже считает последовательностью, что не должно быть!

[alibek]

т.е. никто не может или не хочет мне помочь => вопрос мой для вас трудный

Странные выводы.

[GAGArin]

Я написал её в главном разделе потому, что все мои вопросы остаются без ответа, т.е. никто не может или не хочет мне помочь => вопрос мой для вас трудный или неинтересный (прим. редактора)

Странный вывод из своих же слов.

Если так и делал, он прога число 2 тоже считает последовательностью, что не должно быть!

А по-русски?

[SeT]

Ну ты напиши программу и проверь результат!
должно быть 2,4 и -3,4 и -2,5
А будет 2,4 и -3,4 и 2 и -2,5
ДВОЙКА ЛИШНЯЯЯЯЯЯЯ

SeT писал(а):
Я написал её в главном разделе потому, что все мои вопросы остаются без ответа, т.е. никто не может или не хочет мне помочь => вопрос мой для вас трудный или неинтересный (прим. редактора)

Странный вывод из своих же слов.

Тогда найди мою последнюю тему про терминалку... Я сильно сомневаюсь, что тема не интересная

[alibek]

Тогда найди мою последнюю тему про терминалку... Я сильно сомневаюсь, что тема не интересная

Напрасно сомневаешься.

[SeT]

Чтоже для тебя тогда интересное? Прога для вычисления примера 2+2+2?
Когда спрашивал про обои, то сам нашёл кусок кода быстрее чем дали ответ на форуме (с разницей в неделю или типа того)
Когда спрашивал как сделать прозрачный GIF, среди флуда ничё путного не нашёл, опять сам нашёл полностью собранный исходник...
И чем дальше в лес, тем злее дятлы...
Спасибо млин за помощь, тогда уж как-нибудь сам сделаю!

[GAGArin]

Ну ты напиши программу и проверь результат!

Написал, двойку не выводит, решения выдает. Блин, а я надеялся...

[Faust]

Мужики! Я, кажется понял, что требовалось в задаче! Нужно было вывести только те подряд идущие элементы массива, которые образуют возрастающую последовательность. Так, SeT? Если да, то вот код:

Код: Выделить всё

Const N = 99
Private Sub Form_Load()
Dim A(0 To N) As Long, i As Long
Randomize
For i = 0 To N
    A(i) = Int(Rnd * 100)
Next i
If A(1) > A(0) Then Debug.Print A(0);
i = 1
Do
While (A(i + 1) > A(i))
    Debug.Print A(i);
    i = i + 1
    If i = N Then GoTo m1
Wend
m1:
If A(i - 1) < A(i) Then Debug.Print A(i)
i = i + 1
Loop Until i >= N
End Sub

Корявый, но рабочий.
ЗЫ. В следущий раз постарайся получше формулировать условия задач. Тогда и ответ на них получишь быстрее.

[SeT]

Я написал слово в слово как написано а задаче.

[Faust]

Я написал слово в слово как написано а задаче.

Тогда сочувствую... Если тебе по таким материалам приходится учится, то могу только пожелать удачи и терпения!

[CORBA]

2 Set
мдас программирование это те не цацки-пецки, тут думать приходится

Код: Выделить всё


Dim a() As Integer = {2, 4, -3, 4, 2, -2, 5}
Dim i As Integer
    For i = LBound(a) To UBound(a) - 1
       If a(i) < a(i + 1) Then Debug.Print(CStr(a(i)) + "," + CStr(a(i + 1)))
    Next i

[Viper]

2 Set

Код: Выделить всё

Dim a() As Integer = {2, 4, -3, 4, 2, -2, 5}


в VB массив так нельзя инициализировать, только поэлементно.

2 Set

Если я правильно понял и необходима последовательность состоящая из произвольного количества чисел, а не попарно, то код должен быть такой:

Код: Выделить всё

Public Sub PrintSequence(ar() As Integer)
Dim i As Integer
    Dim bPrint As Boolean   ' указывает на то, что условие выполняется
    ' цикл от первого до предпоследнего элемента массива
    For i = LBound(ar) To UBound(ar) - 1
        If ar(i) < ar(i + 1) Then
            ' условие выполняется - печатаем текущий элемент
            Debug.Print ar(i);
            bPrint = True   ' устанавливаем флаг
        ElseIf bPrint Then
            Debug.Print ar(i) ' печатаем текущий элемент как последний в последовательности
            bPrint = False    ' снимаем флаг
        Else
            bPrint = False    ' снимаем флаг
        End If
    Next i
    If bPrint Then
        ' при установленном флаге печатем последний элемент массива
        Debug.Print ar(i)
    End If
End Sub

А если попарно, то подойдет код от CORBA. Ошибку инициализации массива конечно надо исправить

[SeT]

В целом спасибо за помощь. Первый код подошёл лучше...
Ещё раз спасибо!

[CORBA]

Ошибку инициализации массива конечно надо исправить

Вовсе это не ошибка просто синтаксис VB 2005.

[Viper]

Ошибку инициализации массива конечно надо исправить

Вовсе это не ошибка просто синтаксис VB 2005.

...а дальнейнший код почему то в синтаксисе VB а не VB.NET так где ж ошибка: в инициализации массива или в Debug.Print ибо в VB.NET следовало бы написать Debug.WriteLine?

[CORBA]

2 Viper

Да нету там ошибок. И без WriteLine всё прекрасно работает - разве это не показатель, что в коде нет ошибок.