Кто тут крутой программист? Зайди сюда)

[NikiToZz_]

Привет, читающий. Вообщем столкнулся с олимпиадной задачкой, вот она:

Для строительства двухмерной пирамиды используются прямоугольные блоки, каждый из которых характеризуется шириной и высотой. Можно поставить один блок на другой, только если ширина верхнего блока строго меньше ширины нижнего. Самым нижним в пирамиде может быть блок любой ширины.

По заданному набору блоков требуется определить, пирамиду какой наибольшей высоты можно построить из них.

Формат входных данных

В первой строке входных данных задается число N – количество блоков (1 <=N<=100000 ).
В следующих N строках задаются пары целых чисел ширина и высота, разделенные пробелом – ширина и высота блока, соответственно.

Формат выходных данных

Целое число – максимальная высота пирамиды.

Пример

стандартный ввод

3
3 1
2 2
3 3

стандартный вывод

5

Замечание

В приведенном примере пирамида будет состоять из двух блоков: нижним будет блок с номером 3, а верхним – блок с номером 2. Блок с номером 1 нельзя использовать для строительства пирамиды, т.к. его ширина совпадает с шириной нижнего блока.

program piramida;
      var N,i,j,maxw,z,maxh,sumheight:integer;
        a,wid,hei:array[1..100000] of integer;
begin
  sumheight:=0; j:=1;
  //---Ввод информации----------------------//
  readln (N);
  for i:=1 to N do
      read(wid[i],hei[i]);
  write ('------------------------');
  writeln;
  //----------------------------------------//
  maxw:=wid[1];
  maxh:=0;
  i:=1;
  repeat
  for i:=1 to N do     //находим максимальную ширину
      if wid[i]>maxw then  begin
         maxw:=wid[i];
      end;
  for i:=1 to N do     {*из нескольких максимальных ширин находим
                       максимальную высоту, запоминаем номера всех
                       максимальных ширин*}
      if wid[i]=maxw then begin
         a[j]:=i;
         z:=j;
         j:=j+1;
         if hei[i]>maxh then
            maxh:=hei[i];
      end;
  sumheight:=sumheight+maxh;  //суммируем высоты
  for j:=1 to z do begin     //удаляем все использованные блоки 
    i:=a[j];
    wid[i]:=wid[i+1];
    while i<N-1 do begin
      i:=i+1;
      wid[i]:=wid[i+1];
    end;
    N:=N-1;
  end;
  maxw:=wid[1];
  maxh:=0;
  i:=1;
  j:=1;
  until N=0;
  //---Вывод информации-------------------------//
writeln;
writeln ('------------------------');
write ('Максимальная высота = ',sumheight);
readln;
readln;
end.

Мне бы мою программку изменить так, чтобы вместо 4 выводило 5, ибо я не знаю, в чем здесь ошибка, собственно...

--------------------------------

Вообщем, отчасти разобрался. Я удаляю все блоки только по ширине. Номера высоты остаются прежние. И на выводе при проверке ширину блоков он выдает правильную, в высоте же ошибка. Осталось понять, как удалять еще и номера использованной высоты, ну или как-то присваивать номерам высоты - ширину.. Не знаю, насколько понятна вся эта ахинея выше =)

[NikiToZz_]

Кароче говоря, сделал сам) Если кому интересно - разбирайтесь..

program piramida;
      var N,i,j,maxw,z,maxh,sumheight:integer;
        a,wid,hei:array[1..100000] of integer;
begin
  sumheight:=0; j:=1;
  //---Ввод информации----------------------//
  readln (N);
  for i:=1 to N do
      read(wid[i],hei[i]);
  write ('------------------------');
  writeln;
  //----------------------------------------//
  maxw:=wid[1];
  maxh:=0;
  i:=1;
  repeat
  for i:=1 to N do     //находим максимальную ширину
      if wid[i]>maxw then  begin
         maxw:=wid[i];
      end;
  for i:=1 to N do     {*из нескольких максимальных ширин находим
                       максимальную высоту, запоминаем номера всех
                       максимальных ширин*}
      if wid[i]=maxw then begin
         a[j]:=i;
         z:=j;
         j:=j+1;
         if hei[i]>maxh then
            maxh:=hei[i];
      end;
 // writeln (maxw:4);
 // writeln (maxh:3);
  sumheight:=sumheight+maxh;  //суммируем высоты
  for j:=1 to z do begin     //удаляем все использованные блоки
    i:=a[j];
    wid[i]:=wid[i+1];
    hei[i]:=hei[i+1];
    while i<N-1 do begin
      i:=i+1;
      wid[i]:=wid[i+1];
      hei[i]:=hei[i+1];
    end;
    N:=N-1;
  end;
  maxw:=wid[1];
  maxh:=0;
  i:=1;
  j:=1;
  until N=0;


 
  //---Вывод информации-------------------------//
writeln;
writeln ('------------------------');
write ('Максимальная высота = ',sumheight);
readln;
readln;
end.

[min@y™]

вообще-то я дворник. зашёл поглазеть на незнакомые букофки. не обращайте на меня внимания.

ой, нумерация массива не с нуля! аяйяй

[NikiToZz_]

min@y™, а разница?

[min@y™]

а разница?

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

[Smitt&Wesson]

Сообщение от min@y™

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

Я уже туточки. Меня смутило вот это безобразие - array[1..100000] of integer;. Нахрена ему такой массив в сто тысяч элементов? Он чё решил закончить жизнь самоубийством, вводя туда данные?

[kutani]

1- если в дальнейшем правильно работать с индексами массива, то нумерация с какого элемента не имеет значения, хоть с 100.
2- статический массив хорош тем, что выделение памяти происходит сразу же и экономится время по ходу программы.
3- 100 000 мелочи ) Может его консоль юзает другая утилита и набивает данные :D

[Serge_Bliznykov]

У меня такое впечателение, что первый пост вообще никто не читал!

исходное задание такое:

В первой строке входных данных задается число N – количество блоков (1 <=N<=100000 ).

Таким образом может быть во входном файле 100000 записей о блоках. Их нужно обработать. Вот для них и создан данный массив.
Не понимаю, о чём сыр-бор?!

[min@y™]

Не понимаю, о чём сыр-бор?!

В отсутствии смысла существования темы.

[NikiToZz_]

Сообщение от min@y™

В отсутствии смысла существования темы.

Изначально был смысл, так та.. =)