Кузнечик

[Аватар]

Не, все таки там где-то в засаде лягушка и привет кузнечик ) ТС может скажет так или нет

[kim-im]

Сообщение от Serge_Bliznykov

я бы решал эту задачу так:

if (x=0) then t := 0 
else

если нужно достичь точку нулевую, то мы в ней уже находимся.

иначе проверка такая

t := -1;
step := a + b;
if ((step*x)>0) and (abs(step)>0) and (abs(x) mod abs(step) = 0) then 
t := (abs(x) div abs(step))*(abs(a)+abs(b));

p.s. (step*x)>0
- это условие, что шаг движения и x находятся по одну сторону от нуля (имеют одинаковый знак)

(abs(x) mod abs(step) = 0) -
это проверка того, что позиция x кратна шагу.

p.p.s. моему решению слепо я бы доверять не стал - проверьте внимательно на разных входных данных.
допускаю, что я мог и накосячить.

Спасибо вам большое за помощь, задача меня просто достала. вариант проходит на 55%. Хотя уже протестировал на разных входных даных.

var a,b,x,t,s:longint;
 begin
  read (a,b,x);
   if ((x=0) or (a=-b)) then t:=0 else
    begin
     t:=-1;
     s:=a+b;
      if ((s*x)>0) and (abs(s)>0) and (abs(x) mod abs(s)=0) then 
        t:=(abs(x) div abs(s))*(abs(a)+abs(b));
     end;
    
    write (t);
  end.

[Serge_Bliznykov]

Сообщение от kim-im

if ((x=0) or (a=-b)) then t:=0 else

это немного не то, что я предложил.

а если так?

var a,b,x,s:longint;
 begin
   read (a,b,x);
   if (x=0) then Write(0) else
   if a=-b then Write(-1) else
   begin
     s:=a+b;
     if ((s*x)>0) and (abs(s)>0) and (abs(x) mod abs(s)=0) then 
        Write((abs(x) div abs(s))*(abs(a)+abs(b)))
     else
        Write(-1)
     end;
  end.

p.s. там ещё один возможный "булыжник за пазухой" есть - если числа выходят за рамку longint.
тогда можно попробовать такой код:

var a,b,x:longint;
  t, s, v, xx : int64; 
 begin
   read (a,b,x);
   if (x=0) then Write(0) else
   if (a=-b) or ((s*x)<=0)  then Write(-1) else
   begin
     s:=a;
     s:=abs(s+b); 
     v:=abs(a);
     v:=v+abs(b); 
     xx := abs(x); 
     t := -1;
     if (xx mod s)=0 then 
         t := v*(xx div s);
     Write(t)
   end
 end.

он избыточно громоздкий. чтобы как раз попытаться избежать переполнения

[kim-im]

Первый прошёл на 55%. Второй на 25%. Наверное это из за типа. Перепробовал int64 - не проходит. Все тех же 55%. Qword не подойдет. А длинную арифметику писать наверное не буду, т.к. для меня это слишком космически. Спасибо вам огромное.

[Аватар]

Вдруг все таки можно остановиться после шага a ) Попробуй это из #13

     if ((s*x)>0) and (abs(s)>0) and (abs(x) mod abs(s)=0) then 
        Write((abs(x) div abs(s))*(abs(a)+abs(b)))
     else
        Write(-1)
     end;

заменить на

     if ((s*x)>0) and (abs(x) mod abs(s)=0) then 
        Write((abs(x) div abs(s))*(abs(a)+abs(b)))
     else if ((s*x)>0) and (abs(x-a) mod abs(s)=0) then 
        Write((abs(x-a) div abs(s))*(abs(a)+abs(b))+abs(a))
     else
        Write(-1)
     end;

[kim-im]

Сообщение от Аватар

Вдруг все таки можно остановиться после шага a ) Попробуй это из #13

     if ((s*x)>0) and (abs(s)>0) and (abs(x) mod abs(s)=0) then 
        Write((abs(x) div abs(s))*(abs(a)+abs(b)))
     else
        Write(-1)
     end;

заменить на

     if ((s*x)>0) and (abs(x) mod abs(s)=0) then 
        Write((abs(x) div abs(s))*(abs(a)+abs(b)))
     else if ((s*x)>0) and (abs(x-a) mod abs(s)=0) then 
        Write((abs(x-a) div abs(s))*(abs(a)+abs(b))+abs(a))
     else
        Write(-1)
     end;

Спасибо. Проходит уже на 90%. Тут такая фишка, что при начальных значения 3 2 0 выводит 0, хотя должно -1.

[Serge_Bliznykov]

Сообщение от kim-im

Тут такая фишка, что при начальных значения 3 2 0 выводит 0, хотя должно -1.

спорно. если кузнечик сразу находится в точке 0 и ему нужно попасть в точку ноль, то сколько это займёт времени?
я решил, что это займёт 0 секунд:

Сообщение от Serge_Bliznykov

if (x=0) then Write(0) else

если это не так - исправьте на -1