Centroid Question

[Kernelpanic]

I would say that the incircle center of any triangle is sought. It is calculated as follows:

PS: The radius is the same distance from all sides of the triangle and thus indicates the incircle center.

Code: (Select All)

'Berechnung des Inkreismittelpunktes eines Dreiecks - 14. Juli 2024

'https://www.biancahoegel.de/geometrie/ebene/inkreis.html

'Mathematik 2 Geometrie S.98ff, 106, 108



Option _Explicit



'ad, bd, cd Seiten eines Dreiecks, AF = Flaecheninhalt, s = Umfang

Dim As Double AF, ad, bd, cd, s, radius, dummy



Locate 2, 3

Print "Berechnung des Inkreismittelpunktes eines Dreiecks"

Locate 3, 3

Print "=================================================="



Locate 5, 3

Input "Laenge der Seite a in cm: ", ad

Locate 6, 3

Input "Laenge der Seite b in cm: ", bd

Locate 7, 3

Input "Laenge der Seite c in cm: ", cd



s = (ad + bd + cd) / 2

dummy = s * ((s - ad) * (s - bd) * (s - cd))

AF = Sqr(dummy)



'Der Radius ist von allen Seiten des Dreiecks gleich weit entfernt,

'und zeigt somit den Inkreismittelpunkt an.

radius = (2 * AF) / (ad + bd + cd)



Locate 9, 3

Print Using "Der Inkreismittelpunkt des gegebenen Dreiecks liegt bei ###.## cm."; radius



End