BETRAG EINES VEKTORS IM R2

betrag(X):=floor(sqrt(X[1]**2+X[2]**2)*100+0.5)/100.0;

EINGABE

P:read("Gib die Liste mit den Eckpunkten eines Vierecks ein");

FREISTELLEN DER ECKPUNKTE

A:P[1];B:P[2];C:P[3];D:P[4];

SEITENLÄNGEN

a:betrag(B-A);

b:betrag(C-B);

c:betrag(D-C);

d:betrag(A-D);

DIAGONALE

e:betrag(C-A);

HALBER DREIECKSUMFANG

s1:(e+c+d)/2.0;

s2:(a+b+e)/2.0;

FLÄCHE DES VIERECKS

A:sqrt(s1*(s1-c)*(s1-d)*(s1-e))+sqrt(s2*(s2-a)*(s2-b)*(s2-e));

A:floor(A*100+0.5)/100.0;