VPF::Интервалы! - Форум программистов

MariyaVo

Дата 26.11.2008, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.11.2008

Репутация: нет
Всего: нет

Даны действительные числа а1,а2,..., а50.Эти числа определяют 25 интервалов числовой оси: (а1,а2);(а3,а4),...,(а49;а50). Имеют ли все данные интервалы общие точки? Если да, то указать какую-нибудь из этих точек.

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

volvo877

Дата 26.11.2008, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(MariyaVo @ 26.11.2008, 07:04

)

не могу вначале сделать сортировку...

А не надо никакой сортировки... Чтобы проверить, имеют ли отрезки общие точки, достаточно:

Код

function min(a, b: real): real;
begin
  min := a;
  if b < a then min := b;
end;
function max(a, b: real): real;
begin
  max := a;
  if b > a then max := b;
end;

const
  a: array[1 .. 6] of real = (
    1, 7, 3, 9, 2, 5
  );

var
  int_start, int_finish: real;
  i: integer;

begin
  int_start := a[1]; int_finish := a[2];
  i := 3;
  while i < 6 do begin
    if (a[i] > int_finish) or (a[i + 1] < int_start) then begin
      writeln('no'); halt(1);
    end
    else begin
      int_start := max(int_start, a[i]);
      int_finish := min(int_finish, a[i + 1]);
    end;
    inc(i, 2);
  end;

  writeln(int_start:5:2, ' - ', int_finish:5:2);
end.

(это пример для 3-х отрезков, для твоих 25 будет тот же самый алгоритм... Любая точка, попадающая в конечный интервал, может быть напечатана в качестве результата. К примеру, чтобы не ошибиться, напечатай среднее арифметическое int_start и int_finish)...

MariyaVo

Дата 27.11.2008, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.11.2008

Репутация: нет
Всего: нет

спасибо!
Я написала прграмму, только по-другому...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »