![]() |
![]() ![]() v.5.2011.12.30 |
Хитрый стрелок экранов, Добавить функцию? Без проблем! ;-) |
|
Visual Basic 5.0/6.0 - Числа, математика, финансыВсе примеры / Числа, математика, финансыВычисление треугольника
Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:39 | просмотров: 4311 (1+) | комментариев: 0 | рейтинг:
Программа вычисляет периметр, площадь треугольника по формуле Геррона.
![]() КодPrivate Sub Треугольник(a As Single, b As Single, C As Single, p As Single, s As Single) p = a + b + C Pp = p / 2 s = Sqr(Pp * (Pp - a) * (Pp - b) * (Pp - C)) End Sub Private Sub CmdClear_Click() txtA.Text = "" txtB.Text = "" txtC.Text = "" txtP.Text = "" txtS.Text = "" End Sub Private Sub CmdOpen_Click() Dim a As Single Dim b As Single Dim C As Single Dim p As Single Dim s As Single a = Val(txtA.Text) b = Val(txtB.Text) C = Val(txtC.Text) Call Треугольник(a, b, C, p, s) txtP.Text = Str(p) txtS.Text = Str(s) End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 29)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|