Принадлежность точки отрезкам., Заданы N отрезков с координатами концов. Опции

[sergey121212]

Вообщем не пойму саму суть определения...

const n=3;
var i,x,k:integer;
	a,b:array[1..n] of real;
begin
for i:=1 to n do
begin
writeln('Введите начало ',i,' отрезка');
readln(a[1]);
writeln('Введите конец ',i,' отрезка');
readln (b[1]);
end;
k:=0;
for i:=1 to n do
if (x>=a[i]) and (x<=b[i]) then
k:=k+1;
writeln(k);
if k=n then writeln('Да')
else
writeln ('Нет');
end.

Думаю как-то так , хотя тут проверка пока-что только 2 отрезка...

const n=3;
type point=record
	  x,y:real;
	  end;
	 otr=record
	  k1,k2:point;
	  end;
var i:integer;
	t:array[1..n] of otr;
	x,y:real;
	
 
procedure ras(t1,t2:otr;var x,y:real);
begin
x:=((t1.k1.x*t1.k2.y-t1.k2.x*t1.k1.y)*(t2.k1.x-t2.k1.x)-(t2.k1.x*t2.k2.y-t2.k2.x*t2.k1.y)*(t1.k2.x-t1.k1.x))/((t1.k1.y-t1.k2.y)*(t2.k2.x-t2.k1.x)-(t2.k1.y-t2.k2.y)*(t1.k2.x-t1.k1.x));
y:=((t2.k1.y-t2.k2.y)*x-(t2.k1.x*t2.k2.y-t2.k2.x*t2.k1.y))/(t2.k2.x-t2.k1.x);
end;
 
begin
writeln('Введите координаты отрезков:');
for i:=1 to n do
 begin
  writeln('Отрезок #',i);
  write('x1=');readln(t[i].k1.x);
  write('y1=');readln(t[i].k1.y);
  write('x2=');readln(t[i].k2.x);
  write('y2=');readln(t[i].k2.y);
end;
ras(t[1],t[2],x,y);
if (((t[1].k1.x<=x)and(t[1].k2.x>=x)and(t[2].k1.x<=x)and(t[2].k2.x >=x))or((t[1].k1.y<=y)and(t[1].k2.y>=y)and(t[2].k1.y<=y) and(t[2].k2.y>=y))) then
writeln('Есть точка пересечения ! ')
else writeln('Нет точки пересечения ! ');
 
end.

[sergey121212]

двумерный