Даны два отрезка А и В, заданные координатами их концов (АX1,АY1),(АX2,АY2) и
(ВX1,ВY1),(ВX2,ВY2) – целыми числами. Определить, пересекаются ли они, в случае пересечения
вычислить координаты (вещественные числа) точки их пересечения.
(ВX1,ВY1),(ВX2,ВY2) – целыми числами. Определить, пересекаются ли они, в случае пересечения
вычислить координаты (вещественные числа) точки их пересечения.
More Questions From This User See All
Answers & Comments
Verified answer
Программа:
Pascal:
const e = 0.0001;
var
AX1, AY1, AX2, AY2, BX1, BY1, BX2, BY2: integer;
x, y: real;
begin
write('AX1 = '); readln(AX1);
write('AY1 = '); readln(AY1);
write('AX2 = '); readln(AX2);
write('AY2 = '); readln(AY2);
write('BX1 = '); readln(BX1);
write('BY1 = '); readln(BY1);
write('BX2 = '); readln(BX2);
write('BY2 = '); readln(BY2);
if (abs(AX2 - AX1) < e) and (abs(BX2 - BX1) < e) or (abs((BX2 - BX1) * (AY2 - AY1) - (BY2 - BY1) * (AX2 - AX1)) < e) then
writeln('Отрезки параллельны.')
else
begin
if (abs(AX1 - AX2) < e) and (abs(BY2 - BY1) < e) then
begin
x := AX1;
y := BY1;
end
else if (abs(AY1 - AY2) < e) and (abs(BX1 - BX2) < e) then
begin
x := BX1;
y := AY1;
end
else
begin
x := -((BX2 - BX1) * (AX1*AY2 - AX2*AY1) - (AX2 - AX1) * (BX1*BX2 - BX2*BY1)) / ((AY1 - AY2) * (BX2 - BX1) - (AX2 - AX1) * (BY1 - BY2));
y := ((-x) * (BY1 - BY2) - (BX1*BY2 - BX2 * BY1)) / (BX2 - BX1);
end;
if ((x >= AX1) and (x <= AX2)) or ((x <= x) and (x >= AX2)) then
write('Отрезки пересекаются в точке (', x:0:1, '; ', y:0:1, ')')
else writeln('Отрезки не пересекаются.');
end;
end.