求计算点到直线距离的4800程序

全站仪没有参考线功能，需要编一个已知两点坐标，求第三点到线段或延长线的垂距以及垂足至其中一点的距离。