Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.12.2010
Сообщений: 9

Наименьшая подпоследовательность

09.05.2011, 17:34. Показов 1319. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти отрицательную последовательность минимальной длины. Спасибо.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.05.2011, 17:34
Ответы с готовыми решениями:

Наименьшая отрицательная подпоследовательность
Здравствуйте, помогите пожалуйста с задачей. даны числа a1,a2 ... an. Найти наименьшую отрицательную подпоследовательность.

Наименьшая разность
Есть программа для определения наибольшей разности между двумя соседними числами: var n, n1, n2, d, dm, i: integer; begin repeat...

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

3
 Аватар для YuraAAA
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
10.05.2011, 16:29
Цитата Сообщение от predator92 Посмотреть сообщение
минимальной
О_о может максимальной?)
0
0 / 0 / 0
Регистрация: 26.12.2010
Сообщений: 9
10.05.2011, 16:53  [ТС]
Я не так написал) наименьшую подпоследовательность.
0
0 / 0 / 0
Регистрация: 26.12.2010
Сообщений: 9
15.05.2011, 08:42  [ТС]
вопрос все еще открыт

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
For h = 1 To n
    If a(h) < 0 Then
        curLen = curLen + 1
    Else
        If curLen > maxLen Then
            maxLen = curLen
            maxStart = h - curLen
            maxEnd = h - 1
            curLen = 0
        End If
    End If
Next
 
If curLen > maxLen Then
    maxLen = curLen
    maxStart = h - curLen
    maxEnd = h - 1
    curLen = 0
End If
 
If maxLen = 0 Then
    MsgBox "нет"
Else
    MsgBox "от " & maxStart & " до " & maxEnd
End If
Помогите переписать здесь ищется отрицательная подпоследовательность наибольшей длины, мне надо наименьшей длины.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.05.2011, 08:42
Помогаю со студенческими работами здесь

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

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

Наименьшая длинна волны
Добрый день, подскажите пожалуйста: В рентгеновской трубке электроны, ускоренные напряжением 45 кВ, ударяются об металлическую мишень....

Наименьшая и наибольшая цифра
Дано трехзначное число. Определить наименьшую и наибольшую его цифру. Входные данные 455 Выходные 4 5

Наименьшая и наибольшая цифра
Дано трехзначное число. Определить наименьшую и наибольшую его цифру. Входные данные: Во входном потоке в трехзначное целое число A. ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru