Аналитическая геометрия

[Alex11223]

Так не делите на 0.

[Serge_Bliznykov]

Сообщение от Vitalik81311

if abs(x1-x2)<0.00001 then begin Label7.Caption :='коэффициент и+#13'длину отрезка'+#13'найти нельзя' end;

 
 A:=(y1-y2)/(x1-x2);
 B:=y2-A*x2 ;

Label7.Caption :='коэффициент A= '+FloatToStr(A)+#13+'длину отрезка B= '+FloatToStr(B);

if abs(x1-x2)<0.00001 then 
   Label7.Caption :='коэффициент и+#13'длину отрезка'+#13'найти нельзя'
else begin 
  A:=(y1-y2)/(x1-x2);
  B:=y2-A*x2 ;
  Label7.Caption :='коэффициент A= '+FloatToStr(A)+#13+'длину отрезка B= '+FloatToStr(B);
end;

[Vitalik81311]

Мне, если я задаю координаты точек по иксу одинаковые, тогда он выдаёт это сообщение в лейбл выводит надпись, а не чертит график, а мне надо, чтоб он начертил всё равно и написал в лейбл надпись... Я пробовал подставить try...except, но тогда он чертит, но не выводит в лейбл, то что мне нужно... Видно не туда подставляю, а куда надо не пойму...

[Vitalik81311]

Извините, не проверил сразу, всё работает по предложенному коду... Спасибо большое...

[Vitalik81311]

Serge_Bliznykov, может подскажите, как написать, чтоб отмечалась на графике точка пересечения отрезка и оси у...

[Vitalik81311]

Подскажите пожалуйста, как провести прямую через две точки, а не отрезок от точки до точки...?

[Serge_Bliznykov]

Сообщение от Vitalik81311

Подскажите пожалуйста, как провести прямую через две точки, а не отрезок от точки до точки...?

никак. Прямая по определению не имеет начала и конца.
Отображение прямой на экране компьютера всегда имеет начало и конец - т.е. по сути на экране мы всегда видим только ЧАСТЬ прямой (отрезок)

а что Вам нужно получить? Какую прямую Вы хотите отобразить и где?

[p51x]

А что за мода пошла на одну и туже задачу по несколько тем создавать, как сериал с продолжением?...

[Serge_Bliznykov]

Сообщение от p51x

А что за мода пошла на одну и туже задачу по несколько тем создавать, как сериал с продолжением?...

Вы абсолютно правы. я обратил внимание, но никак руки не доходили.
сейчас солью их все в одну тему.


DONE

[Vitalik81311]

Я бы не писал, но после показа программы, мне забраковали прямую и сказали, что это отрезок, а надо прямую проходящую через две точки и добавить точку пересечения на оси у, а я не знаю, как это сделать, пробовал но не получается ни чего, помогите, если знаете...? Код я приводил выше...
Снимок курсовой.JPG
На рисунке отрезок, а надо прямую...