# Dreiecksungleichung

## Problembeschreibung

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

Gegeben sind drei Punkte. Mittels der Dreiecksungleichung
ist zu bestimmen, ob diese Punkte ein Dreieck erzeugen.

## 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)$

AUSGABE

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