проверить программу паскаль онлайн

Ответ от Аццкий скорпиончег[гуру]
P:=sqrt(sqr(x1-x2)+sqr(y1-y2));
writeln('passtoyanie: ',P:8:2);
if P<=0 then writeln('Rasstoyanie itriz.')

Вот тут - Р никогда не будет меньше нуля, поэтому условие не имеет смысла.. .

Далее, составляем уравнение прямой, проходящей через 2 точки:

(y-y1)/(y2-y1)=(x-x1)/(x2-x1)

Чтобы проверить, проходит ли прямая через начало координат, подставим вместо x,y нули и проверим равенство:

if y1*(x1-x2) = x1*(y1-y2) then writeln('проходит') else writeln('не проходит');