Среди 3-х отрезков найти отрезок их пересечения

@Asphyx1a · Регистрация: 26.11.2020

Author24 — интернет-сервис помощи студентам

Даны 3 отрезка на числовой прямой: [a1, b1], [a2, b2], [a3, b3]. Определить отрезок, являющийся их
пересечением.

@Puporev · 26.11.2020, 08:30

Например так. Потестируйт может я лажанулся.

Pascal

function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
 
procedure peres(x1,x2,x3,x4:integer;var x5,x6:integer;var f:boolean);
begin
if(x3>=x2)or(x4<x1)then f:=false
else
 begin
  f:=true;
  x5:=max(x1,x3);
  x6:=min(x2,x4);
 end;
end;
 
var a1,b1,a2,b2,a3,b3,a4,b4,a5,b5:integer;
    f:boolean;
begin
repeat
writeln('Введите значения концов 1 отрезка a1<b1');
readln(a1,b1);
until a1<b1;
repeat
writeln('Введите значения концов 2 отрезка a2<b2');
readln(a2,b2);
until a2<b2;
repeat
writeln('Введите значения концов 3 отрезка a3<b3');
readln(a3,b3);
until a3<b3;
peres(a1,b1,a2,b2,a4,b4,f);
if not f then writeln('Все 3 отрезка не пересекаются')
else
 begin
  peres(a3,b3,a4,b4,a1,b1,f);
  if not f then writeln('Все 3 отрезка не пересекаются')
  else  writeln('Общее пресечение отрезков а итервале [',a1,'..',b1,']');
 end;
end.

@Asphyx1a 14 / 7 / 7 Регистрация: 26.11.2020 Сообщений: 43
		1
	Среди 3-х отрезков найти отрезок их пересечения 26.11.2020, 01:55. Показов 799. Ответов 1 Метки нет (Все метки) Даны 3 отрезка на числовой прямой: [a1, b1], [a2, b2], [a3, b3]. Определить отрезок, являющийся их пересечением. 0

	26.11.2020, 08:30