# Dreiecksfläche

## Problembeschreibung

******************************************
Dokumentnummer: D1031
Quelle: Johann Weilharter,
              Analytische Geometrie 2
******************************************

Es ist eine Liste mit 3 Punkten gegeben. Wenn diese Punkte ein
Dreieck bilden, soll die Fläche berechnet werden.

## Problemlösung

EINGABE

P:read("Gib drei Punkte eines Dreiecks in einer Liste ein");

VERARBEITUNG

x1:P[1][1];

y1:P[1][2];

x2:P[2][1];

y2:P[2][2];

x3:P[3][1];

y3:P[3][2];

P1P2:sqrt((x2-x1)**2+(y2-y1)**2);

P1P3:sqrt((x3-x1)**2+(y3-y1)**2);

P2P3:sqrt((x3-x2)**2+(y3-y2)**2);

a:P1P2;

b:P1P3;

c:P2P3;

weiche:0;

if a+b=c then ev(weiche:1);

if a+c=b then ev(weiche:1);

if b+c=a then ev(weiche:1);

s:(a+b+c)/2;

f:sqrt(s*(s-a)*(s-b)*(s-c));

AUSGABE

if weiche=1 then print("Es ist kein Dreieck") else print("Es ist ein Dreieck");

if weiche=0 then print("Fläche =",f)$