Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Подсчёт введенных в строку символов на лету https://www.cyberforum.ru/ vb-net/ thread1324119.html
Здравствуйте. Есть программа написана на VB. Мне нужно добавить небольшой функционал. на скрине при выборе темплейта из списка (1). Появляется таблица предопределенных полей. Эти поля...
Как сделать раскрывающееся меню? Visual Basic .NET
Как в Visual Basic 2008/2010 создать такую конструкцию (стрелка, отмеченная на рисунке, которая при нажатии открывает дополнительные пункты меню)? Всё облазил, не могу найти. Добавлено через 1...
Visual Basic .NET Сервис (служба) Windows обслуживания альтернативной клавиатуры
Существует следующая задача: Создать службу Windows (XP,7,8 ... ) обслуживающую альтернативную клавиатуру подключенную через COM порт. В общем то проблемы с созданием простой программы нет и она...
Visual Basic .NET Как продумать логику столкновения объектов в игре Недавно начали изучать Visial Basic и тут сразу же дали курсач (((Помогите очень прошу. Нужно сделать программу "Рогатка" при нажатии на кнопку она стреляет шариком в другие объекты(Причем эти... https://www.cyberforum.ru/ vb-net/ thread1323114.html
Visual Basic .NET Найти корни уравнения методом хорд https://www.cyberforum.ru/ vb-net/ thread1323034.html
Нужна помощь спецов в программировании. Есть задачка: Найти корни уравнения f(x)=3arctg(3-x), методом хорд. Написал в VB2010 вижу что считает но выдает бесконечность. Где я напортачил, или что не...
Получение даных, которые вернула функция запущенная в потоке Visual Basic .NET
Здравствуйте. Перерыл довольно много инфы, но дельного выхода не нашел. Суть: Private Sub Start_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim Thread As...
Использование внешнего хранилища для хранений части кода Visual Basic .NET
Уважаемые форумчане, Есть необходимость хранить методику расчета (программный код с приоритетами расчета и функциями) в отдельном хранилище (файл, таблица БД или что-то иное). То есть задаем...
Visual Basic .NET Сортировка значений в sql Может кто знает как сделать сортировку. Есть таблица , в ней должно сортироваться по названию через listBox З.Ы Есть лекция по сортировки , но там код не пашет почему то :( https://www.cyberforum.ru/ vb-net/ thread1322724.html
Visual Basic .NET Как уменьшить форму до слишком маленьких размеров https://www.cyberforum.ru/ vb-net/ thread1322052.html
Посмотрите на картинку. Слева форма, которая мне нужна, а справа форма в процессе отладки. Я убирал надпись, но размер формы оставался прежним, синяя часть. Почему? и как исправить?
Visual Basic .NET Не запускается программа на виндовс ХР? При запуске программы на ХР пишет "unable to find a version of the runtime to run this application" Как я понимаю, это из-за версии Net Framework? Это выскакивает на ХР сервис пак 3, с Net Framework... https://www.cyberforum.ru/ vb-net/ thread1321889.html
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 102
0

Написать программу, которая будет рассчитывать площадь треугольника по различным формулам

09.12.2014, 06:37. Показов 1222. Ответов 5
Метки (Все метки)

Такая задача: написать программу, которая будет рассчитывать площадь треугольника по различным формулам. Формулу расчёта пользователь будет выбирать из предложенных. Данные для расчёта вводит пользователь. На форме должен рисоваться треугольник.
Саму программу для рассчета написал. А вот как рисовать эти треугольники вообще понятия не имею. Вот код программы.
Кликните здесь для просмотра всего текста
vb.net
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Для начала расчета выберите формулу")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, h, s As Single
        a = InputBox("Введите длину основания 'a'")
        h = InputBox("Введите длину высоты 'h'")
        s = 1 / 2 * a * h
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b, y, s As Single
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        y = InputBox("Введите угол 'y'")
        s = 1 / 2 * a * b * Math.Sin(y)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a, b, c, p As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        p = (a + b + c) / 2
        s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a, b, c, p, r As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        r = InputBox("Введите радиус вписанной окружности 'r'")
        p = (a + b + c) / 2
        s = r * p
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim a, b, c, r As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        r = InputBox("Введите радиус вписанной окружности 'r'")
        s = (a * b * c) / (4 * r)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim a, b As Single
        Dim s As VariantType
        a = InputBox("Введите длину катета 'a'")
        b = InputBox("Введите длину катета 'b'")
        s = (1 / 2) * (a * b)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button7_Click(sender As Object, k As EventArgs) Handles Button7.Click
        Dim d, e As Single
        Dim s As VariantType
        d = InputBox("Введите длину 'd'")
        e = InputBox("Введите длину 'e'")
        s = d * e
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim a, b, c, p As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        p = (a + b + c) / 2
        s = (p - a) * (p - b)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim a, y As Single
        Dim s As VariantType
        a = InputBox("Введите длину сторон 'a'")
        y = InputBox("Введите угол 'y'")
        s = (1 / 2) * (a ^ 2) * Math.Sin(y)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim a, b, y As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        y = InputBox("Введите угол 'y'")
        s = (1 / 2) * a * b * Math.Sin(y)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim a, b, y As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        y = InputBox("Введите угол 'y'")
        s = (b ^ 2) / (4 * Math.Tan(y / 2))
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim a As Single
        Dim s As VariantType
        a = InputBox("Введите длину сторон 'a'")
        s = (Math.Sqrt(3) * (a ^ 2)) / 4
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Dim a, r As Single
        Dim s As VariantType
        a = InputBox("Введите длину сторон 'a'")
        r = InputBox("Введите радиус 'r'")
        s = (3 * Math.Sqrt(3) * (r ^ 2)) / 4
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Dim r As Single
        Dim s As VariantType
        r = InputBox("Введите радиус 'r'")
        s = 3 * Math.Sqrt(3) * (r ^ 2)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        Dim h As Single
        Dim s As VariantType
        h = InputBox("Введите высоту 'h'")
        s = (h ^ 2) / (Math.Sqrt(3))
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
End Class


Вернуться к обсуждению:
Написать программу, которая будет рассчитывать площадь треугольника по различным формулам
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2014, 06:37
Готовые ответы и решения:

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

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

Написать программу, которая находит площадь треугольника по 2 сторонам и углу
Задание: Написать программу, которая находит площадь треугольника по 2 сторонам и углу. Код:...

Написать программу, которая подсчитывает: площадь прямоугольного треугольника по двум катетам a, b
Написать программу, которая подсчитывает: площадь прямоугольного треугольника по двум катетам a, b....

5
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.