Size: a a a

2021 May 25

m

mefest in 💻 Coding Ru
Посчитать число скобочек?
источник

И

Имранчик in 💻 Coding Ru
Щя кину перевод
источник

И

Имранчик in 💻 Coding Ru
3) 20%
Вам дается набор круглых скобок. Ваша задача-выяснить, является ли данный набор фигурных скобок допустимым
или нет.
Входные данные содержат только одну строку с набором фигурных скобок(длина строки не более 1000)
без пробелов.
Если заданная последовательность фигурных скобок допустима, выведите "ДОПУСТИМО" или "НЕДОПУСТИМО" в другом случае.
Ввод: ()(())
Вывод: ДЕЙСТВИТЕЛЬНЫЙ
Ввод: ()()((
Вывод: НЕДОПУСТИМЫЙ
Ввод: ()())(
Вывод: НЕДОПУСТИМЫЙ
Примечание: Для допустимых ситуаций для каждой открытой фигурной скобки должны быть закрытые фигурные скобки, А закрытые фигурные
скобки не могут начинаться до открытых фигурных скобок. Кроме того, количество открытых и закрытых фигурных скобок должно быть
равный
источник

m

mefest in 💻 Coding Ru
Хотя там порядок ещё важен
источник

m

mefest in 💻 Coding Ru
Вспоминаются книжки где советуют прибавлять единицу и убавлять на каждую скобку. Тут ещё проверять что в минус не ушел
источник

И

Имранчик in 💻 Coding Ru
Ооо прям в точку, если можно я буду очень благодарен ☺️
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
Привет
ковыряюсь с циклами и массивами на visual basic
можете подсказать идею как удалить элемент массива если он удовлетворяет условию
что-то в интернете не могу найти решение
источник

m

mefest in 💻 Coding Ru
Сдвинуть элементы после него на один в лево и уменьшить размер
источник

m

mefest in 💻 Coding Ru
Если массив динамический
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
а как это сделать?
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
Dim mas_y As Double()
       Dim i As Integer
       mas_y = m_x
       For i = 0 To m_x.Length
           If mas_y(i) < 0 Then
               mas_y(i) = min
           End If
           If mas_y(i) > max Then
               mas_y(i) = max
           End If
           If mas_y(i) = 0 Then

           End If
       Next
мне надо это сделать если элемент массива равен нулю
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
вот в таком формате я избавилась от нулей, но где-то ошибка тк последний элемент нового массива всегда ноль
как это исправить

Dim mas_y As Double()
       ReDim mas_y(UBound(m_x))
       Dim i, j As Integer
       For i = 0 To (m_x.Length - 1)
           If m_x(i) < 0 Then
               m_x(i) = min
           End If
           If m_x(i) > 0 Then
               m_x(i) = max
           End If
       Next
       For i = 0 To UBound(m_x)
           If m_x(i) <> 0 Then
               mas_y(j) = m_x(i)
               j = j + 1

           End If
       Next
       ReDim Preserve mas_y(j)
источник

m

mefest in 💻 Coding Ru
а длину массива можно уменьшить?
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
мне кажется это не вариант
нужно как то в цикле исправить
правда пока не нашла решение
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
в конце все равно ноль вылезает
источник

h

he1a in 💻 Coding Ru
Индекс выходит за пределы во втором цикле. Нужно переписать:

For i = 0 To (UBound(m_x) - 1)
  ...
Next
источник

h

he1a in 💻 Coding Ru
Возможно у Вас в выводе та же проблема
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
Ну я приблизительно так же вышла из положения
Я сказала redim preserve mas_y(j-1)
источник

h

he1a in 💻 Coding Ru
Да, оказывается в VB идиотская инициализация через ReDim (и вообще всех масивов) - если пишешь ReDim arr(5) он создаёт диапозон от 0 до 5 а не как все привыкли (0 до 4)
источник

АТ

Алевтина Торопацкая... in 💻 Coding Ru
Да, поэтому запомнила на одну ячейку меньше
источник