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

@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, то покажите свой проект (в файл вложите)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

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

	Помогите написать лабу!! 23.09.2011, 22:52. Показов 916. Ответов 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