Приложение, которое по введенным координатам вершин треугольника вычисляет длины сторон треугольника и его пло

@Наталья92 · Регистрация: 08.02.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
25
26
27
28
Option Explicit
Private Function pltrkoor(x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single) As Double
Dim a As Single, b As Single, c As Single, pp As Double
    a = rast(x1, y1, x2, y2)
    b = rast(x1, y1, x3, y3)
    c = rast(x3, y3, x2, y2)
    pp = (a + b + c) / 2
    pltrkoor = (pp * (pp - a) * (pp - b) * (pp - c)) ^ 0.5
End Function
Private Function rast(xn As Single, yn As Single, xk As Single, yk As Single) As Single
    rast = ((xk - xn) ^ 2 + (yk - yn) ^ 2) ^ 0.5
End Function
 
Private Sub Command1_Click()
Dim xa As Single, ya As Single
Dim xb As Single, yb As Single
Dim xc As Single, yc As Single
Dim s As Double
    Picture1.Cls
    xa = Val(Text1)
    ya = Val(Text2)
    xb = Val(Text3)
    yb = Val(Text4)
    xc = Val(Text5)
    yc = Val(Text6)
    s = pltrkoor(xa, ya, xb, yb, xc, yc)
    Picture1.Print Format(s, "0.00")
End Sub

Shersh · 10.02.2016, 09:56

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

@Наталья92 · 10.02.2016, 10:03 **[ТС]**

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

не изобретайте теги

Спасибо!

А с задачей не поможете?

Shersh · 10.02.2016, 10:14

А чем помочь?
Решение у Вас есть, форма тоже.
Непонятно только, где Picture1 и зачем он нужен?
a, b, c и s распихайте по соответствующим Text`ам (или что там справа на картинке?)
И всё вроде

@Наталья92 · 10.02.2016, 19:08 **[ТС]**

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

А чем помочь

В Picture1 выходит площадь, справа Label. Вот я и не знаю как распихать всё, чтобы вышли длины сторон.

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

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

где Picture1 и зачем он нужен?

Возможно, он и не нужен, тогда я не знаю как всё переделать

Добавлено через 8 часов 34 минуты

Сообщение от Наталья92

не знаю как всё переделать

Всё получилось!

@fever brain · 10.02.2016, 19:52

Сообщение от Наталья92

Возможно, он и не нужен, тогда я не знаю как всё переделать

Может комуто и нравиться переделывать задачки студентов, но обычно тот кто давно знаком с темой
предпочитают делать по своему, и используют свои модели, свои переменные и тп

в этом деле нельзя спешить, хотите быстро, получайте что дают, и исправляйте ошибки

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

Shersh Заблокирован
	10.02.2016, 09:56
	Наталья92, не изобретайте теги, просто выделяйте код и жмите VB на панельке чуть выше. 0

Shersh Заблокирован
	10.02.2016, 10:14
	Сообщение было отмечено The trick как решение Решение А чем помочь? Решение у Вас есть, форма тоже. Непонятно только, где Picture1 и зачем он нужен? a, b, c и s распихайте по соответствующим Text`ам (или что там справа на картинке?) И всё вроде 0