Обсуждение @ 1066. Гирлянда @ Timus Online Judge

Показать все сообщения Спрятать все сообщения

To admin : very strange Ekaterinburg Highlanders 27 янв 2001 14:07

Как-то уж очень странно :
1. Никак не удаётся сдать эту задачу, перепроверено всё :
формулы (как рекурсивные так и нет), алгоритм... (эта
задача была решена на полуфинале участником нашей команды,
так вот он правильность алгоритма подтверждает).
2. К тому же очень настораживает, что на эту задачу 0% AC
(а кроме меня её пытались сдать ещё трое человек - я
посмотрел по монитору), это ведь сравнительно простая
задача, на полуфинале её сдало много команд.
Ответьте, это я такой глупый или же где-то глюк?

I think it's my bug. I'll see. This task is locked till I'll find out what's wrong. Marat Bakirov 28 янв 2001 15:15

Subj.

Fixed Marat Bakirov 30 янв 2001 12:08

> Subj.

Re: Fixed Artem [Goodmark] 30 янв 2001 19:25

Are you sure?
var
    a,b,l1,l2,li,rmost: real;
    n,i: integer;

begin
    ReadLn(n, a);

    l2:=a;
    l1:=0;
    rmost:=0;

    for i:=3 to n do
    begin
        li:=2*l1-l2+2;

        l2:=l1;
        l1:=li;

        if li<0 then
        begin
            b:=-li/(i-1);
            if b>rmost then rmost:=b;
        end;
    end;

    b:=(i-1)*rmost+li;
    if b<0 then b:=0;

    WriteLn(b:0:2);
end.

I am sure, I retested your sended solution. It is obviosly wrong Marat Bakirov 31 янв 2001 15:14

Oh, sorry. Artem [Goodmark] 6 фев 2001 11:49

Обсуждение задачи 1066. Гирлянда