Вычислить среднее геометрическое элементов матрицы

@maks32173 · Регистрация: 03.02.2017

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

Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали

echs · 22.03.2017, 19:05

maks32173
Объявите матрицу. Заполните её случайными числами.
добавьте код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
SG = 1
f = 0
 
For i = 1 To C
   If R(i, i) > 0 Then
      SG = SG * R(i, i)
   Else
      f = -1
      Exit For
   End if
Next
 
If f Then
   Print "Среднее геометрическое не определено"
Else
   SG = SG ^ (1 / C)
   Print "SG ="; SG
End If

@maks32173 · 22.03.2017, 22:39 **[ТС]**

что значит команда SG ?

Добавлено через 1 час 14 минут
echs, что за оператор SG?

@Степан23 · 22.03.2017, 23:17

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

Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали

maks32173, пусть матрица квадрат 4х4, тогда она имеет четыре значения по главной диагонали (от верхнего левого угла до нижнего правого угла), как пример: 6; 7; 12; 5.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Sub Form_Activate()
Dim x1 As Long, x2 As Long, x3 As Long, x4 As Long, GS As Single
x1 = 6: x2 = 7: x3 = 12: x4 = 5
GS = (x1 * x2 * x3 * x4) ^ (1 / 4)
Print " GS ="; GS 'GS сокращение: геометрическое среднее
MsgBox (" GS =" & GS)
 
End Sub

@maks32173 · 23.03.2017, 08:19 **[ТС]**

Степан23, можешь помочь с блок схемой к твоей программе?

echs · 23.03.2017, 09:17

что значит команда SG ?
echs, что за оператор SG?

maks32173
SG - это просто я обозначил Среднее геометрическое

@Степан23 · 23.03.2017, 12:38

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

Степан23, можешь помочь с блок схемой к твоей программе?

maks32173, простенькая блок-схема на картинке ниже.

Посмотрите ссылку: Что такое блок-схема http://learnpascal.ru/vvedenie... sxema.html

@maks32173 · 23.03.2017, 13:32 **[ТС]**

echs, твоя программа зациклилась на одном значении, нужно движение (I+1, g+1)

@Степан23 · 23.03.2017, 15:19

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

можешь помочь с блок схемой к твоей программе?

maks32173, с помощью Word можно нарисовать блок-схему за 3-4 минуты. Картинка ниже.

echs · 23.03.2017, 16:31

maks32173
Я же написал, что нужно объявить матрицу
ReDim R(C, C) As Long
И заполнить ее...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@maks32173 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 8

	Вычислить среднее геометрическое элементов матрицы 22.03.2017, 15:23. Показов 1446. Ответов 9 Метки нет (Все метки) Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали 0

@maks32173 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 8
	22.03.2017, 22:39 [ТС]
	что значит команда SG ? Добавлено через 1 час 14 минут echs, что за оператор SG? 0

@maks32173 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 8
	23.03.2017, 08:19 [ТС]
	Степан23, можешь помочь с блок схемой к твоей программе? 0

@maks32173 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 8
	23.03.2017, 13:32 [ТС]
	echs, твоя программа зациклилась на одном значении, нужно движение (I+1, g+1) 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	23.03.2017, 16:31
	maks32173 Я же написал, что нужно объявить матрицу ReDim R(C, C) As Long И заполнить ее... 0