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

@Тагир Манджиев · Регистрация: 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 **[ТС]**

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

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

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

	Найти количество и среднее геометрическое элементов одномерного массива А, удовлетворяющих условию 08.04.2018, 12:35. Показов 2026. Ответов 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

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

Решение