Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
DimOKoC
0 / 0 / 0
Регистрация: 27.03.2012
Сообщений: 3
#1

Убывающая последовательность и сжатие одномерного массива

27.03.2012, 22:00. Просмотров 693. Ответов 3
Метки нет (Все метки)

Помогите сделать пожалуйста...
Задача 1
Составьте программу на языке VBA, которая определяет,
является ли последовательность убывающей (длина последовательности не
ограничена). Признаком конца последовательности является ввод нуля.
Задача 2
Составьте программу на языке VBA, которая сжимает одномерный
массив A длинной n элементов путем удаления элементов, совпадающих с
числом L, и указывает количество удаленных элементов. Программа должна
проверять правильность введенных пользователем данных и, если они неверные (n ) ), выдавать сообщение об ошибке.

Добавлено через 7 минут
Для первой начал, но не могу додумать...
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub qq()
Dim a As Double, b As Double, X As String
b = InputBox("Ââåäèòå ÷èñëî (0 - ГЄГ®Г*ГҐГ¶ ââîäГ*)")
Do
b = a
  a = InputBox("Ââåäèòå ÷èñëî (0 - ГЄГ®Г*ГҐГ¶ ââîäГ*)")
  If a = 0 Then Exit Do
    If a < b Then X = "ÏîñëåäîâГ*òåëüГ*îñòü óáûâГ*ГѕГ№Г*Гї" Else X = "ÏîñëåäîâГ*òåëüГ*îñòü Г*ГҐ ÿâëÿåòñÿ óáûâГ*ГѕГ№ГҐГ©"
    Loop
MsgBox X
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2012, 22:00
Ответы с готовыми решениями:

Создание одномерного массива
Доброго времени суток форумчане. Прошу помощи в создании массива, содержащего...

сортировка одномерного массива
сортировка одномерного массива по убыванию какие элементы поместить на форму?...

сортировка одномерного массива
массив A размерность N, как определить кол-во отрицательных эллементов массива,...

Сортировка одномерного массива
Ребята, выручайте. Поставлена задача &quot;написать программу сортирования...

Заполнение одномерного массива
Помогите написать код заполнения одномерного массива значениями произведений...

3
Linoge
Эксперт Hardware
2239 / 1562 / 259
Регистрация: 25.10.2011
Сообщений: 4,737
28.03.2012, 09:43 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
    Dim a#, b#, f%
    f = 1
    Do
        a = Val(InputBox("Введите число (0 - конец ввода)"))
        If a = 0 Then Exit Do
        f = f * IIf(a < b Or b = 0, 1, 0)
        b = a
    Loop
    MsgBox IIf(f = 1, "Последовательность убывающая", _
"Последовательность не является убывающей")
и раздел не тот, переезжаем сюда

Visual Basic
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
    Dim n&, i&, L#, st$, t$
    n = InputBox("N", , 10)
    L = InputBox("L", , 5)
    ReDim A&(n - 1)
    i = 0
    st = ""
    Do
        t = InputBox("A(" & i & ")", , 5)
        If IsNumeric(t) Then
            A(i) = Val(t)
            st = st & A(i) & " "
            i = i + 1
        Else
            MsgBox "Введите число", vbExclamation + vbOKOnly
        End If
    Loop While i < n
    MsgBox "Исходный массив: " & st
    
    st = ""
    For i = 0 To n - 1
        If A(i) = L Then
            For j = i To n - 2
                A(i) = A(i + 1)
            Next
            n = n - 1
        Else
            st = st & A(i) & " "
        End If
    Next
    MsgBox "Сжатый массив: " & st
0
Апострофф
Заблокирован
28.03.2012, 09:58 #3
Цитата Сообщение от vstz Посмотреть сообщение
f = f * IIf(a < b Or b = 0, 1, 0)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub qq()
    Dim a#, b#, f%
    b=1E308
    Do
        a = Val(InputBox("Введите число (0 - конец ввода)"))
        If a = 0 Then Exit Do
        if a>=b then f=1
        b = a
    Loop
MsgBox IIf(f = 0, "Последовательность убывающая", _
"Последовательность не является убывающей")
end sub
0
Linoge
Эксперт Hardware
2239 / 1562 / 259
Регистрация: 25.10.2011
Сообщений: 4,737
28.03.2012, 10:23 #4
Цитата Сообщение от Апострофф Посмотреть сообщение
b=1E308

хотя бы b=1.7e308
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2012, 10:23

Сумма элементов одномерного массива
Помогите плиз с такой задачей для чайника (Visual Basic). Нужно ввести числа в...

Переставить элементы одномерного массива
Нужно переставить элементы одномерного массива следующим образом a(0), a(11),...

Найти N элементов одномерного массива
Вот не пойму смысл этой задачки по одномерным массивам: 1. Найти N элементов...


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

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

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