Определение длин сторон треугольника

@Артемий · Регистрация: 20.05.2009

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

В общем прога есть на построение треугольника по вершинам.Вершины задаются с клавиатуры.Надо определить длины сторон треугольника и вывести их на экран(хоть на форме в уголке написать).

код самого треугольника:3 текстовых поля,2 кнопки

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Form1.ScaleMode = 1
Form1.AutoRedraw = True
X1 = Text1.Text
Y1 = Text2.Text
a = Text3.Text
 
Form1.Line (X1, Y1)-(X1, Y1 - a)
Form1.Line (X1, Y1 - a)-(X1 - a, Y1 - a)
Form1.Line (X1 - a, Y1 - a)-(X1, Y1)
 
End Sub
 
Private Sub CommandButton2_Click()
Form1.Cls
End Sub

Заранее благодарен)

@Toxa33rus · 20.05.2009, 11:02

Visual Basic
1
2
3
AB = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
BC = Sqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)
AC = Sqr((X1 - X3) ^ 2 + (Y1 - Y3) ^ 2)

@Артемий · 20.05.2009, 19:32 **[ТС]**

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

Visual Basic
1
2
3
AB = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
BC = Sqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)
AC = Sqr((X1 - X3) ^ 2 + (Y1 - Y3) ^ 2)

а вывести в поля text как можно не подскажите я совсем дуб в программировании)

@Toxa33rus · 20.05.2009, 20:28

Visual Basic
1
2
dlinna = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
Text666.Text = dlinna

@Артемий · 20.05.2009, 20:54 **[ТС]**

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

Visual Basic
1
2
3
AB = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
BC = Sqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)
AC = Sqr((X1 - X3) ^ 2 + (Y1 - Y3) ^ 2)

в исходном коде присутствуют х2,х3 а у меня их нету, значит я неправильно построил треугольник?

@Toxa33rus · 20.05.2009, 21:41

У Вас:
X1 = X1
Y1 = Y1
X2 = X1
Y2 = Y1 - a
X3 = X1 - a
Y3 = Y1 - a
Т.е. у Вас прямоугольный тр-к.

Вот когда-то делал домашнее задание, посмотрите, может пригодится:

@Артемий · 26.05.2009, 18:24 **[ТС]**

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
Private Sub Cmd1_Click()
Form1.ScaleMode = 1
Form1.AutoRedraw = True
X1 = Text1.Text
Y1 = Text2.Text
a = Text3.Text
 
Form1.Line (X1, Y1)-(X1, Y1 + a)
Form1.Line (X1, Y1 + a)-(X1 + a, Y1 + a)
Form1.Line (X1 + a, Y1 + a)-(X1, Y1)
ab = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
bc = Sqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)
ac = Sqr((X1 - X3) ^ 2 + (Y1 - Y3) ^ 2)
Text4.Text = ab
Text5.Text = bc
Text6.Text = ac
End Sub
Private Sub Cmd2_Click()
Form1.Cls
End Sub
Private Sub Cmd3_Click()
End
End Sub

Исходный код такой.
Проблема:не высчитывает сторону ас(
Антон помогите пожалуйста)
П.с на форме 3 конпки:построить треугольник,очистить и выход и 6 полей 3 для ввода значений х1,y1 и а и 3 для вывода длинн сторон.

@Toxa33rus · 26.05.2009, 21:38

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
Private Sub Cmd1_Click()
Form1.ScaleMode = 1
Form1.AutoRedraw = True
X1 = Text1.Text
Y1 = Text2.Text
a = Text3.Text
X2 = X1
Y2 = Y1 - a
X3 = X1 - a
Y3 = Y1 - a
 
Form1.Line (X1, Y1)-(X2, Y2)
Form1.Line (X2, Y2)-(X3, Y3)
Form1.Line (X1, Y1)-(X3, Y3)
ab = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
bc = Sqr((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2)
ac = Sqr((X1 - X3) ^ 2 + (Y1 - Y3) ^ 2)
Text4.Text = ab
Text5.Text = bc
Text6.Text = ac
End Sub
Private Sub Cmd2_Click()
Form1.Cls
End Sub
Private Sub Cmd3_Click()
End
End Sub

@Артемий · 28.05.2009, 18:08 **[ТС]**

В общем Антон преподу не понравилось что треугольник равнобедренный получается сказал по 3 точкам строить,вот что получилось:

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
Private Sub Cmd1_Click()
Form1.ScaleMode = 1
Form1.AutoRedraw = True
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
x3 = Text5.Text
y3 = Text6.Text
 
Form1.Line (X1, Y1)-(X1, Y2)
Form1.Line (X1, Y2)-(X2, Y2)
Form1.Line (X2, Y2)-(X1, Y1)
ab = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
bc = Sqr((x3 - X2) ^ 2 + (y3 - Y2) ^ 2)
ac = Sqr((X1 - x3) ^ 2 + (Y1 - y3) ^ 2)
Text7.Text = ab
Text8.Text = bc
Text9.Text = ac
End Sub
Private Sub Cmd2_Click()
Form1.Cls
End Sub
Private Sub Cmd3_Click()
End
End Sub

Вопрос) Программа правильно работает?Т.е это не цифры полученные хз каким рандомом))
К примеру интересует эта формула:
Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
она уже сделана под треугольник,но не могли бы Вы выложить тригонометрический вариант.Это не Пифагора формула?)

@Toxa33rus · 28.05.2009, 19:26

Сообщение от Артемий

В общем Антон преподу не понравилось

Я многим не нравлюсь

Сообщение от Артемий

Это не Пифагора формула?)

Она самая. Код должен работать.

@Артемий · 31.05.2009, 16:40 **[ТС]**

Попробую ещё раз, имхо должен сдать)))Ибо строит?Строит!)По формуле?По формуле!)

@Toxa33rus · 31.05.2009, 18:06

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

@Артемий · 31.05.2009, 22:15 **[ТС]**

Не спорю красиво)Просто её надо защищать,скажем так препод сам не сделает такую прогу.И если я принесу ему прогу такую технически сложную он мя съест)

@Артемий · 03.06.2009, 19:36 **[ТС]**

Ура я защитил!Препод спросил абсолютно все символы в программе)

@Toxa33rus · 03.06.2009, 21:32

маладес.
Но не расслабляться! Нам еще нужно марс завоевать быстрее китайцев. Даешь Гелий-3 в каждую квартиру.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	31.05.2009, 16:40 [ТС]
	Попробую ещё раз, имхо должен сдать)))Ибо строит?Строит!)По формуле?По формуле!) 0

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	31.05.2009, 22:15 [ТС]
	Не спорю красиво)Просто её надо защищать,скажем так препод сам не сделает такую прогу.И если я принесу ему прогу такую технически сложную он мя съест) 0

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	03.06.2009, 19:36 [ТС]
	Ура я защитил!Препод спросил абсолютно все символы в программе) 0

@Toxa33rus 3917 / 918 / 125 Регистрация: 16.04.2009 Сообщений: 1,945
	03.06.2009, 21:32
	маладес. Но не расслабляться! Нам еще нужно марс завоевать быстрее китайцев. Даешь Гелий-3 в каждую квартиру. 0