ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1011. Кондукторы

I need help(WA 17)
Послано Mad man 30 апр 2006 18:55
I do not see error here, but didn't pass the 17'th test
var p,q: extended;
    a,b: longint;
BEGIN
    read(p,q); p:=p/100; q:=q/100;
    a:=1;
    while (true) do begin
       b:=1;
     while (a/b>=q) do inc(b);
     if (a/b>p) then begin
          write(b);
          halt(0);
       end else inc(a);
    end;
END.
Re: I need help(WA 17)
Послано A.Ferdinand 4 май 2006 10:00
Me, too.
I'm getting insane.
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!
Re: I need help(WA 17)
Послано Burunduk1 4 май 2006 21:06
Use epsilon!
Instead of >= q and > p
use >= q-eps and > p+eps and you'll get AC.
Good luck! ;)
Re: I need help(WA 17)
Послано wefgef 4 июн 2006 19:03
this eps thing sucks :(
Re: I need help(WA 17)
Послано Roman Atangulov 21 фев 2007 22:21
???
Burunduk1 писал(a) 4 мая 2006 21:06
Use epsilon!
Instead of >= q and > p
use >= q-eps and > p+eps and you'll get AC.
Good luck! ;)

who can say me, what is epsilon???
how to use it
Re: I need help(WA 17)
Послано svr 21 фев 2007 22:24
eps=0.000000001
Re: I need help(WA 17)
Послано Roman Atangulov 21 фев 2007 22:44
Thank You!!!
I got AC!!! with eps!
Re: I need help(WA 17)
Послано R. Dubinin 15 авг 2013 20:42
thanks