Задача "Роман в томах"

[Аватар]

Табличку делал для 10 глав и 1, 2, 3 томов, что бы в индексах не запутаться. Там относительно прозрачно для формулы из #5

[Poma][a]

Большое спасибо..я начинал просекать фишку.. Но для 3-х томов я, увы, не могу понять что к чему и почему.. Не могли бы Вы шушуть подробнее объяснить?..

[Аватар]

Ромаха, наведи резкость на парочки цифр - левая берется из предыдущего MinMax-а, смотри как. Правая - из раскладки страниц по главам, тоже закономерность проследи. Из каждой пары выбирается максимум, и по всей колонке из них - минимум, формируя MinMax для текущего к-ва томов. По образу и подобию построй для 4-х томов, думаю все прояснится

[Poma][a]

смотри как

Эм.. я должен видеть формулы?

[Аватар]

550,150 - 550=S(6,2) - первых 6 глав в 2-ух книгах
          150 - 7-ая глава в 3-ей
350,450 - 350=S(5,2) - первых 5 глав в 2-ух книгах
          450 - 6-ая и 7-ая глава в 3-ей
...
150,900 - 150=S(2,2) - первых 2 главы в 2-ух книгах
          900 - 3-7 главы в 3-ей

MinMax=450 - это все расклады 7 глав в 3 книги рекурсивно от раскладов в 2 книги

[Poma][a]

Гениально!! Супер! Класс!! Я дико извиняюсь.. Я что-то страшно туплю..

[Poma][a]

На данный момент 322 символа..

uses Math;
   
var n, m, i, j, l, r : Word;
    a, b, d: array[0..100] of Word;
   
begin
  Reset(input,'input.txt');
  Read(n);
  for i:=1 to n do begin
    Read(a[i]); b[i] := b[i-1]+a[i];
  end;
  Read(m);
  for i := 2 to m do begin
    for j := i to n do begin
      l:= $FF;
      r := 0;
      for m:=1 to j-i+1 do begin
        r := r+ a[j-m+1];
        l := Min (l, Max (b[j-m], r));
      end;
      d[j]:=l
    end;
    b:=d
  end;
  Assign(output,'output.txt');
  Write(b[n])
end.

[ViktorR]

Реализуя свою мысль о среднем получил такой код:

uses Math;
var a : array[1..10] of word;
    s, m, i, j, N, K, x : word;
begin
   Reset(input,'input.txt');
   Read(N);
   for i := 1 to N do begin
      Read(a[i]); s := s + a[i];
   end;
   Read(K);
   m := Ceil(s/K);
   i := 1;
   for j := 1 to K - 1 do begin
      s := a[i];  i := i + 1;
      while (((m - s) >= ((a[i] div 2) + 1)) AND (i < N)) do begin
         s := s + a[i];  i := i + 1;
      end;
       if x < s then
         x := s;
   end;
   m := a[i];
   for j := i + 1 to N do
      m := m + a[j];
   if x < m then
      x := m;
   Write(x);
end.

Для исходных примеров и примеров от Аватар срабатывает нормально. Вот только размер немного того - 352.
Можно ли оптимизировать?
Пока у себя не могу, т.к. что-то не идет на FPC строка

Reset(input, 'input.txt');

Сообщение об ошибке говорит, что второй аргумент константная строка, а ожидается Long Int ?

PS: Немного поправил, т.к. увидел, что второй массив не нужен. Размер упал до - 335.


Как-то так, ...

[Poma][a]

Задачку можно сдавать на acmp.ru тыц
Но там исходные данные читаются из файла.. и в файл (но уже другой) записываются.. (Код компилируется на Delphi).. И чтобы кол-во символов было минимальным, вместо правильного открытия и закрытия файла пишутся такие строчки

Ceil(s/K)

Наверное, можно обойтись простым Round, тогда uses отпадает..
Еще убираются ; перед end'ами..

[ViktorR]

Попытался отправить, но там сообщение об ошибке на первом тесте.
"Ошибка представления" - о чем это сообщение?
И почему-то при регистации обзывает меня Неизвестный.
Ну да ладно.



Как-то так, ...