Декартовы координаты. Нахождение медианы

@neartch1 · Регистрация: 01.03.2016

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

Доброго вечера, дорогие товарищи - программисты)
Ситуация следующая...

Имеется задача:
В трехмерном пространстве заданы декартовы координаты вершин треугольника. Написать программу для вычисления его медиан

Так вот написал код, но второй день уже не в понятках, почему тот не желает работать.

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
Private Sub cmdCalculate_Click() 'процедура вызова клика
 
 
    Dim txtParamA As Integer 'поле a
    Dim txtParamB As Integer 'поле b
    Dim txtParamC As Integer 'поле c
    
 
    Dim lblD As Single 'вид данных, медиана
    Dim lblX1 As Single 'вид данных, периметр
    Dim lblX2 As Single 'вид данных, площадь
    
    
paramA = txtParamA.Text 'Приравненивание к текстовому значению
paramB = txtParamB.Text 'Приравненивание к текстовому значению
paramC = txtParamC.Text 'Приравненивание к текстовому значению
 
 
lblD.Text = Sqr((a ^ 2 + b ^ 2 - c ^ 2)) / 2   'По заданию практической работы
lblX1.Text = (a + b + c) / 2   'Для дополнения существующего функционала программы. Периметр
lblX2.Text = Sqr(p * (p - a) * (p - b) * (p - c)) 'Для дополнения существующего функционала программы. Площадь
 
    
End Sub 'конец

Подскажите пожалуйста чего не хватает.

И собственно еще один вопрос. Как вывести help справку в самой программе. Каков код отвечает за это?

Заранее благодарю!

@Казанский · 01.03.2016, 20:00

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

Dim txtParamA As Integer 'поле a
...
paramA = txtParamA.Text 'Приравненивание к текстовому значению

У переменной типа Integer нет свойства Text.

Что за переменные a,b,c,p?

@neartch1 · 01.03.2016, 20:03 **[ТС]**

Так в том то и дело... Сама строка
Private Sub cmdCalculate_Click() 'процедура вызова клика
Вообщем сама функция клика не имеет ведь параметров. И сама строка написана верно. Но именно на ней и останавливается обработка

Добавлено через 22 секунды
Тыкните меня глубже)))

@Mazik777 · 01.03.2016, 20:04

Private Sub Command1_Click()

@neartch1 · 01.03.2016, 20:07 **[ТС]**

?
Command1_Click() - Command1, это ведь имя.
Это вообще тут причем....

@Mazik777 · 01.03.2016, 20:08

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

И сама строка написана верно. Но именно на ней и останавливается обработка

Логично подумал что именно в названии и есть ошибка

@neartch1 · 01.03.2016, 20:10 **[ТС]**

Товарищ, вы пьяны?

@Mazik777 · 01.03.2016, 20:12

Чё за негатив?пишите тогда сами...

@neartch1 · 01.03.2016, 20:16 **[ТС]**

Извиняюсь, помогите, ребят. Актуально !

Добавлено через 2 минуты
Казанский, a,b,c - стороны треугольника, вводимые самостоятельно пользователем.
p - периметр

@Казанский · 01.03.2016, 20:34

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

a,b,c - стороны треугольника, вводимые самостоятельно пользователем

Вводимые каким образом? Если через текстбоксы txtParamA и т.д., то так и пишите:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmdCalculate_Click() 'процедура вызова клика
 
 
    Dim a As Integer, b As Integer, c As Integer
    
 
    Dim p As Single 'вид данных, периметр
   
    
a = txtParamA.Text 'Приравненивание к текстовому значению
b = txtParamB.Text 'Приравненивание к текстовому значению
c = txtParamC.Text 'Приравненивание к текстовому значению
 
p=(a + b + c) / 2
 
lblD.Text = Sqr((a ^ 2 + b ^ 2 - c ^ 2)) / 2   'По заданию практической работы
lblX1.Text = p   'Для дополнения существующего функционала программы. Периметр
lblX2.Text = Sqr(p * (p - a) * (p - b) * (p - c)) 'Для дополнения существующего функционала программы. Площадь
 
    
End Sub 'конец

@neartch1 · 01.03.2016, 20:48 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmdCalculate_Click() 'процедура вызова клика
 
 
Dim A As Integer, B As Integer, C As Integer
 
Dim P As Single 'периметр
Dim S As Single 'площадь
Dim M As Single 'медиана
 
 
A = txtParamA.Text 'Приравненивание к текстовому значению
B = txtParamB.Text 'Приравненивание к текстовому значению
C = txtParamC.Text 'Приравненивание к текстовому значению
 
 
lblD.Text = Sqr((A ^ 2 + B ^ 2 - C ^ 2)) / 2   'По заданию практической работы
lblX1.Text = (A + B + C) / 2   'Для дополнения существующего функционала программы. Периметр
lblX2.Text = Sqr(P * (P - A) * (P - B) * (P - C)) 'Для дополнения существующего функционала программы. Площадь
 
    
End Sub 'конец

Итак и это пробывал. Не получается. Я ведь методом тыка всё делаю. Ибо познаний в области ВБ - ноль)
Вот смотрите какая ситуация (картинки прикрепил)
К вводимым пользователем параметрам, я присвоил имена
поле А - ParamA
поле B - ParamB
поле C - ParamC
Для поля лабел (полей, уже решенных) присвоил следующие значения

lblD.Text - медиана
lblX1.Text - периметр
lblX2.Text - площадь

Вот как то так получается.

@Genn55 · 01.03.2016, 21:19

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub cmdCalculate_Click() 'процедура вызова клика
 
Dim A As Integer, B As Integer, C As Integer
Dim P As Single 'периметр
 
A = Val(txtParamA.Text) 'Приравненивание к текстовому значению
B = Val(txtParamB.Text)  'Приравненивание к текстовому значению
C = Val(txtParamC.Text) 'Приравненивание к текстовому значению
P = (A + B + C) / 2   'Для дополнения существующего функционала программы. Периметр
 
lblD.Caption = (Sqr(A ^ 2 + B ^ 2 - C ^ 2)) / 2   'По заданию практической работы
lblX1.Caption = P
lblX2.Caption = Sqr(P * (P - A) * (P - B) * (P - C)) 'Для дополнения существующего функционала программы. Площадь
 
    
End Sub 'конец

@neartch1 · 01.03.2016, 21:32 **[ТС]**

Genn55, выползает следующее...

Shersh · 01.03.2016, 21:46

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

заданы декартовы координаты вершин треугольника. Написать программу для вычисления его медиан

Вы же почему-то решаете совсем другую задачу (площадь треугольника) и с противоположного конца (задаете длины сторон, а не координаты)?

@Genn55 · 01.03.2016, 21:48

скрин

@neartch1 · 01.03.2016, 22:11 **[ТС]**

Genn55, а как вы обозначили формы для вводы (а,б,с), то есть какие имена задали
и какие имена задали для вывода результата

Добавлено через 30 секунд
Shersh, Извиняюсь) совсем бревно в Вб ) с кем не бывает))

@Genn55 · 01.03.2016, 22:12

Вы запускаете в мейне? Это код в форме.

@neartch1 · 01.03.2016, 22:14 **[ТС]**

Genn55, Простите, "мейн"??

@Genn55 · 01.03.2016, 22:14

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

а как вы обозначили формы для вводы (а,б,с), то есть какие имена задали
и какие имена задали для вывода результата

Все имена ваши как по коду.

@neartch1 · 01.03.2016, 22:18 **[ТС]**

Genn55, попробовал... закрыл не сохраняя исходник.
открыл занова сейчас просто ввожу данные нажимаю на исполнительную кнопку и вылетает...
а указывает именно на строку Private Sub cmdCalculate_Click() 'процедура вызова клика (желтая подсветка)

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 20:03 [ТС]
	Так в том то и дело... Сама строка Private Sub cmdCalculate_Click() 'процедура вызова клика Вообщем сама функция клика не имеет ведь параметров. И сама строка написана верно. Но именно на ней и останавливается обработка Добавлено через 22 секунды Тыкните меня глубже))) 0

@Mazik777 3 / 3 / 0 Регистрация: 20.06.2014 Сообщений: 70
	01.03.2016, 20:04
	Private Sub Command1_Click() 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 20:07 [ТС]
	? Command1_Click() - Command1, это ведь имя. Это вообще тут причем.... 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 20:10 [ТС]
	Товарищ, вы пьяны? 0

@Mazik777 3 / 3 / 0 Регистрация: 20.06.2014 Сообщений: 70
	01.03.2016, 20:12
	Чё за негатив?пишите тогда сами... 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 20:16 [ТС]
	Извиняюсь, помогите, ребят. Актуально ! Добавлено через 2 минуты Казанский, a,b,c - стороны треугольника, вводимые самостоятельно пользователем. p - периметр 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 21:32 [ТС]
	Genn55, выползает следующее... Миниатюры 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	01.03.2016, 21:48
	скрин Миниатюры 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 22:11 [ТС]
	Genn55, а как вы обозначили формы для вводы (а,б,с), то есть какие имена задали и какие имена задали для вывода результата Добавлено через 30 секунд Shersh, Извиняюсь) совсем бревно в Вб ) с кем не бывает)) 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	01.03.2016, 22:12
	Вы запускаете в мейне? Это код в форме. 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 22:14 [ТС]
	Genn55, Простите, "мейн"?? 0

@neartch1 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 20
	01.03.2016, 22:18 [ТС]
	Genn55, попробовал... закрыл не сохраняя исходник. открыл занова сейчас просто ввожу данные нажимаю на исполнительную кнопку и вылетает... а указывает именно на строку Private Sub cmdCalculate_Click() 'процедура вызова клика (желтая подсветка) 0