Определить общую проекцию этих отрезков на ось абсцисс

@pikusfikus · Регистрация: 14.11.2009

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

Здравствуйте,уважаемые программисты!Есть задачка :
Дано координаты двух отрезков (начало и конец) .Определить общую проекцию этих отрезков на ось абсцисс.Помогите ,пожалуйста, буду очень благодарен!!

@кот Бегемот · 20.12.2009, 01:16

Что значит общую: пересекающуюся, или суммарную?

@pikusfikus · 20.12.2009, 01:53 **[ТС]**

суммарную

Добавлено через 34 минуты
Помогите плиз!

@кот Бегемот · 20.12.2009, 02:16

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var
x1,x2,x3,x4,max1,max2,min1,min2,t1,t2,s:integer;
begin
writeln('koordinaty 1 otreska');
readln(x1,x2);
writeln('koordinaty 2 otreska');
readln(x3,x4);
if x1>x2 then
begin
max1:=x1;
min1:=x2;
end
else
begin
max1:=x2;
min1:=x1;
end;
if x3>x4 then
begin
max2:=x3;
min2:=x4;
end
else
begin
max2:=x4;
min2:=x3;
end;
if max1<max2 then
begin
t1:=max1;
t2:=min1;
max1:=max2;
min1:=min2;
max2:=t1;
min2:=t2;
end;
if max2<=min1 then s:=max1-min1+max2-min2
else if min2>=min1 then s:=max1-min1
else s:=max1-min1+max2-min2-(max2-min1);
writeln(s);
readln;
end.

@pikusfikus · 20.12.2009, 02:26 **[ТС]**

спасибо большое!!Вы меня очень выручили))

Добавлено через 1 минуту
только даны координати конца и начала то есть для каждого отрезка по 4 координаты

@кот Бегемот · 20.12.2009, 17:07

а координата Y для проекции на ось Х не имеет никакого значения, так что для решения задачи достаточно знать по одной координате Х

@pikusfikus · 20.12.2009, 17:31 **[ТС]**

это задача с второго этапа олимпиады,я ее не сделал,так как в школе этого еще не учили,паскаль сам изучаю,а задания одинаковы и для 9 и для 11 классов,учительница мне скинула тесты к задачам ,некоторые с них не проходят в Вашей программе (х правильно ввожу)

Добавлено через 37 секунд
а и еще к задаче,если нет проекции общей ,то вывести -1,если 1 точка то вывести 0

Добавлено через 1 минуту
вот тесты :
«Отрезки». 20 балів.

1 2 5 4 4 3 8 1 1
-2 2 3 4 -4 5 5 1 5
1 1 5 1 1 3 5 3 4
-1 1 1 2 5 2 8 1 -1
-1 1 -4 3 -1 3 -4 1 3
1 2 5 3 5 3 9 2 0
1 1 3 1 2 2 2 4 0
-5 3 1 4 -4 -2 -1 -4 3

@кот Бегемот · 20.12.2009, 17:39

Условия надо точнее писать, тогда и программа будет другой, а с тестами - невозможно понять, что и где. Что до моего решения, оно учитывает и те варианты, когда нет общих точек, тогда суммируются проекции. Что-то не то в этой задаче, раз даны координаты Y.

@pikusfikus · 20.12.2009, 17:42 **[ТС]**

да в условие всё как я написал,первые 8 чисел это координаты ,последняя цифра - результат

Добавлено через 57 секунд
1 2 5 4 4 3 8 1 (1)
-2 2 3 4 -4 5 5 1 (5)
1 1 5 1 1 3 5 3 (4)
-1 1 1 2 5 2 8 1 (-1)
-1 1 -4 3 -1 3 -4 1 (3)
1 2 5 3 5 3 9 2 (0)
1 1 3 1 2 2 2 4 (0)
-5 3 1 4 -4 -2 -1 -4 (3)

@кот Бегемот · 20.12.2009, 17:47

Я же тебя спрашивал

Что значит общую: пересекающуюся, или суммарную?

И что ты ответил?

суммарную

а надо - только пересекающуюся
из-за этого я решал совсем не ту задачу

@pikusfikus · 20.12.2009, 17:55 **[ТС]**

ну извините,я просто не знал,и сам особо условия не понял,примите мои извинения)

@кот Бегемот · 20.12.2009, 18:09

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var
x1,x2,x3,x4,max1,max2,min1,min2,t1,t2:integer;
y1,y2,y3,y4,s:integer;
begin
writeln('vvedite koordinaty dvuh otreskov');
writeln('cherez probel: x1 y1 x2 y2 x3 y3 x4 y4');
read(x1,y1,x2,y2,x3,y3,x4,y4);
if x1>x2 then
begin
max1:=x1;
min1:=x2;
end
else
begin
max1:=x2;
min1:=x1;
end;
if x3>x4 then
begin
max2:=x3;
min2:=x4;
end
else
begin
max2:=x4;
min2:=x3;
end;
if max1<max2 then
begin
t1:=max1;
t2:=min1;
max1:=max2;
min1:=min2;
max2:=t1;
min2:=t2;
end;
if max2<min1 then s:=-1
else if max2=min1 then s:=0
else if min2>min1 then s:=max2-min2
else s:=max2-min1;
writeln(s);
end.

@pikusfikus · 20.12.2009, 18:20 **[ТС]**

спасибо Вам уже не знаю какой раз,Вы очень помогли мне!!

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507

	Определить общую проекцию этих отрезков на ось абсцисс 19.12.2009, 23:42. Показов 2981. Ответов 12 Метки нет (Все метки) Здравствуйте,уважаемые программисты!Есть задачка : Дано координаты двух отрезков (начало и конец) .Определить общую проекцию этих отрезков на ось абсцисс.Помогите ,пожалуйста, буду очень благодарен!! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	20.12.2009, 01:16
	Что значит общую: пересекающуюся, или суммарную? 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 01:53 [ТС]
	суммарную Добавлено через 34 минуты Помогите плиз! 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 02:26 [ТС]
	спасибо большое!!Вы меня очень выручили)) Добавлено через 1 минуту только даны координати конца и начала то есть для каждого отрезка по 4 координаты 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	20.12.2009, 17:07
	а координата Y для проекции на ось Х не имеет никакого значения, так что для решения задачи достаточно знать по одной координате Х 1

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 17:31 [ТС]
	это задача с второго этапа олимпиады,я ее не сделал,так как в школе этого еще не учили,паскаль сам изучаю,а задания одинаковы и для 9 и для 11 классов,учительница мне скинула тесты к задачам ,некоторые с них не проходят в Вашей программе (х правильно ввожу) Добавлено через 37 секунд а и еще к задаче,если нет проекции общей ,то вывести -1,если 1 точка то вывести 0 Добавлено через 1 минуту вот тесты : «Отрезки». 20 балів. 1 2 5 4 4 3 8 1 1 -2 2 3 4 -4 5 5 1 5 1 1 5 1 1 3 5 3 4 -1 1 1 2 5 2 8 1 -1 -1 1 -4 3 -1 3 -4 1 3 1 2 5 3 5 3 9 2 0 1 1 3 1 2 2 2 4 0 -5 3 1 4 -4 -2 -1 -4 3 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	20.12.2009, 17:39
	Условия надо точнее писать, тогда и программа будет другой, а с тестами - невозможно понять, что и где. Что до моего решения, оно учитывает и те варианты, когда нет общих точек, тогда суммируются проекции. Что-то не то в этой задаче, раз даны координаты Y. 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 17:42 [ТС]
	да в условие всё как я написал,первые 8 чисел это координаты ,последняя цифра - результат Добавлено через 57 секунд 1 2 5 4 4 3 8 1 (1) -2 2 3 4 -4 5 5 1 (5) 1 1 5 1 1 3 5 3 (4) -1 1 1 2 5 2 8 1 (-1) -1 1 -4 3 -1 3 -4 1 (3) 1 2 5 3 5 3 9 2 (0) 1 1 3 1 2 2 2 4 (0) -5 3 1 4 -4 -2 -1 -4 (3) 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 17:55 [ТС]
	ну извините,я просто не знал,и сам особо условия не понял,примите мои извинения) 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	20.12.2009, 18:20 [ТС]
	спасибо Вам уже не знаю какой раз,Вы очень помогли мне!! 0