Question

Opracuj algorytm obliczania pola trójkąta o bokach a,b,c wg wzoru P=sqr [p*(p-a)(p-b)(p-c)] oraz sprawdzenie czy jest to trójkat w programie Visual basic exel w FORMA.

Answer 1

Nie wiem jak miałem ci to przesłać więc wklejam kod funkcji z excela. Dodajesz moduł, kopiujesz i możesz spokojnie ją uruchomi już w arkuszu. Jeżeli dobrze kapuje to te P jest ze wzoru Harona o czym mogłeś wspamnąć ;d. Funkcja też sprawdza czy to trójkąt w sensie, że żaden bok nie jest większy lub równy sumy długości dwóch pozostałych. To tyle ode mnie.

  

Function Trojkat(a, b, c)
Dim P As Double
Dim S As Double
If (a >= b + c) Or (b >= a + c) Or (c >= a + b) Then
Trojkat = "To nie trojkat"
Else
P = (a + b + c) / 2
S = Sqr(P * (P - a) * (P - b) * (P - c))
Trojkat = "Pole trojkata o bokach " _
& "a=" & a & " b=" & b & _
" c=" & c & " " & "wynosi " & S
End If
End Function