челночный бег

[uzer2007]

Одним из важных видов тренировки легкоатлетов является челночный бег. Суть этого упражнения заключается в многократном прохождении одной и той же короткой дистанции в прямом и обратном направлении. Пусть была выбрана дистанция длиной L метров, в начальный момент спортсмен находится в начале дистанции и начинает бежать в направлении другого конца с постоянной скоростью 10 метров в секунду. Когда спортсмен достигнет конца или начала дистанции, он сразу же разворачивается (временем необходимым на этот разворот пренебрегаем) и бежит в противоположном направлении с той же скоростью. Длится это упражнение на протяжении T секунд. На расстоянии D от начала дистанции расположен датчик, который фиксирует появление бегуна в этой точке. Определите сколько раз во время бега будет зафиксировано появление спортсмена в точке, где находится датчик.
Формат входных данных
В единственной строке задаются три целых числа L, T и D (1 ≤ L ≤ 106, 0 ≤ T ≤ 109, 0 ≤ D ≤ L). Значение L кратно 10. Меня ума хватило на такое (это 44%), подскажите плиз, где ошибки, как его оптимизировать?

var
l,t,d,ll:longint;
k:longint;
begin
read(l,t,d);
ll:=10*t;
k:=0;
while(ll>=d) do
begin
k:=k+1;
ll:=ll-2*l+d;
if ll>=0 then k:=k+1;
ll:=ll-d;
end;
write(k);
end.

[Sciv]

Ну примерно так, имхо:

L - длина дистанции,
T - время бега
D - расстояние до датчика от начала дистанции
K - кол-во бегов мимо датчика

Сколько раз он пробежит дистанцию полностью - можно определить по формуле:

10 (м/с) * T - это расстояние полностью
K:=10*T div L - это сколько целых дистанций уложилось в данное расстояние - столько же раз он пробежал мимо датчика

10*T mod L - это остаток, сколько неполных дистанций (точнее, неполная дистанция одна, сколько метров из нее он пробежал).

Учтем четность полных дистанций - если число четное, то последнюю он бежит от начала, инача от конца, соответственно и сравнения дальше разные, то есть:

Если (K четное и (10*T mod L)>=D) или если (K нечетное и (L-10*T mod L)<=D) тогда K:=K+1

Как-то так

[Sciv]

По поводу кода:
1) не вижу необходимости вводить дополнительную L1, но судя по условиям, нужно добавить код проверки на кратность L десяти и на соблюдение указанных Вами же условий.
2) если в условиях задачи не указано специально, что ее нужно решать с помощью цикла - рекомендую воспользоваться паскалевской арифметикой (формулы выше) и выкинуть цикл из кода.

[uzer2007]

Я правильно вас понял?

var
l,t,d:longint;
k:longint;
begin
read(l,t,d);
if (l mod 10=0) and (t>=0)  then begin
k:=10*t div l;
if ((k mod 2=0)and(10*t mod l>=d)) or ((k mod 2<>0) and (10*t mod l>=l-d)) then k:=k+1;
end;
write(k);
end.

К сожалению это тоже только 44%. ограничения там такие 1 ≤ L ≤ 10^6, 0 ≤ T ≤ 10^9, 0 ≤ D ≤ L)/longint оправдан?

[uzer2007]

Заменил тип к на word cтало 56%

[Sciv]

Каким образом у Вас сочетаются проценты и "сколько раз во время бега будет зафиксировано появление спортсмена в точке, где находится датчик"?

Поняли правильно, но под проверкой ввода я предполагал немного более сложную структуру:

repeat
  readln(l);
until (l mod 10=0) and (l>=1) and (l<=1000000);

ну и т.д.

И еще - L не может быть больше 1, скорее уж больше 10, инаяе это противоречит условию кратности.

[uzer2007]

Проценты, это сколько тестов проходит правильно, то есть процент "правильности решения")) Извините, за путаницу

[Sciv]

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

Проценты, это сколько тестов проходит правильно, то есть процент "правильности решения")) Извините, за путаницу

так вы бы ссылку то на сайт давали, где проверяете, а то я думал - очередная лабораторная по программированию

[uzer2007]

http://ejudge.ippo.dn.ua это олимпиада

[evg_m]

оптимизация без комментариев
1.JPG