определить функцию для расчета периметра треугольника

[Diplihe]

Помогите написать программу!!!

Задача
Даны стороны двух треугольников. Найти сумму их периметров, определив функцию для расчета периметра треугольника по его сторонам.

Буду вам очень благодарен. Заранее спасибо.

[Sasha_Smirnov]

Насмешил! Имея под рукой интернет...

Периметр p = a + b + c (это же сумма длин сторон!).

Не очень удивлю, сообщив, что для двух треугольников

p1 + p2 = a1 + b1 + c1 + a2 + b2 + c2?!

P/s: спасибо за априорное спасибо!

[viter.alex]

Может треугольники нелинейные?
Хотя и в этом случае периметр считается по той же самой формуле. Мда, а вы про нанотехнологии…

[Sasha_Smirnov]

Option Base 1 'не обязательный, но удобный выбор: нумерация в массивах с 1'

Sub summaperimetrov()
    a1 = Rnd: b1 = Rnd: c1 = Rnd 'Вместо Rnd можно напечатать СВОИ длины.'
    a2 = Rnd: b2 = Rnd: c2 = Rnd

    p1 = summa(Array(a1, b1, c1))
    p2 = summa(Array(a2, b2, c2))

    MsgBox "p1 = " & p1 & Chr(13) & _
            "p2 = " & p2 & Chr(13) & Chr(13) & _
        "p1 + p2 = " & summa(Array(p1, p2))
End Sub

Function summa(massiv)
Dim S, i
    For i = LBound(massiv) To UBound(massiv) 'перебор всех чисел массива'
    S = S + massiv(i)
    Next
summa = S
End Function

На написание и отладку ушло 22 минуты. Воистину быстрее на микрокалькуляторе!

[Sasha_Smirnov]

Sub SummaPerimetrovMnogougolnikov()
Dim a1, b1, c1, a2, b2, c2, p1, p2
    a1 = Rnd: b1 = Rnd: c1 = Rnd
    a2 = Rnd: b2 = Rnd: c2 = Rnd
    'Вместо Rnd можно напечатать СВОИ длины.'
    If IsNumeric(a1) And IsNumeric(b1) And IsNumeric(c1) _
   And IsNumeric(a2) And IsNumeric(b2) And IsNumeric(c2) = False _
    Then MsgBox "Не все введённые данные - числа.", vbInformation: Exit Sub
    
    p1 = summa_N_elementov(a1, b1, c1)
    p2 = summa_N_elementov(a2, b2, c2)

    MsgBox "p1 + p2 = " & summa_N_elementov(p1, p2), vbInformation
End Sub


Function summa_N_elementov(ParamArray dlina())
Dim S, i
    For i = LBound(dlina) To UBound(dlina) 'перебор всех чисел массива'
        If dlina(i) < 0 Then
            MsgBox "Длина < 0. Завершаю работу", vbInformation, "Функция века"
            Exit Function
        End If
    S = S + dlina(i)
    Next
summa_N_elementov = S 'названию функции присвоили вычисленное значение суммы'
End Function

[Kir@]

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

[CODE]Option Base 1 'не обязательный, но
На написание и отладку ушло 22 минуты. Воистину быстрее на микрокалькуляторе!

Функция определяется из учебника по геометрии для 7 класса )

a1 = {= } - создаем закладку а1
b1 = {= } - создаем закладку b1
c1 = {= } - создаем закладку c1
a2 = {= } - создаем закладку а2
b2 = {= } - создаем закладку b2
c2 = {= } - создаем закладку c2

{eq P = a1 + b1 + c1 + a2 + b2 + c2} = {=a1} + {=b1} + {=c1} + {=a2} + {=b2} + {=c2} = {=a1+b1+c1+a2+b2+c2 \# 0,0} мм

Все в кодах полей EQ.
4 минуты 15 секунд