структура поиск

@BJlaD · Регистрация: 21.03.2010

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

Дали задание сделал программу, но чето не фурычит
задание:
Разработать информационую технологию позволяющую заполнить одномнрный масив значениями индексов элемнентов масива M (произвольной размерности) значения которых отрицательны и превосходят величину b
прога:

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
Private Sub Command1_Click()
Dim m As Integer, i As Integer, b As Integer, a() As Integer, c() As Integer
m = InputBox("Введите размерность")
ReDim a(m)
For i = 1 To m
a(i) = InputBox("Введите занчение a(" & i & ")элемента массива")
Next i
b = InputBox("Введите величину b")
flag = False
For i = 1 To m
If a(i) < 0 And a(i) > b Then
flag = True
a(i) = c(i)
Print c(i)
End If
If flag = False Then
MsgBox "элементов отрицательных и превосходящих велечину " & b & " нет"
End If
Print "Значение элементов матрицы А"
For i = 1 To m
Print
Next
End Sub

@ironegg · 21.03.2010, 16:41

на какой строке останавливается? какая ошибка? может вместо Print писать Debug.Print

@BJlaD · 21.03.2010, 16:47 **[ТС]**

выделает в конце программы перед принт For i = 1 To m
и ошибка compile error For control variable already in use

@ironegg · 21.03.2010, 17:03

пропущен оператор Next i ?

@BJlaD · 21.03.2010, 17:07 **[ТС]**

нет все равно таже ошибка!
сам уже голову сколько ломаю

@ironegg · 21.03.2010, 17:11

используй для циклов For... Next разные переменные например i, q, z

@BJlaD · 21.03.2010, 17:13 **[ТС]**

сори условие немного другое
Разработать информационую технологию позволяющую заполнить одномнрный масив значениями индексов элемнентов масива M (произвольной размерности) значения которых отрицательны или превосходят величину b

@ironegg · 21.03.2010, 17:27

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

Visual Basic
1
[VB]

[/VB]

@gaw · 21.03.2010, 17:44

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
Private Sub Command1_Click()
Dim m As Integer, i As Integer, b As Integer
Dim a(), c(), k As Integer
m = InputBox("Введите размерность")
ReDim a(m)
For i = 1 To m
a(i) = InputBox("Введите занчение a(" & i & ")элемента массива")
Next i
b = InputBox("Введите величину b")
k = 0
For i = 1 To m
If a(i) < 0 Or a(i) > b Then
k = k + 1
ReDim Preserve c(k)
c(k) = i
End If
Next i
Me.Cls
If k = 0 Then
MsgBox "элементов отрицательных или превосходящих велечину " & b & " нет"
End If
Print "Значение индексов элементов матрицы А, отрицательных или превосходящих велечину " & b
For i = 1 To k
Form1.Print c(i) & "  "
Next i
End Sub

@ironegg · 21.03.2010, 18:24

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
Private Sub Clk()
Dim m As Integer, i As Integer, b As Integer
Dim a(), c(), k As Integer
 
'm = InputBox("Ââåäèòå ðàçìåðíîñòü")
m = 10
ReDim a(m)
 
'For i = 1 To m
'a(i) = InputBox("Ââåäèòå çàí÷åíèå a(" & i & ")ýëåìåíòà ìàññèâà")
'Next i
z = Split("-3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7", ", ")
 
'b = InputBox("Ââåäèòå âåëè÷èíó b")
b = 3
 
 
For i = 0 To m
    If z(i) < 0 Or z(i) > b Then
        ReDim Preserve c(k)
        c(k) = z(i)
        k = k + 1
    End If
Next i
 
'Me.CLS
 
If IsEmpty(c(0)) Then
    MsgBox "ýëåìåíòîâ îòðèöàòåëüíûõ èëè ïðåâîñõîäÿùèõ âåëå÷èíó " & b & " íåò"
End If
Debug.Print "Çíà÷åíèå èíäåêñîâ ýëåìåíòîâ ìàòðèöû À, îòðèöàòåëüíûõ èëè ïðåâîñõîäÿùèõ âåëå÷èíó " & b
For i = 0 To UBound(c)
    Debug.Print c(i) & "  "
Next i
End Sub

так?

@BJlaD · 21.03.2010, 19:28 **[ТС]**

спасиб парни))

@Toxa33rus · 21.03.2010, 19:30

Это все из-за игнорирования табов!
Лучше потратить лишние пол секунды на пару нажатий пробела в каждой строке чем потом тратить пол дня на поиск "где же я забыл закрыть цикл"

@BJlaD · 21.03.2010, 20:27 **[ТС]**

спасиб парни))

Добавлено через 40 минут

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
Private Sub Command1_Click()
Dim m As Integer, i As Integer, b As Integer, a() As Integer, c() As Integer
m = InputBox("Введите размерность")
ReDim a(m)
For i = 1 To m
a(i) = InputBox("Введите занчение a(" & i & ")элемента массива")
Next i
b = InputBox("Введите величину b")
flag = False
For i = 1 To m
If a(i) < 0 And a(i) > b Then
flag = True
t = i
Print i
End If
Next i
If flag = False Then
MsgBox "элементов отрицательных и превосходящих велечину " & b & " нет"
End If
Print "Значение элементов матрицы А"
For i = 1 To m
Print a(i)
Next i
End Sub

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	21.03.2010, 16:41
	на какой строке останавливается? какая ошибка? может вместо Print писать Debug.Print 0

@BJlaD 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 8
	21.03.2010, 16:47 [ТС]
	выделает в конце программы перед принт For i = 1 To m и ошибка compile error For control variable already in use 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	21.03.2010, 17:03
	пропущен оператор Next i ? 0

@BJlaD 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 8
	21.03.2010, 17:07 [ТС]
	нет все равно таже ошибка! сам уже голову сколько ломаю 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	21.03.2010, 17:11
	используй для циклов For... Next разные переменные например i, q, z 0

@BJlaD 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 8
	21.03.2010, 17:13 [ТС]
	сори условие немного другое Разработать информационую технологию позволяющую заполнить одномнрный масив значениями индексов элемнентов масива M (произвольной размерности) значения которых отрицательны *или* превосходят величину b 0

@BJlaD 0 / 0 / 0 Регистрация: 21.03.2010 Сообщений: 8
	21.03.2010, 19:28 [ТС]
	спасиб парни)) 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	21.03.2010, 19:30
	Это все из-за игнорирования табов! Лучше потратить лишние пол секунды на пару нажатий пробела в каждой строке чем потом тратить пол дня на поиск "где же я забыл закрыть цикл" 1