Прямые

[Иоанн IV Грозный]

Задача:определить точку пересечения прямых.Прога у меня не до конца работает,помогите найти ошибки

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type TPoint=record
x,y:real;
end;
TLine=record
a,b,c:real;
end;
Var p1,p2,p3,p4,p:TPoint;
l1,l2:TLine;

  { TODO -oUser -cConsole Main : Insert code here }
Procedure PointToLine(const a,b:TPoint; Var l:TLine);
begin
l.a:=b.y-a.y;
l.b:=a.x-b.x;
l.c:=-(a.x*l.a+a.y*l.b);
end;
begin
Writeln('vvedite koordinaty tochki p1');
Readln(p1.x);
Readln(p1.y);
Writeln('vvedite koordinaty tochki p2');
Readln(p2.x);
Readln(p2.y);
Writeln('vvedite koordinaty tochki p3');
Readln(p3.x);
Readln(p3.y);
Writeln('vvedite koordinaty tochki p4');
Readln(p4.x);
Readln(p4.y);

PointToLine(p1,p2,l1);
PointToLine(p3,p4,l2);
If l1.a*l2.b-l1.b*l2.a=0 then Write('pryamie parallelni')
Else begin
p.x:= -(l1.c*l2.b-l2.c*l1.b)/(l1.a*l2.b-l2.a*l1.b);
p.y:=(l2.a*l1.c-l1.a*l2.c)/(l1.a*l2.b-l2.a*l1.b);
Writeln('pryamie peresekayutsya');
Writeln('tochka peresecheniya:');
Readln(p.x);
Readln(p.y);
end;
Readln;
end.

[k0tone]

Пользуйтесь на здоровье:

program Project2;

Type TPoint=record
x,y:real;
end;
TLine=record
a,b,c:real;
end;
Var p1,p2,p3,p4,p:TPoint;
l1,l2:TLine;

Procedure PointToLine(const a,b:TPoint; Var l:TLine);
begin
l.a:=b.y-a.y;
l.b:=a.x-b.x;
l.c:=-(a.x*l.a+a.y*l.b);
end;
begin
Writeln('vvedite koordinaty tochki p1');
Readln(p1.x);
Readln(p1.y);
Writeln('vvedite koordinaty tochki p2');
Readln(p2.x);
Readln(p2.y);
Writeln('vvedite koordinaty tochki p3');
Readln(p3.x);
Readln(p3.y);
Writeln('vvedite koordinaty tochki p4');
Readln(p4.x);
Readln(p4.y);

PointToLine(p1,p2,l1);
PointToLine(p3,p4,l2);
If l1.a*l2.b-l1.b*l2.a=0 then Write('pryamie parallelni')
Else begin
p.x:= -(l1.c*l2.b-l2.c*l1.b)/(l1.a*l2.b-l2.a*l1.b);
p.y:=(l2.a*l1.c-l1.a*l2.c)/(l1.a*l2.b-l2.a*l1.b);
Writeln('pryamie peresekayutsya');
Writeln('tochka peresecheniya: x=',p.x:3:3,'   y=',p.y:3:3);
end;
Readln;
end.