найти сумму длин всех окрашенных частей прямой.

[como]

Сообщение от vikka

оооо,все просто ужасно!=((( напишите ПОЖАЛУЙСТА полностью код программы, я окончательно запуталась!!пожалуйста....

Код я писать не буду, но помощь могу оказать. А если нужен просто код, то вам прямяков во Фриланс форум.

[vikka]

помогите пож. =((у меня есть код когда отрезки неперсекаются, я не могу собрать все эти случаи в кучу и совместить, чтоб все нормально получилось!!!

[vikka]

ну или хотя бы ссылку на этот форум дайте пож.....=((

[como]

Сообщение от vikka

помогите пож. =((у меня есть код когда отрезки неперсекаются, я не могу собрать все эти случаи в кучу и совместить, чтоб все нормально получилось!!!

Тебе нужно из неупорядоченного множества отрезков с пересечениями получить упорядоченное множество отрезков без пересечений. Алгоритм можно кратко описать вот так:
1. неупорядоченное множество - A, упорядоченное - B. Вначале A содержит все отрезки, а B - пусто.
2. пока A непусто, берешь отрезок из A - a1, исключаешь его из множества A
3. находишь в В ближайший к нему отрезок слева по левой границе - b1
4. если такого отрезка нет, переходишь к шагу 7
5. если a1 лежит в b1 - выбрасываешь a1, переходишь к шагу 2
6. если a1 пересекается с b1 - изменяешь b1 таким образом, что он становится объединением a1 и b1, теперь этот измененный b1 становится новым a1 - переходишь к следующему шагу 7
7. берешь следующий за b1 отрезок в B - b2
8. если такого отрезка нет, переходишь к шагу 10
9. если a1 пересекается с b2 - изменяешь b2 таким образом, что он становится объединением a1 и b2, переходишь к шагу 2
10. иначе вставляешь a1 в B между b1 и b2, переходишь к шагу 2

Таким образом все отрезки перетекут из A в B. И ты сможешь применить свой тривиальный код для отрезков без пересечений.

[lenant]

Попробуй вот это. Я повводил всякие числа, ошибок не заметил.

program n1;
uses crt;
var L,R:array[1..1000] of real;
i,j,N:integer;
Sum:real;

begin
 clrscr;
 Sum:=0;
 writeln('input N:');
 readln(N);
 writeln('vvedite koordinati otrezkov');
 for i:=1 to N do
 begin
 read(L[i],R[i]);
 readln;
 end;
  For i:=1 to n do
  for j:=i+1 to n do
  If L[j]<R[i] then
   if L[j]<L[i] then
   begin
    If R[j]>L[i] then 
     if R[j]<R[i] then R[j]:=L[i]
     else R[i]:=L[i];
   end
   else
   begin
    L[j]:=R[i];
    if R[i]>R[j] then R[j]:=R[i];
   end;
 For i:=1 to n do sum:=sum+R[i]-L[i];
 writeln('summa ravna ',Sum:7:4);
 readln;
end.

[vikka]

спасибо большое, попоробую

[bag]

Вот мой вариант решения (причем халявный ):

uses crt;
var
  n,len1,i,j:integer;
  l:array[1..100] of real;
  r:array[1..100] of real;
  len:array[1..100] of real;

begin
  clrscr;
  writeln('N=');
  readln(n);
  len[1]:=0;
  for i:=1 to n do
  begin
    write('L[',i,']=');
    readln(l[i]);
    write('R[',i,']=');
    readln(r[i]);
    for j:=1 to i-1 do
    begin
      if len[j]=0 then continue;
      if (l[j]>=l[i])and(l[j]<=r[i])and(r[j]>r[i]) then
      begin
        r[i]:=r[j];
        len[j]:=0;
        continue;
      end;
      if (l[i]>=l[j])and(l[i]<=r[j])and(r[i]>r[j]) then
      begin
        l[i]:=l[j];
        len[j]:=0;
        continue;
      end;
      if (l[i]>=l[j])and(r[i]<=r[j]) then
      begin
        l[i]:=l[j];
        r[i]:=r[j];
        len[j]:=0;
        continue;
      end;
      if (l[j]>=l[i])and(r[j]<=r[i]) then
      begin
        len[j]:=0;
      end;
    end;
    len[i]:=r[i]-l[i];
  end;
  len1:=0;
  for i:=1 to n do
  begin
    len1:=len1+len[i];
  end;
  writeln('Summ dlina=',len1);
  readkey;
end.

[bag]

Упс... не успел

[vikka]

спасибо огромное!!! а что значит "упс... не успел" ??

[bag]

Сообщение от vikka

спасибо огромное!!! а что значит "упс... не успел" ??

Решение уже привели до меня Кстати, если в программу lenant'а ввести 2 отрезка, в такой последовательности: 1) 4; 6; 2) 0; 2, то его программа покажет НЕВЕРНЫЙ результат!