Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA программа VBA https://www.cyberforum.ru/ vba/ thread197883.html
написать программу для решения задач. Для первой кнопки- For...Next,для второй-цикл Doo...Loop . Создать третью кнопку для которой написать программу вычисления суммы.S=значок суммы , вверху...
VBA Найти произведение четных элементов массива
Ребят помогите пожалуйста!!! 1) Ввести массив A(N). Найти произведение четных элементов массива, сумму нечетных элементов, разность произведения и суммы. Вывести все результаты. Помогите...
VBA Обращение к переменным из других модулей
Помогите разобраться с обращением к переменным из разных модулей, к примеру есть модуль '=== Sub DataClear() Static DataRange As Range With DataRange .Replace What:="года",...
VBA VISIO поиск Shape по свойствам как найти Shape по одному из свойств? Например у нас есть 10000 различных фигур, у всех есть свойство "Код", мне нужно найти фигуру с кодом, например, "Obj0001". https://www.cyberforum.ru/ vba/ thread197205.html
VBA определить,принадлежит ли точка кольцу https://www.cyberforum.ru/ vba/ thread196996.html
напишите,пожалуйста программу в VBA при помощи условного оператора.Вот условие:определить,принадлежит ли точка с координатами(x;y)кольцу с внутренним радиусом r1 и внешним радиусом r2,центр которого...
VBA Internet Explorer, автоматизация
Камрады, Есть web-сервис, который по определенной ссылке выдает excel-файл. Подскажите, как из excel на vba сохранить сохранить excel-файл, выдаваемый web-сервисом. Подскажите какие медоты/свойста...
VBA Зависание при открытии канала DDE
Здравствуйте, уважаемое сообщество! ОС Windows XP, MS Office 2003 SP3 Написал макрос, в котором управляю другим приложением через Dynamic Data Exchange (DDE). Этот механизм взаимодействия...
VBA Записать сразу 2 формулы в макросе для VBA Помогите, пожалуйста, как мне записать 2 формулы в макросе . Одну формулу для нахождения конечного пути я ввела, а вот вторую не могу. S=at^2/2. Буду очень благодарна!!! Sub расчёт()... https://www.cyberforum.ru/ vba/ thread196526.html
VBA Значение суммы https://www.cyberforum.ru/ vba/ thread196269.html
Здравствуйте, подскажите, пожалуйста, как с помощью васика вычислить значение суммы. Я не понимаю как записать сразу все значения от 1 до 14. Спасибо
VBA Создание макросов для всех презентаций PowerPoint Как сделать общие макросы для всех презентаций PowerPoint? Добавлено через 20 часов 12 минут Пока придумал следующее: нужно открыть презентацию, содержащую макросы, и макросы становятся... https://www.cyberforum.ru/ vba/ thread196192.html
5497 / 1324 / 145
Регистрация: 08.02.2009
Сообщений: 4,044
Записей в блоге: 29
26.11.2010, 23:55 0

Определите максимальное количество подряд идущих положительных элементов последовательности

26.11.2010, 23:55. Просмотров 3366. Ответов 15
Метки (Все метки)

Ответ

Все на испытания!
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub bisquitONEclik()
 
Dim A() As Single, B() As Single
Dim k As Integer, p As Integer, pmax As Integer, n As Integer
Dim X As Variant, ПоложительныхНет As Boolean
 
ActiveWindow.ActivePane.View.ShowAll = False 'скрыли непечатаемые знаки
 
Selection.EndKey wdStory    'курсор в начало
Selection.TypeParagraph     'печатаем с нового абзаца (в ворде)
 
X = Val(InputBox("введите верхний предел для элементов массива", "Ввод X", 20))
If Not IsNumeric(X) Or X = Empty Then Exit Sub
    
    ЧислоЭлементов = Int(10 * Rnd) + 2  'генерирует число от 2 до 11
    ReDim A(1 To ЧислоЭлементов)   'определили размерность для исходного массива
    ReDim B(1 To ЧислоЭлементов)   'определили размерность для итогового массива
    
        A(1) = X - Rnd * X * 2 '1-й элемент массива A
        Selection.TypeText A(1) & " (" & 1 & ")" & vbTab 'печатаем 1-й элемент
    
    For k = 2 To ЧислоЭлементов
        Randomize
        A(k) = X - Rnd * X '* 2 'k-й элемент массива A (число из диапазона (-X; X])
        Selection.TypeText A(k) & " (" & k & ")" & vbTab 'печатаем k-й элемент
        
            If A(k) > 0 And A(k - 1) > 0 Then
                p = p + 1
                B(p) = A(k)
                pmax = p
                ПоложительныхНет = False
            Else
                ПоложительныхНет = True
                For n = 1 To ЧислоЭлементов: B(n) = 0: Next
                p = 0
            End If
    Next
'Массив A сформирован и напечатан. Массив B сформирован (если нашлись эл-ты > 0).
Selection.TypeParagraph
 
If ПоложительныхНет Then
MsgBox "В исходном массиве положительных элементов нет.", vbInformation
Exit Sub
End If
    
    For k = 1 To pmax
    Selection.TypeText vbCr & B(k)  'печатаем k-й элемент итогового массива
    Next
'Массив B напечатан (если он есть).
End Sub


Вернуться к обсуждению:
Определите максимальное количество подряд идущих положительных элементов последовательности
0
Миниатюры
Определите максимальное количество подряд идущих положительных элементов последовательности   Определите максимальное количество подряд идущих положительных элементов последовательности  
Вложения
Тип файла: doc click.doc (32.0 Кб, 27 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2010, 23:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить максимальное количество подряд идущих положительных элементов
Здравствуйте, нужна помощь в решении задачи. Буду очень благодарен! В массиве A(N) определить...

Подсчитать максимальное количество подряд идущих положительных элементов
Помогите пожалуйста с задачкой, мое предположение почему-то no выдает domains i=integer*...

Определите количество пифагоровых троек из идущих подряд элементов последовательности
Нужно написать программу, выполняющую один раз ввод последовательности целых чисел, признаком...

Найти максимальное количество подряд идущих положительных четных элементов
Дан массив А(50). Найти максимальное количество подряд идущих положительных четных элементов.

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