Найти расстояние от точки М до начала координат

@lenochek0507 · Регистрация: 18.05.2016

9. Найти расстояние от точки М до начала координат.
Ребята помогите написать программу на VBA на данную задачу, через 3 дня защита, а я с программированием впервые столкнулась....

SoftIce · 18.05.2016, 19:17

Не по теме:

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

через 3 дня защита

Теорему Пифагора защищать будете?:)

@lenochek0507 · 18.05.2016, 19:19 **[ТС]**

ахаха, не говорите=))))
совсем нет времени разбираться в VBA, необходима программа и блок схема

SoftIce · 18.05.2016, 19:33

Visual Basic

Sub Main()
    Dim x As Double, y As Double, s As Double
    x = InputBox("x=", , 3)
    y = InputBox("y=", , 4)
    s = Sqr(x ^ 2 + y ^ 2)
    MsgBox s
End Sub

@lenochek0507 · 19.05.2016, 08:11 **[ТС]**

Cпасибо тебе приогромное)))))):

еще в задании указан вот такой пункт, не могу допетрить, че только уже не делала((((
6. Все типы переменных и констант, которые используются в программе, должны быть объявлены и отражать смысловое значение переменных или констант.
снова надежда на тебя

~~Shersh~~ · 19.05.2016, 08:22

lenochek0507, ты не поверишь, но Все типы переменных, которые используются в этой программе, уже объявлены и отражают смысловое значение переменных.

@lenochek0507 · 19.05.2016, 08:26 **[ТС]**

окей, тогда мне необходимо дать названия диалоговым окнам, как это сделать?

~~Shersh~~ · 19.05.2016, 08:40

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

как это сделать?

F1 нажать не пробовали?

Visual Basic

1
2
3

x = InputBox("x=","Соблаговолите ввести координату Х, плииз..." , 3)
'''''''
MsgBox s,,"Вы согласны?"

@Владимир_Сар · 19.05.2016, 23:31

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

Соблаговолите ввести координату Х, плииз...

мне нравится

@lenochek0507 0 / 0 / 0 Регистрация: 18.05.2016 Сообщений: 9
		1
	Найти расстояние от точки М до начала координат 18.05.2016, 19:15. Показов 3608. Ответов 8 Метки нет (Все метки) 9. Найти расстояние от точки М до начала координат. Ребята помогите написать программу на VBA на данную задачу, через 3 дня защита, а я с программированием впервые столкнулась.... 0

SoftIce
	18.05.2016, 19:17 #2
	Не по теме: Сообщение от lenochek0507 через 3 дня защита Теорему Пифагора защищать будете?:) 0

@lenochek0507 0 / 0 / 0 Регистрация: 18.05.2016 Сообщений: 9
	18.05.2016, 19:19 [ТС]	3
	ахаха, не говорите=)))) совсем нет времени разбираться в VBA, необходима программа и блок схема 0

@lenochek0507 0 / 0 / 0 Регистрация: 18.05.2016 Сообщений: 9
	19.05.2016, 08:11 [ТС]	5
	Cпасибо тебе приогромное)))))): еще в задании указан вот такой пункт, не могу допетрить, че только уже не делала(((( 6. Все типы переменных и констант, которые используются в программе, должны быть объявлены и отражать смысловое значение переменных или констант. снова надежда на тебя 0

~~Shersh~~ Заблокирован
	19.05.2016, 08:22	6
	lenochek0507, ты не поверишь, но Все типы переменных, которые используются в этой программе, уже объявлены и отражают смысловое значение переменных. 1

@lenochek0507 0 / 0 / 0 Регистрация: 18.05.2016 Сообщений: 9
	19.05.2016, 08:26 [ТС]	7
	окей, тогда мне необходимо дать названия диалоговым окнам, как это сделать? 0

@Владимир_Сар 58 / 57 / 13 Регистрация: 10.09.2009 Сообщений: 255
	19.05.2016, 23:31	9
	Сообщение от Shersh Соблаговолите ввести координату Х, плииз... мне нравится 1

Опции темы

Найти расстояние от точки М до начала координат

Решение