Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/29: Рейтинг темы: голосов - 29, средняя оценка - 4.76
FaNiS
0 / 0 / 0
Регистрация: 26.05.2016
#1

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

26.03.2012, 10:14. Просмотров 5201. Ответов 5
Метки нет (Все метки)

Сабж...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2012, 10:14
Ответы с готовыми решениями:

Составить программу вычисления площади и периметра в Visual Basic
Помогите пожалуйста составить программу вычисления площади и периметра...

Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов а и b
1. Вычислить периметр и площадь прямоугольного треугольника по заданным длинам...

Вычисление сторон треугольника по заданным углам и R
a1 a2 a3 это альфа бета гамма Option Strict On Option Explicit On Imports...

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

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

5
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
26.03.2012, 10:46 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim a!, b!, c!, per!, p!, s!
Form1.Cls
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
per = a + b + c
p = per / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "perimetr ="; per
Print "plochad ="; s
0
Linoge
Эксперт Hardware
2239 / 1562 / 259
Регистрация: 25.10.2011
Сообщений: 4,737
26.03.2012, 10:49 #3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
    a = Val(Text1)
    b = Val(Text2)
    c = Val(Text3)
    If a > b Then b = Val(Text1): a = Val(Text2)
    If b > c Then c = b: b = Val(Text3)
    If a + b < c Then
        MsgBox "косяк"
    Else
        p = a + b + c
        d = (a ^ 2 + c ^ 2 - b ^ 2) / 2 / c
        h = (a ^ 2 - d ^ 2) ^ 0.5
        s = c * h / 2
        Text4 = "Периметр =" & p & " площадь = " & s
    End If
End Sub
0
zink0000
191 / 68 / 23
Регистрация: 15.03.2012
Сообщений: 272
Записей в блоге: 16
26.03.2012, 10:52 #4
Создать форму, на форме - кнопку,
в событие Click поместить код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim dA As Double
  Dim dB As Double
  Dim dC As Double
  '
  Dim dP As Double
  Dim dS As Double
  '
  dA = 5.1
  dB = 8.4
  dC = 3.9
  ' Периметр
  dP = dA + dB + dC
  ' Площадь
  dS = ((dP / 2) * ((dP / 2) - dA) * ((dP / 2) - dB) * ((dP / 2) - dC)) ^ 0.5
Ах, да... ещё бы неплохо ввод и вывод организовать, но это уж сами.
0
Linoge
Эксперт Hardware
2239 / 1562 / 259
Регистрация: 25.10.2011
Сообщений: 4,737
26.03.2012, 10:56 #5
zink0000, введите dB = 9.4
0
zink0000
191 / 68 / 23
Регистрация: 15.03.2012
Сообщений: 272
Записей в блоге: 16
26.03.2012, 10:58 #6
Цитата Сообщение от vstz Посмотреть сообщение
zink0000, введите dB = 9.4
Да в курсе, в курсе, что проверку не поставил.
0
26.03.2012, 10:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2012, 10:58

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

Объявить функцию F для вычисления площади треугольника по длинам трех его сторон (по формуле Герона)
Объявить функцию F для вычисления площади треугольника по длинам трех его...

Разработать методы вычисления длины отрезка по координатам вершин и периметра треугольника по длинам сторон
Разработать метод f(x1, y1, x2, y2), который вычисляет длину отрезка по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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