Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ концы отрезков

Автор: dummy 19.10.2005 2:43

Даны целое n>2 и вещественные числа a1, b1,...an, bn(a1<b1). Рассматривая пары ai и bi ак левые и правые концы отрезков на одной и той же прямой, определить концы отрезка, являющегося пересечением всех этих отрезков. Если такого отрезка нет, то сообщить об этом.
Подкиньте, пожалуйста, какую-нибудь идею решения! :o

Автор: volvo 19.10.2005 3:10

Я бы попробовал сделать вот так (это только сам алгоритм):

min :=a[1]; max := b[1];
flag := true; i := 2;
while (i <= n) and flag do begin
if (a[i] > min) and (a[i] < max) then min := a[i]
else if a[i] > max then flag := false;

if flag then begin
if (b[i] > min) and (b[i] < max) then max := b[i]
else if b[i] < min then flag := false;
end;
inc(i);
end;

if flag then writeln('отрезок: ', min, ' - ', max)
else writeln('отрезка не существует');