Вычислить квадратный корень из суммы квадратов элементов

@Ultor · Регистрация: 06.02.2010

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

Добрый вечер уважаемые форумчане.Помогите решить задачку,с програмированием сталкиваюсь впервые -
Вычислить квадратный корень из суммы квадратов элементов...
Заранее спасибо!

@gaw · 06.02.2010, 20:48

"квадратов элементов..." --- ????
для примера (но думаю речь идет о "элементов массива" )

Visual Basic

Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
a = Val(InputBox("a="))
b = Val(InputBox("a="))
c = Sqr(a ^ 2 + b ^ 2)
label1 = c
End Sub

@Ultor · 07.02.2010, 11:23 **[ТС]**

Спасибо большое,сейчас посмотрю.

Добавлено через 41 минуту

QBasic/QuickBASIC

CLS
INPUT
DIM
PRINT
FORi=1TON
PRINT."A"(";I;")=";
IMPUT A(I)
NEXT I
S=0
FOR I=1TON
S=S+A(I)*A(I)
NEXT I
S=SQRT(S)
PRINT"S=";S
END

Подскажите плиз,где тут ошибка...

Добавлено через 1 минуту
gaw, Привет,слушай то что ты прислал,это надо будет скопировать и в бесике вставить?

@gaw · 07.02.2010, 12:34

расположи на форме label1 и Command1,
вставь код и запускай
(но думаю это не то, что тебе нада, - речь скорее всего идет о "элементов массива" )

@Toxa33rus · 07.02.2010, 12:35

Ошибка в точке в 6 строке. Это КуБэйсик.
Для ВэБэ:

Visual Basic

dim a(1 to 6)
'массив заполнить
S=0
for i=1 to Ubound(a)
  S=S+a(i)^2
next i
S=sqr(a)
msgbox S

@gaw · 07.02.2010, 12:45

Ultor ! четко сформулируй задачу и определись: QBasic или VB

@Ultor · 08.02.2010, 08:14 **[ТС]**

VBA,но можно и на паскале

@Ultor · 10.02.2010, 11:34 **[ТС]**

gaw, Да точняк элементы масива то что надо

@Alex77755 · 10.02.2010, 23:33

VBA,но можно и на паскале

Самая хорошая шутка в разделе VB.
Повеселила!!!

@Ultor 0 / 0 / 0 Регистрация: 06.02.2010 Сообщений: 4
		1
	Вычислить квадратный корень из суммы квадратов элементов 06.02.2010, 19:39. Показов 11915. Ответов 8 Метки нет (Все метки) Добрый вечер уважаемые форумчане.Помогите решить задачку,с програмированием сталкиваюсь впервые - Вычислить квадратный корень из суммы квадратов элементов... Заранее спасибо! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	07.02.2010, 12:34	4
	расположи на форме label1 и Command1, вставь код и запускай (но думаю это не то, что тебе нада, - речь скорее всего идет о "элементов массива" ) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	07.02.2010, 12:45	6
	Ultor ! четко сформулируй задачу и определись: QBasic или VB 0

@Ultor 0 / 0 / 0 Регистрация: 06.02.2010 Сообщений: 4
	08.02.2010, 08:14 [ТС]	7
	VBA,но можно и на паскале 0

@Ultor 0 / 0 / 0 Регистрация: 06.02.2010 Сообщений: 4
	10.02.2010, 11:34 [ТС]	8
	gaw, Да точняк элементы масива то что надо 0

@Alex77755 11504 / 3791 / 680 Регистрация: 13.02.2009 Сообщений: 11,194
	10.02.2010, 23:33	9
	VBA,но можно и на паскале Самая хорошая шутка в разделе VB. Повеселила!!! 0

Опции темы