Дан массив целых чисел A = (ai), где i =(1,2,3,.,n). Напечатать числа, образующие возрастающую посл-ть

09.11.2014, 15:46. Показов 1327. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Буду весьма благодарен любому, кто откликнется на мою проблему.
Задача:
Дан массив целых чисел A = (ai), где i =(1,2,3,...,n). Напечатать числа, образующие возрастающую последовательность.
Числа вводятся в отдельный текстовый блок, эту часть я сделал, а вот, как решить непосредственно задачу - понятия не имею

Вот то, что накалякал:

Visual Basic

Dim n, nw, min, i As Integer
Dim nws As String
Dim Msi() As Integer
Private Sub Command1_Click()
If Text2.Text <> "" Then
n = n + 1
nws = Text2.Text
Text2.Text = ""
nw = CInt(nws)
nws = CStr(nw)
If n = 1 Then Text1.Text = nws Else Text1.Text = Text1.Text + ", " + nws
ReDim Preserve Msi(n - 1)
Msi(n - 1) = nw
End If
End Sub
 
Private Sub Command2_click()
For i = 1 To n
If Msi(n) < Msi(n - 1) Then
Text3.Text = Text3.Text + ", " + Msi(n) + "," + Msi(n - 1)
End If
Next i
End Sub

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.11.2014, 15:46

Ответы с готовыми решениями:

Дан массив В[0:n-1] целых чисел и числа x и y , где x<y. на основе элементов массива В сформировать массив D[0:m-1]
Нужен полный текст программы, заранее благодарен

Дан массив целых чисел. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!"
Доброго времени суток! Дан массив целых чисел - A={ai}, где i={1,2...n}. Найти номер последнего...

Дан массив целых чисел. Напечатать все четные элементы
Использование условий для изменения элементов массива и вывода их на экран 6.3) Дан массив целых...

Дан одномерный массив целых чисел напечатать все четные эелементы (посмотрете код)
Дан одномерный массив целых чисел напечатать все четные эелементы (посмотрете код) Скажите, что я...

	09.11.2014, 15:46

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.11.2014, 15:46

Помогаю со студенческими работами здесь

Дан неупорядоченный массив целых чисел. Найти самый длинный участок строгого возрастания, напечатать индексы
Дан неупорядоченный массив целых чисел. Найти самый длинный участок строгого возрастания,...

Задан массив целых чисел. Напечатать числа, которые входят в массив более одного раза
Здравствуйте! Задан массив целых чисел размера N. Напечатать числа, которые входят в массив более...

Дан массив из n целых чисел.Определить количество положительных чисел, используя функцию определения положительности числа.
Плиз срочна нуна !!!

Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все отрицательные числа и нули
Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все...

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

Или воспользуйтесь поиском по форуму:

Наверх