Помогите чайнику! Не знаю как решить задачки по программированию!

[margo78]

29.   Пусть даны три числа. Если они могут быть длинами сторон треугольника, определите его вид (разносторонний, равнобедренный, равносторонний). Вычислите длины его высот и напечатайте их в порядке убывания.
30.   Пусть даны три числа. Если они могут быть длинами сторон треугольника, определите его вид (прямоугольный, тупоугольный, остроугольный). Вычислите длины его высот и напечатайте их в порядке убывания.
 

[Alf]

30 - следует сначала проверить, могут ли числа быть сторонами треугольника. Для этого достаточно проверить, что все числа положительны, а также выполнение условия:


|a-b| < c < a+b

Если условие выполняется, такой треугольник построить можно. Тогда остается выяснить его вид.

Выберем наибольшую сторону. Допустим, это сторона c. По теореме Пифагора для прямоугольного треугольника имеем:

a² + b² = c², или

a² + b² - c² = 0

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

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

[Sla]

высоту вычислять будем?

[Paul]

высоту вычислять будем?

По теореме косинусов находим угол:
cos(a)=(C*C-A*A-B*B)/(2*A*B)
потом находим sin(a)=sqrt(1-cos(a)*cos(a);
Одна равна sin(a)*A,
вторая sin(a)*B.

Третью найди сам.

[Sla]

а без синусов.косинусов слабо?
H_a=2/A(sqrt(p*(p-A)*(p-B)*(p-C))
H_b=2/B(sqrt(p*(p-A)*(p-B)*(p-C))
H_c=2/С(sqrt(p*(p-A)*(p-B)*(p-C))
где
p - полупериметр

зы математика 7 класс

[margo78]

огромное спасибо
попробую справиться

[Catherine]

Мне нужно написат макрос к задаче следующего содержания: в документе Word задана таблица. в кторой есть, например, 5 слов. Нужно вручную подкрасить, например, 2 слова в другой цвет. при запуске макроса должно появиться сообщение, что 2 слова подкрашены. я написала прогу, но почему-то комп ругается на неё. Сначала посчитала количество слов в таблице, а вот как сделать вторую чать проги не понимаю, т.е. я её написала, но что-то компу не нравится. Заранее спасибо.Вот прога:
Dim Slova(100) As String
    For i = 1 To 100
        Slova(i) = ""
    Next
   
    Set myRange = Selection.Range

        nword = myRange.Words.Count
        If Asc(Right(myRange, 1)) = 13 Then
            nword = nword - 1
        End If
        kol_zn = 0
        For i = 1 To nword
            tek_slovo = Trim(myRange.Words(i))
            If tek_slovo <> "" Then
                If (Asc(tek_slovo) < 58) And ((Asc(tek_slovo) > 47)) Or ((Asc(tek_slovo) < 91)) And (Asc(tek_slovo) > 64) Or ((Asc(tek_slovo) < 123)) And (Asc(tek_slovo) > 96) Or (Asc(tek_slovo) > 187) Then
                Else
                    kol_zn = kol_zn + 1
                End If
            Else
                kol_zn = kol_zn + 1
            End If
        Next
        nword = nword - kol_zn
         MsgBox (nword)
        sch = 0
        For i = 1 To nword
   
           
            ActiveDocument.Words(i).Select
           If Selection.Words(i).HighlightColorIndex <> wdBlack Then

   
   
            'tek_slovo = Trim(myRange.Words(i))
            'If tek_slovo.HighlightColorIndex <> wdBlack Then
                sch = sch + 1
            End If
        Next
        If sch = 0 Then
            z = "Выделенных слов нет"
            MsgBox (z)
        Else
            MsgBox (sch)
        End If

    End Sub