' Bestimmung des Abstandes

DEFDBL a-z

INPUT "Startpunkt der Linie";x1,y1
INPUT "Endpunkt der Linie";x2,y2
INPUT "Punkt ausserhalb der Linie";xp,yp
dx=x2-x1:dy=y2-y1
a=((xp-x1)*dy-(yp-y1)*dx)/SQR(dx*dx+dy*dy)
LINE (x1,y1)-(x2,y2)
LINE (xp-4#,yp)-(xp+4#,yp)
LINE (xp,yp-2#)-(xp,yp+2#)
PRINT "Abstand :";a