Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию

@Тагир Манджиев · Регистрация: 08.05.2016

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

1. Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию $https://www.cyberforum.ru/cgi-bin/latex.cgi?1 < {a}_{i} < 5$ . Помогите составить программу Visual Basic, пожалуйста.

@ili1 · 08.04.2018, 18:53

1. задайте массив А(n) и заполните его любым способом
2. в цикле должен быть условный оператор
3. SG - среднее геометрическое

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
P = 1
 
FOR i = 1 TO n
 
 IF 1 < A(i) AND A(i) < 5 THEN 
 kol = kol + 1
 P = P * A(i)
 END IF
NEXT
 
IF kol = 0 THEN
 PRING "Среднее Геометрическое не существует"
ELSE
 SG = P ^ (1 / kol)
 PRINT "SG ="; SG
END IF

@Тагир Манджиев · 09.04.2018, 10:55 **[ТС]**

ili1, это меньше либо равно.

@Тагир Манджиев · 09.04.2018, 11:10 **[ТС]**

ili1, я пытался адаптировать к Visual Basic 6.0, но выдаёт ошибку.

Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию

@ili1 · 09.04.2018, 12:32

Тагир Манджиев,
У вас в конце ошибка. Вы забыли поставить END IF
работать точно не будет...

@Тагир Манджиев · 09.04.2018, 13:33 **[ТС]**

ili1, пробовал исправить, но всё равно не работает

@ili1 · 09.04.2018, 14:02

Тагир Манджиев,
похоже неверно применена функция FORMAT()...
Попробуйте заключить ее внутрь функции STR()

@Тагир Манджиев · 10.04.2018, 10:35 **[ТС]**

ili1, по-прежнему та же история

@ili1 · 10.04.2018, 10:52

Тагир Манджиев,
пока не знаю, почему не работает, но можно округлить SG по правилу
SG = INT(10000 * SG) / 10000

@Тагир Манджиев · 11.04.2018, 10:42 **[ТС]**

ili1, у меня ошибка Sub or Function not defined

@ili1 · 11.04.2018, 10:53

Тагир Манджиев,
вообще эта ошибка означает, что либо процедура, либо
функция не определена.
1. А реально это значит, что например, функция применена с ошибками
2. возможно где-то есть опечатки и компилятор такую функцию
естественно не знает.
А какую строку помечает компилятор? Что там за код? Не видя - не решишь...

@Тагир Манджиев · 11.04.2018, 12:28 **[ТС]**

ili1, у меня жёлтым выделяется строка

PureBasic
1
Private Sub Command1_Click()

@ili1 · 11.04.2018, 12:36

Тагир Манджиев,
Ошибка нашлась. У вас после END SUB стоит END IF
А Должно быть НАОБОРОТ. END SUB всегда должен
стоять последним оператором процедуры.

@Тагир Манджиев · 11.04.2018, 15:11 **[ТС]**

ili1, по прежнему та же ошибка. Я уже не раз пытался адаптировать к Visual Basic 6.0, но результатов не принесло.

SoftIce · 11.04.2018, 15:41

Массив а у вас не объявлен.

@ili1 · 11.04.2018, 15:59

Тагир Манджиев,
Ошибки:
1. не объявлен массив и переменные
2. не заполнен массив и не инициализированы переменные
(эта программа была написана на скорую руку, чтобы выяснить ошибки.
она работает, ее надо немного довести. Добавить n = Val(Text1.text) там,
где я просто поставил n = 10 (это для проверки))

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
Option Explicit
Dim p!, A!(), n!, SG!, kol!, i!
 
Private Sub Command1_Click()
    Randomize Timer
    n = 10
    ReDim A(n)
    
    For i = 1 To n
        A(i) = 10 * Rnd - 3
    Next
    
    p = 1
    
    For i = 1 To n
        If 1 < A(i) And A(i) < 5 Then
            kol = kol + 1
            p = p * A(i)
        End If
    Next
    
    If kol = 0 Then
        Print "NO"
    Else
        SG = p ^ (1 / kol)
    End If
    Label1.Caption = "SG = " + Format(SG, "0.0000")
End Sub

@Тагир Манджиев · 11.04.2018, 16:07 **[ТС]**

У меня всё работает. Извините, что перепутал.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144

	Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию 08.04.2018, 12:35. Показов 2060. Ответов 16 Метки нет (Все метки) 1. Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию $https://www.cyberforum.ru/cgi-bin/latex.cgi?1 < {a}_{i} < 5$ . Помогите составить программу Visual Basic, пожалуйста. 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	09.04.2018, 10:55 [ТС]
	ili1, это меньше либо равно. 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	09.04.2018, 11:10 [ТС]
	ili1, я пытался адаптировать к Visual Basic 6.0, но выдаёт ошибку. 0

@ili1 Заблокирован
	09.04.2018, 12:32
	Тагир Манджиев, У вас в конце ошибка. Вы забыли поставить END IF работать точно не будет... 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	09.04.2018, 13:33 [ТС]
	ili1, пробовал исправить, но всё равно не работает 0

@ili1 Заблокирован
	09.04.2018, 14:02
	Тагир Манджиев, похоже неверно применена функция FORMAT()... Попробуйте заключить ее внутрь функции STR() 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	10.04.2018, 10:35 [ТС]
	ili1, по-прежнему та же история 0

@ili1 Заблокирован
	10.04.2018, 10:52
	Тагир Манджиев, пока не знаю, почему не работает, но можно округлить SG по правилу SG = INT(10000 * SG) / 10000 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	11.04.2018, 10:42 [ТС]
	ili1, у меня ошибка Sub or Function not defined 0

@ili1 Заблокирован
	11.04.2018, 10:53
	Тагир Манджиев, вообще эта ошибка означает, что либо процедура, либо функция не определена. 1. А реально это значит, что например, функция применена с ошибками 2. возможно где-то есть опечатки и компилятор такую функцию естественно не знает. А какую строку помечает компилятор? Что там за код? Не видя - не решишь... 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	11.04.2018, 15:41
	Массив а у вас не объявлен. 0

Опции темы

@ili1 Заблокирован
	11.04.2018, 12:36
	Тагир Манджиев, Ошибка нашлась. У вас после END SUB стоит END IF А Должно быть НАОБОРОТ. END SUB всегда должен стоять последним оператором процедуры. 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	11.04.2018, 15:11 [ТС]
	ili1, по прежнему та же ошибка. Я уже не раз пытался адаптировать к Visual Basic 6.0, но результатов не принесло. 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	11.04.2018, 16:07 [ТС]
	У меня всё работает. Извините, что перепутал. 1

Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию

Решение