Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2012, 17:17   #1
destroy_
Пользователь
 
Регистрация: 27.10.2012
Сообщений: 13
По умолчанию День рождения

Помогите найти ошибку
На день рождения пришли N человек. В некоторый момент именинник решил, что пора устроить какую-нибудь игру. Он выяснил, что i-й человек согласен вступить в игру, если в ней уже принимают участие не менее A[i] и не более B[i] человек. Единожды вступив в игру, никто из нее не выходит. Требуется выяснить, может ли именинник установить такую последовательность вступления в игру, что в итоге все присутствующие станут ее участниками. (Сам именинник в игре участия не принимает.)

Ввод
Сначала вводится количество гостей N (1 ≤ N ≤ 100). Затем вводится N пар чисел A[i] и B[i] (все эти числа из диапазона от 0 до N-1).
Вывод
Если можно установить последовательность вступления гостей в игру, чтобы в итоге все стали ее участниками, то нужно вывести номера гостей в том порядке, в каком они могут вступать в игру. Если всех вовлечь в игру не удастся, выведите одно число - 0.


код
PHP код:
var
a:array[1..100,1..2of integer;
b,c:array[0..100of integer;
i,j,k,n:integer;
begin
read
(n);
for 
i:=1 to n do
for 
j:=1 to 2 do
read(a[i,j]);
begin
for i:=0 to n-do begin
k
:=0;
for 
j:=1 to n do
if (
c[j]=0) and (a[j,1]<=i) and (a[j,2]>=ithen
begin
if k=0 then
k
:=j
else
if 
a[j,2k:=j;
end;
if 
k=0 then
begin
writeln
(0);
exit;
end;
c[k]:=1;
b[i]:=k;
end;
for 
i:=0 to n-do
write(b[i],' ');
end;
end

Последний раз редактировалось destroy_; 23.11.2012 в 17:19.
destroy_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
по дате рождения и текущей дате (день, месяц, год) определить сколько дней до дня рождения (код на ПАСКАЛЕ) Николай1 Помощь студентам 1 16.02.2012 09:07
Когда день рождения форума? Виталий Желтяков О форуме и сайтах клуба 9 07.06.2011 07:05
День рождения бонусы slai БД в Delphi 2 27.10.2010 03:03
Эх, проморгали день рождения... mihali4 Свободное общение 22 04.12.2008 11:27
День рождения Alex21 merax Свободное общение 16 22.07.2008 15:37