Нужно не забывать, что у этой задачи 2 решения. Искомая точка может находиться с каждой стороны от прямой.

Пример решения на Математике:
W = 1; r1 = {1, 1}; r2 = {3, 4};
(*условие на перпендикулярность отрезков — скалярное произведение равно нулю*)
eq := (x — r1[1]])(r2[1]] — r1[1]]) + (y — r1[2]])(r2[2]] — r1[2]]) == 0
(*расстояние до неизвестной точки*)
eq2 := Norm[{x — r1[1]], y — r1[2]]}] == W
res = Solve[{eq, eq2}, {x, y}]
rf = {x, y} /. res[1]]
rs = {x, y} /. res[2]]
ListPlot[{r1, r2, rf, rs}, PlotRange -> {{0, 5}, {0, 5}}, AspectRatio -> 1];