Форум Всеукраїнської інтернет-олімпіади NetOI


На форумі обговорюються лише питання, пов'язані з олімпіадою

Ви не зайшли.

#1 2006-10-28 21:47:27

Azazel
Новий користувач
Зареєстрований: 2006-10-16
Повідомлень: 4

Притензии к жюри

Уважаемое жюри!У меня есть притензии к задаче ПУЛ!Звучал вопрос с какой точностью нужно отвечать!Вы ответили "максимально точно"!
Я написал задачу с использованием типа екстендед:


{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
var min,n,m,x1,y1,x2,y2:extended;
    i:longint;

function dlina(a1,a2,a3: extended):extended;
begin
dlina:=sqrt(sqr(a2*a1/(a1+a3))+sqr(a1))+sqrt(sqr(a3*a2/(a1+a3))+sqr(a3));
end;

begin
read(n);
read(m);
read(x1);
read(y1);
read(x2);
read(y2);
if (x1=0)or(x2=0)or(y1=0)or(y2=0)or(x1=n)or(x2=n)or(y1=m)or(y2=m)then
begin
  write(sqrt(sqr(x1-x2)+sqr(y1-y2)));
  halt;
end;
min:=sqrt(n*n+m*m);
if y1<>y2 then
begin
  if min>dlina(n-x1,abs(y1-y2),n-x2) then min:=dlina(n-x1,abs(y1-y2),n-x2);
  if min>dlina(x1,abs(y1-y2),x2) then min:=dlina(x1,abs(y1-y2),x2);
end;
if x1<>x2 then
begin
  if min>dlina(y1,abs(x1-x2),y2) then min:=dlina(y1,abs(x1-x2),y2);
  if min>dlina(m-y1,abs(x1-x2),m-y2) then min:=dlina(m-y1,abs(x1-x2),m-y2);
end;
write(min);
end.


Ваша тестилка пишет:
Тест Результат Время работы
01 FAILED (Bad Data) 0.01 сек.
02 FAILED (Bad Data) 0.01 сек.
03 FAILED (Bad Data) 0.01 сек.
04 FAILED (Bad Data) 0.02 сек.
05 FAILED (Bad Data) 0.00 сек.
06 FAILED (Bad Data) 0.00 сек.
07 FAILED (Bad Data) 0.00 сек.
08 FAILED (Bad Data) 0.00 сек.
09 FAILED (Bad Data) 0.00 сек.
10 FAILED (Bad Data) 0.00 сек.
11 FAILED (Bad Data) 0.00 сек.
12 FAILED (Bad Data) 0.01 сек.
13 FAILED (Bad Data) 0.00 сек.

Прошло тестов: 0 из 13.

Набрано баллов: 0 из 20.


При том же тексте,но с реалом вместо екстендеда:

var min,n,m,x1,y1,x2,y2:real;
    i:longint;

function dlina(a1,a2,a3: real):real;
begin
dlina:=sqrt(sqr(a2*a1/(a1+a3))+sqr(a1))+sqrt(sqr(a3*a2/(a1+a3))+sqr(a3));
end;

begin
read(n);
read(m);
read(x1);
read(y1);
read(x2);
read(y2);
if (x1=0)or(x2=0)or(y1=0)or(y2=0)or(x1=n)or(x2=n)or(y1=m)or(y2=m)then
begin
  write(sqrt(sqr(x1-x2)+sqr(y1-y2)));
  halt;
end;
min:=sqrt(n*n+m*m);
if y1<>y2 then
begin
  if min>dlina(n-x1,abs(y1-y2),n-x2) then min:=dlina(n-x1,abs(y1-y2),n-x2);
  if min>dlina(x1,abs(y1-y2),x2) then min:=dlina(x1,abs(y1-y2),x2);
end;
if x1<>x2 then
begin
  if min>dlina(y1,abs(x1-x2),y2) then min:=dlina(y1,abs(x1-x2),y2);
  if min>dlina(m-y1,abs(x1-x2),m-y2) then min:=dlina(m-y1,abs(x1-x2),m-y2);
end;
write(min);
end.

Оно проходит:
Тест Результат Время работы
01 PASSED (+1) 0.01 сек.
02 FAILED (Wrong Answer) 0.01 сек.
03 PASSED (+1) 0.01 сек.
04 PASSED (+1) 0.01 сек.
05 PASSED (+1) 0.00 сек.
06 PASSED (+1) 0.00 сек.
07 PASSED (+2) 0.00 сек.
08 PASSED (+2) 0.00 сек.
09 PASSED (+2) 0.00 сек.
10 PASSED (+2) 0.00 сек.
11 PASSED (+2) 0.00 сек.
12 PASSED (+2) 0.00 сек.
13 PASSED (+2) 0.00 сек.

Прошло тестов: 12 из 13.

Набрано баллов: 19 из 20.

Поза форумом

 

#2 2006-10-28 21:48:38

Azazel
Новий користувач
Зареєстрований: 2006-10-16
Повідомлень: 4

Re: Притензии к жюри

Можно подать аппеляцию?Прошу вас учтите эту про в следующих турах!

Поза форумом

 

#3 2006-10-29 08:31:34

Dark_Dimius
Новий користувач
Звідки: /dev/null
Зареєстрований: 2005-11-17
Повідомлень: 136

Re: Притензии к жюри

Azazel написав:

Уважаемое жюри!У меня есть притензии к задаче ПУЛ!Звучал вопрос с какой точностью нужно отвечать!Вы ответили "максимально точно"!
Я написал задачу с использованием типа екстендед:


{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
var min,n,m,x1,y1,x2,y2:extended;
    i:longint;

function dlina(a1,a2,a3: extended):extended;
begin
dlina:=sqrt(sqr(a2*a1/(a1+a3))+sqr(a1))+sqrt(sqr(a3*a2/(a1+a3))+sqr(a3));
end;

begin
read(n);
read(m);
read(x1);
read(y1);
read(x2);
read(y2);
if (x1=0)or(x2=0)or(y1=0)or(y2=0)or(x1=n)or(x2=n)or(y1=m)or(y2=m)then
begin
  write(sqrt(sqr(x1-x2)+sqr(y1-y2)));
  halt;
end;
min:=sqrt(n*n+m*m);
if y1<>y2 then
begin
  if min>dlina(n-x1,abs(y1-y2),n-x2) then min:=dlina(n-x1,abs(y1-y2),n-x2);
  if min>dlina(x1,abs(y1-y2),x2) then min:=dlina(x1,abs(y1-y2),x2);
end;
if x1<>x2 then
begin
  if min>dlina(y1,abs(x1-x2),y2) then min:=dlina(y1,abs(x1-x2),y2);
  if min>dlina(m-y1,abs(x1-x2),m-y2) then min:=dlina(m-y1,abs(x1-x2),m-y2);
end;
write(min);
end.


Ваша тестилка пишет:
Тест Результат Время работы
01 FAILED (Bad Data) 0.01 сек.
02 FAILED (Bad Data) 0.01 сек.
03 FAILED (Bad Data) 0.01 сек.
04 FAILED (Bad Data) 0.02 сек.
05 FAILED (Bad Data) 0.00 сек.
06 FAILED (Bad Data) 0.00 сек.
07 FAILED (Bad Data) 0.00 сек.
08 FAILED (Bad Data) 0.00 сек.
09 FAILED (Bad Data) 0.00 сек.
10 FAILED (Bad Data) 0.00 сек.
11 FAILED (Bad Data) 0.00 сек.
12 FAILED (Bad Data) 0.01 сек.
13 FAILED (Bad Data) 0.00 сек.

Прошло тестов: 0 из 13.

Набрано баллов: 0 из 20.


При том же тексте,но с реалом вместо екстендеда:

var min,n,m,x1,y1,x2,y2:real;
    i:longint;

function dlina(a1,a2,a3: real):real;
begin
dlina:=sqrt(sqr(a2*a1/(a1+a3))+sqr(a1))+sqrt(sqr(a3*a2/(a1+a3))+sqr(a3));
end;

begin
read(n);
read(m);
read(x1);
read(y1);
read(x2);
read(y2);
if (x1=0)or(x2=0)or(y1=0)or(y2=0)or(x1=n)or(x2=n)or(y1=m)or(y2=m)then
begin
  write(sqrt(sqr(x1-x2)+sqr(y1-y2)));
  halt;
end;
min:=sqrt(n*n+m*m);
if y1<>y2 then
begin
  if min>dlina(n-x1,abs(y1-y2),n-x2) then min:=dlina(n-x1,abs(y1-y2),n-x2);
  if min>dlina(x1,abs(y1-y2),x2) then min:=dlina(x1,abs(y1-y2),x2);
end;
if x1<>x2 then
begin
  if min>dlina(y1,abs(x1-x2),y2) then min:=dlina(y1,abs(x1-x2),y2);
  if min>dlina(m-y1,abs(x1-x2),m-y2) then min:=dlina(m-y1,abs(x1-x2),m-y2);
end;
write(min);
end.

Оно проходит:
Тест Результат Время работы
01 PASSED (+1) 0.01 сек.
02 FAILED (Wrong Answer) 0.01 сек.
03 PASSED (+1) 0.01 сек.
04 PASSED (+1) 0.01 сек.
05 PASSED (+1) 0.00 сек.
06 PASSED (+1) 0.00 сек.
07 PASSED (+2) 0.00 сек.
08 PASSED (+2) 0.00 сек.
09 PASSED (+2) 0.00 сек.
10 PASSED (+2) 0.00 сек.
11 PASSED (+2) 0.00 сек.
12 PASSED (+2) 0.00 сек.
13 PASSED (+2) 0.00 сек.

Прошло тестов: 12 из 13.

Набрано баллов: 19 из 20.

не знаю почему но проблема не в екстендеде а в {$M 16384,0,655360}
у моего друга тоже самое.
без етого пройдет все - проверь


/*Hа C я могy пpосто делать ошибки, на C++ я могy их наследовать!
Некоторые люди на пальцах считают до 10, я же до 1023*/
Если надо помощь - стучитесь в асю, постараюсь помочь 99996414http://www.icq.com/scripts/online.dll?icq=99996414&amp;img=5

Поза форумом

 

#4 2006-10-29 14:32:28

Azazel
Новий користувач
Зареєстрований: 2006-10-16
Повідомлень: 4

Re: Притензии к жюри

Но мне от этого ни тепло ни жарко!Жури сказали что это из-за фри паскаля(он воспринимает по-другому первые 2 строки)!А как это можно исправить?Есть какая-то аппеляция или что-то вроде этого?

Поза форумом

 

#5 2006-10-29 16:12:00

Snake
Новий користувач
Звідки: Донецк
Зареєстрований: 2006-10-28
Повідомлень: 19
Вебсайт

Re: Притензии к жюри

Вот код моего решения задачи Pool.

{N+}
program Pool;
var shir,vus,x1,x2,y1,y2,xx1,xx2,yy1,yy2,l,min,c:extended;

procedure Proc;
begin
     l:=sqrt(sqr(yy2-yy1)+sqr(xx2-xx1));
     if(l<min)then min:=l;
end;

begin
     min:=2400111222.0;
     readln(shir,vus,x1,y1,x2,y2);
     xx1:=x1;
     yy1:=y1;

  {1}xx2:=x2;
     yy2:=vus+vus-y2;
     proc;

  {2}xx2:=shir+shir-x2;
     yy2:=y2;
     proc;

  {3}xx2:=x2;
     yy2:=-y2;
     proc;

  {4}xx2:=-x2;
     yy2:=y2;
     proc;

     writeln(min);
end.

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


Если опоздал, то можно уже не спешить...

Поза форумом

 

#6 2006-10-29 17:20:43

Skiminok
Новий користувач
Звідки: Киев, Украина
Зареєстрований: 2006-01-19
Повідомлень: 144
Вебсайт

Re: Притензии к жюри

Проблема, по-моему, в директивах компилятору. Фри Паскаль понимает их по-другому (проверки ради зайдите в Турбо Паскаль, нажмите Ctrl+O+O, потом полученный код попробуйте скомпилировать во Фришнике).
Фришник отдельно разделяет выделение памяти под режим компилирования, дебаггера и чего-то ещё третьего(увы, не в курсе). Турбо Паскаль - нет. Поэтому директива $M у каждого имеет своё значение.

Відредаговано Skiminok (2006-10-29 17:22:40)


Если вы с первого раза сумели написать программу, в которой транслятор не обнаружил ни одной ошибки, сообщите об этом системному программисту. Он исправит ошибки в трансляторе.
http://wwp.icq.com/scripts/online.dll?icq=282667777&amp;img=5ICQ 282667777

Поза форумом

 

#7 2006-10-30 10:54:28

FireTiger
Новий користувач
Звідки: Донецк
Зареєстрований: 2006-09-27
Повідомлень: 86

Re: Притензии к жюри

Skiminok написав:

Проблема, по-моему, в директивах компилятору. Фри Паскаль понимает их по-другому (проверки ради зайдите в Турбо Паскаль, нажмите Ctrl+O+O, потом полученный код попробуйте скомпилировать во Фришнике).
Фришник отдельно разделяет выделение памяти под режим компилирования, дебаггера и чего-то ещё третьего(увы, не в курсе). Турбо Паскаль - нет. Поэтому директива $M у каждого имеет своё значение.

Лучше не злоупотреблять Ктрл+О+О, просто желательно знать какие директивы что значат и втыкать именно те, которые необходимы для успешного выполнения данной программы... smile


ICQ 339203772  - Если что-нибудь срочно необходимо - стучитесь, я отвечу! smile
----------------
Основная проблема с программистами заключается в том, что вы никогда не можете сказать, чем они занимаются, до тех пор, пока не будет слишком поздно.

Поза форумом

 

#8 2006-11-07 14:52:01

Azazel
Новий користувач
Зареєстрований: 2006-10-16
Повідомлень: 4

Re: Притензии к жюри

Уважаемые жури,апелябельный ли это вопрос?Ведь задача имеет правильное решение!

Поза форумом

 

#9 2006-11-07 17:10:52

partisan
Олімпієць
Звідки: Киев
Зареєстрований: 2005-11-04
Повідомлень: 180

Re: Притензии к жюри

Значение и формат в Тубро и Фри паскале:

{$M <MAX_STACK_SIZE>,<MIN_HEAP_SIZE ?????(точно не знаю, но всегда можно ставить 0)>,<MAX_HEAP_SIZE>}

{$M 10000000,0,1000000}, если юзаете ДФС на дереве с 1000000 вершин smile

P.S. В Делфи не так:

{$M <MIN_STACK_SIZE>,<MAX_STACK_SIZE>}

Поза форумом

 

#10 2006-11-07 17:28:16

partisan
Олімпієць
Звідки: Киев
Зареєстрований: 2005-11-04
Повідомлень: 180

Re: Притензии к жюри

Azazel написав:

Уважаемые жури,апелябельный ли это вопрос?Ведь задача имеет правильное решение!

Я думаю, нет. Жюри на этой олимпиде, насколько я знаю, ни разу не приняло аппеляций, которые возникали из-за технических проблем у участника. Аргументацией, как я это понимаю, является то, что если участник чего-то не знает, то это его беда (была цитата Ю.Я.Пасихова о том, что если пишете на определенном языке, то вся забота о знании его технических ньюансов лежит на вас); технические условия на компиляторы и задачи пишут четко, ну и непопадание под них никто аппелировать не будет. И это будет для него учебой - чтоб в дальнейшем не допускать. Ведь эта олимпиада проводиться, как мне говорили, в основном для того, чтобы люди могли научиться, узнать новые алгоритмы (сам в прошлом году благодаря 3-му туру впервые познакомился с четырьмя новыми идеями и алгоритмами).
Я сам принципиальный в вопросах аппеляции и (<=>) разбора, откуда такие баллы, и нет ли там чего; но если досадный глюк, то лучше как можно скорее поменять свое к нему отношение и жить дальше.

Поза форумом

 

#11 2006-11-07 19:33:02

Журі NetOI-2006-Пасіхов
Адміністратор
Зареєстрований: 2006-09-09
Повідомлень: 126

Re: Притензии к жюри

partisan написав:

Azazel написав:

Уважаемые жури,апелябельный ли это вопрос?Ведь задача имеет правильное решение!

Я думаю, нет. Жюри на этой олимпиде, насколько я знаю, ни разу не приняло аппеляций, которые возникали из-за технических проблем у участника. Аргументацией, как я это понимаю, является то, что если участник чего-то не знает, то это его беда (была цитата Ю.Я.Пасихова о том, что если пишете на определенном языке, то вся забота о знании его технических ньюансов лежит на вас); технические условия на компиляторы и задачи пишут четко, ну и непопадание под них никто аппелировать не будет. И это будет для него учебой - чтоб в дальнейшем не допускать. Ведь эта олимпиада проводиться, как мне говорили, в основном для того, чтобы люди могли научиться, узнать новые алгоритмы (сам в прошлом году благодаря 3-му туру впервые познакомился с четырьмя новыми идеями и алгоритмами).
Я сам принципиальный в вопросах аппеляции и (<=>) разбора, откуда такие баллы, и нет ли там чего; но если досадный глюк, то лучше как можно скорее поменять свое к нему отношение и жить дальше.

Абсолюто верная трактовка позиции жюри. Особо приятно понимание уважаемым автором последнего сообщения обучающей цели нашей олимпиады. Мы все учимся. И это очень славно!

Поза форумом

 

Нижній колонтитул

Powered by Likt
© Copyright 2002–2009 Likt