Взгляните профессиональным взглядом,что здесь неправильно?

@in_box · Регистрация: 21.10.2010

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

Даны натуральное число n, действительные числа а1, а2, …аn. Получить удвоенную сумму всех положительных членов последовательности а1, а2, …аn. Последовательность действительных чисел задать самостоятельно (n=30).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
Dim n(30) As Integer
Dim S As Integer
Dim A(30) As Integer
For i = 1 To 30
A(30) = InputBox("Введите число" & Str(i) & "=")
Next i
For i = 1 To 30
If A(i) > 0 Then
S = S + A(i)
End If
Next i
S = S * 2
Print S
End Sub

@Alex77755 · 21.10.2010, 20:20

Visual Basic
1
2
3
For i = 1 To 30
A(i) = InputBox("Введите число" & Str(i) & "=")
Next i

@in_box · 21.10.2010, 20:31 **[ТС]**

аааааааааааааааааааааааааааа...
она зароботалаааааааа=))))))
Я тебя люблю=*

@in_box · 21.10.2010, 20:57 **[ТС]**

Глянь еще вот эту пожалуйста...оч оч пожалуйста..

Дано целое число N и набор из N пар чисел (m,v) -данные о массе m и обьеме v,изготовленные из различных материалов.Вывести номер детали ,изготовленной из материала максимальной плотности,а также величину этой максимальной плотности.Плотность P P=m/v

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 N As Integer
Dim v As Integer
Dim m As Integer
Dim P(100) As Currency
Dim max As Integer
Dim Imax As Integer
N = Val(Text1.Text)
For i = 1 To N
m = Val(InputBox("Введите", "m" & Str(i) & "="))
v = Val(InputBox("Введите", "v" & Str(i) & "="))
Next i
max = 1
Imax = 1
For i = 1 To N
P(i) = m / v
If P(i) > max Then
max = P(i)
Imax = i
End If
Next i
Print "max", max
Print "Imax", Imax
End Sub

@Vlanib · 22.10.2010, 07:13

В твоем коде в массиве P все элементы будут одинаковые потому, что расчитаны от значений m и v которые уже не изменятся. Оптимальным решением будет отказатся от массива вобще и использовать один цикл:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Task()
Dim N As Integer, iInd As Integer, i As Integer, iMax As Single, P As Single, sMsg As String
N = InputBox("Êîëè÷åñòâî äåòàëåé:")
For i = 1 To N
    m = InputBox("Ââîä ìàññû äåòàëè " & i)
    v = InputBox("Ââîä îáúåìà äåòàëè " & i)
    P = m / v
    sMsg = sMsg & "Äåòàëü " & i & " ìàññîé " & m & " îáúåìîì " & v & " èìååò ïëîòíîñòü " & P & vbNewLine
    If P > iMax Then iMax = P: iInd = i
Next
sMsg = sMsg & "-----" & vbNewLine & "Íàèáîëüøóþ ïëîòíîñòü - " & iMax & " èìååò äåòàëü " & iInd
MsgBox sMsg
End Sub

Если массив всё же необходим, то он должен быть динамическим:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Task()
Dim N As Integer, iInd As Integer, i As Integer, iMax As Single, P(), sMsg As String
N = InputBox("Êîëè÷åñòâî äåòàëåé:")
ReDim P(1 To N)
For i = 1 To N
    m = InputBox("Ââîä ìàññû äåòàëè " & i)
    v = InputBox("Ââîä îáúåìà äåòàëè " & i)
    P(i) = m / v
    sMsg = sMsg & "Äåòàëü " & i & " ìàññîé " & m & " îáúåìîì " & v & " èìååò ïëîòíîñòü " & P(i) & vbNewLine
    If P(i) > iMax Then iMax = P(i): iInd = i
Next
sMsg = sMsg & "-----" & vbNewLine & "Íàèáîëüøóþ ïëîòíîñòü - " & iMax & " èìååò äåòàëü " & iInd
MsgBox sMsg
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника 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 существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@in_box 0 / 0 / 0 Регистрация: 21.10.2010 Сообщений: 41
	21.10.2010, 20:31 [ТС]
	аааааааааааааааааааааааааааа... она зароботалаааааааа=)))))) Я тебя люблю=* 0