Помогите написать лабу!!

@Yro · Регистрация: 23.09.2011

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

В одномерном массиве, состоящем из п вещественных элементов, вычислить:
• количество элементов массива, равных нулю;
• сумму элементов массива, расположенных после минимального элемента.

@gaw · 23.09.2011, 23:36

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
Private Sub Command1_Click()
Dim n%, a(), st As String
Dim k_0%, S
n = Val(InputBox("n-? /n>2/", , 10))
 
If n > 1 Then
   ReDim a(1 To n)
st = "": k_0 = 0
Randomize (Timer)
    For i = 1 To n
       a(i) = Int(Rnd * 11) - 5
       st = st & a(i) & "  "
         If a(i) = 0 Then k_0 = k_0 + 1
   Next i
S = Summ(a(), ind_min(a()))
   MsgBox st & vbLf & "k_0=" & k_0 & vbLf & "S=" & S, vbInformation
Else
MsgBox "n>2!"
End If
End Sub
 
Function ind_min(m()) As Integer
Dim j%, min
min = m(LBound(m)): ind_min = LBound(m)
For j = ind_min + 1 To UBound(m)
If min > m(j) Then
     min = m(j): ind_min = j
End If
Next j
End Function
 
Function Summ(m(), l%)
Dim j%
Summ = 0
   For j = l + 1 To UBound(m)
      Summ = Summ + m(j)
   Next j
End Function

@Yro · 23.09.2011, 23:47 **[ТС]**

Спасибо! Но в чем подвох?

@gaw · 23.09.2011, 23:57

Сообщение от Yro

Но в чем подвох

переведи

Добавлено через 56 секунд
какой подвох

@Yro · 24.09.2011, 00:06 **[ТС]**

Не ждала ответа... Последний бульк утопающего.

Добавлено через 5 минут
Поможешь с еще одной лабой?
. Постоянная времени Т электрической цепи равна Т=RC, где R и С - соответственно сопротивление и емкость цепи. Составить алгоритм решения задачи при условии, что R изменяется от 10^2 Ом до R(0)=10^3 Ом с шагом /\R=10^2 Ом.

Типа циклические конструкции.

@gaw · 24.09.2011, 00:15

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Dim R!, C!, T!, st$
 
C = Val(InputBox("Вводим емкость С (ф)", , 100))
For R = 10 ^ 2 To 10 ^ 3 Step 10 ^ 2
T = R * C
st = st & R & " Om" & vbTab & "T=RC=" & T & vbLf
Next R
MsgBox st
End Sub

@Yro · 24.09.2011, 00:33 **[ТС]**

спасибо, но почему-то не работает(((

@gaw · 24.09.2011, 00:56

ок,
1 в какой среде не работает
2 если vb 6.0, то покажите свой проект (в файл вложите)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной почты. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Yro 29 / 4 / 0 Регистрация: 23.09.2011 Сообщений: 41

	Помогите написать лабу!! 23.09.2011, 22:52. Показов 920. Ответов 7 Метки нет (Все метки) В одномерном массиве, состоящем из п вещественных элементов, вычислить: • количество элементов массива, равных нулю; • сумму элементов массива, расположенных после минимального элемента. 0

@Yro 29 / 4 / 0 Регистрация: 23.09.2011 Сообщений: 41
	23.09.2011, 23:47 [ТС]
	Спасибо! Но в чем подвох? 0

@Yro 29 / 4 / 0 Регистрация: 23.09.2011 Сообщений: 41
	24.09.2011, 00:06 [ТС]
	Не ждала ответа... Последний бульк утопающего. Добавлено через 5 минут Поможешь с еще одной лабой? . Постоянная времени Т электрической цепи равна Т=RC, где R и С - соответственно сопротивление и емкость цепи. Составить алгоритм решения задачи при условии, что R изменяется от 10^2 Ом до R(0)=10^3 Ом с шагом /\R=10^2 Ом. Типа циклические конструкции. 0

@Yro 29 / 4 / 0 Регистрация: 23.09.2011 Сообщений: 41
	24.09.2011, 00:33 [ТС]
	спасибо, но почему-то не работает((( 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	24.09.2011, 00:56
	ок, 1 в какой среде не работает 2 если vb 6.0, то покажите свой проект (в файл вложите) 0