Вычислить значение выражения

@supmti · Регистрация: 28.11.2013

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

циклы, одномерные массивы

@AeroWhite · 08.12.2013, 14:13

Запрещено размещать задания в виде картинок и других файлов с их текстом.

~~Release~~ · 08.12.2013, 14:16

supmti,

Комментарий модератора

перепишете текст задания на форум.

@supmti · 08.12.2013, 14:42 **[ТС]**

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

supmti, перепишете текст задания на форум.

как это сделать? там формула

@edward_freedom · 08.12.2013, 15:03

supmti,

Памирыч · 08.12.2013, 17:25

Вот что у Вас должно получиться.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?P={\begin{Bmatrix}\sum_{i=0}^{n}{x}_{i}{y}_{i}\end{Bmatrix}}^{2}$
Где x_i - элементы одномерного массива Х (10)
y_i - элементы одномерного массива Y (10)

А вообще, формулы можно вставить картинкой, но уж точно не в целом pdf-документе

код

Код

[LATEX]P={\begin{Bmatrix}\sum_{i=0}^{n}{x}_{i}{y}_{i}\end{Bmatrix}}^{2}[/LATEX]

Где x[SUB]i[/SUB] - элементы одномерного массива Х (10) 
y[SUB]i[/SUB] - элементы одномерного массива Y (10)

@supmti · 09.12.2013, 20:03 **[ТС]**

Спасибо! Кто поможет решить?

@insite2012 · 09.12.2013, 20:31

Блин, и тут математика. Совсем все забыл...

Если правильно понял, то вот так.

VB.NET

Private Function NoName(ByVal X() As Double, ByVal Y() As Double) As Double
        Dim Out As Double = 0
        For i As Integer = 0 To 10
            Out += (X(i) * Y(i))
        Next
        Return Out ^ 2
    End Function

@supmti · 20.12.2013, 17:47 **[ТС]**

а как сделать чтоб ответ выводился, с помощью MsgBox ???

@AeroWhite · 20.12.2013, 18:19

VB.NET

1	MsgBox(NoName(X(),Y()))

@supmti · 20.12.2013, 18:37 **[ТС]**

все равно не работает, пишет чего-то не хватает, что-то не объявлено кто поможет целым кодом?

Добавлено через 1 минуту
все равно не работает, чтото необъявлено, чегото нехватает ((

@AeroWhite · 20.12.2013, 18:38

VB.NET

1 2	Dim X(10) As Double Dim Y(10) As Double

@supmti · 20.12.2013, 18:52 **[ТС]**

немогу раму собрать

@AeroWhite · 20.12.2013, 18:54

VB.NET

Private Function NoName(ByVal X() As Double, ByVal Y() As Double) As Double
        Dim Out As Double = 0
        For i As Integer = 0 To 10
            Out += (X(i) * Y(i))
        Next
        Return Out ^ 2
    End Function

Кнопка:

VB.NET

1
2
3

Dim X(10) As Double
Dim Y(10) As Double
MsgBox(NoName(X(),Y()))

@supmti · 21.12.2013, 14:29 **[ТС]**

а можно сделать так что б я один раз сделал копипаст в визуал бэсик?)

Добавлено через 16 часов 35 минут
и нажал ф5 и все заработало

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
		1
	Вычислить значение выражения 08.12.2013, 13:51. Показов 798. Ответов 14 Метки нет (Все метки) циклы, одномерные массивы 0

@AeroWhite Форумчанин.NET 555 / 426 / 64 Регистрация: 12.02.2013 Сообщений: 834
	08.12.2013, 14:13	2
	Запрещено размещать задания в виде картинок и других файлов с их текстом. 1

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
	08.12.2013, 14:42 [ТС]	4
	Сообщение от Release supmti, перепишете текст задания на форум. как это сделать? там формула 0

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	08.12.2013, 15:03	5
	supmti, Миниатюры 1

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	08.12.2013, 17:25	6
	Вот что у Вас должно получиться. $https://www.cyberforum.ru/cgi-bin/latex.cgi?P={\begin{Bmatrix}\sum_{i=0}^{n}{x}_{i}{y}_{i}\end{Bmatrix}}^{2}$ Где x_i - элементы одномерного массива Х (10) y_i - элементы одномерного массива Y (10) А вообще, формулы можно вставить картинкой, но уж точно не в целом pdf-документе код Код [LATEX]P={\begin{Bmatrix}\sum_{i=0}^{n}{x}_{i}{y}_{i}\end{Bmatrix}}^{2}[/LATEX] Где x[SUB]i[/SUB] - элементы одномерного массива Х (10) y[SUB]i[/SUB] - элементы одномерного массива Y (10) 2

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
	09.12.2013, 20:03 [ТС]	7
	Спасибо! Кто поможет решить? 0

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
	20.12.2013, 17:47 [ТС]	9
	а как сделать чтоб ответ выводился, с помощью MsgBox ??? 0

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
	20.12.2013, 18:37 [ТС]	11
	все равно не работает, пишет чего-то не хватает, что-то не объявлено кто поможет целым кодом? Добавлено через 1 минуту все равно не работает, чтото необъявлено, чегото нехватает (( 0

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
	20.12.2013, 18:52 [ТС]	13
	немогу раму собрать 0

@supmti -13 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 22
	21.12.2013, 14:29 [ТС]	15
	а можно сделать так что б я один раз сделал копипаст в визуал бэсик?) Добавлено через 16 часов 35 минут и нажал ф5 и все заработало 0