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

Для этой примера

6
1 4 6 2 2 4
3 3 5 6 1 5

ответ будет 3!!!!!!!!!!!

Смотрите piece 2 решения (1- пложое)
1)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var a,b,c,d,h,p,r,x1,x2,x3,y1,y2,y3:extended;
begin
    read(r,x1,y1,x2,y2,x3,y3);
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  b:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
  p:=(a+b+c)/2;
  h:=2*sqrt(abs(p*(p-a)*(p-b)*(p-c)))/c;
  if h-r>1e-6 then
    write('-1')
  else
    write(2*sqrt(abs(sqr(r)-sqr(h))));
end.

2)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var
    sq,rs:extended;
  r,x0,y0,x1,y1,x2,y2:longint;
begin
    read(r,x0,y0,x1,y1,x2,y2);
  dec(x1,x0);dec(x2,x0);
  dec(y1,y0);dec(y2,y0);
  sq:=sqr(r)-sqr(1.0*(x1*y2-x2*y1))/(sqr(x2-x1)+sqr(y2-y1));
  if sq<-1e-6 then  {Dolzhno byt "sq<0", no iz za pogreshnostey...}
       rs:=-1
  else
       rs:=2*sqrt(abs(sq));
  write(rs);
end.

Відредаговано ROBOT (2005-11-19 11:08:35)

ROBOT написав:

Смотрите piece 2 решения (1- пложое)
1)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var a,b,c,d,h,p,r,x1,x2,x3,y1,y2,y3:extended;
begin
    read(r,x1,y1,x2,y2,x3,y3);
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  b:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
  p:a+b+c)/2;
  h:=2*sqrt(abs(p*(p-a)*(p-b)*(p-c)))/c;
  if h-r>1e-6 then
    write('-1')
  else
    write(2*sqrt(abs(sqr(r)-sqr(h))));
end.

2)
{$N+} { —в®Ўл а Ў®в «Ё Extended }
var
    sq,rs:extended;
  r,x0,y0,x1,y1,x2,y2:longint;
begin
    read(r,x0,y0,x1,y1,x2,y2);
  dec(x1,x0);dec(x2,x0);
  dec(y1,y0);dec(y2,y0);
  sq:=sqr(r)-sqr(1.0*(x1*y2-x2*y1))/(sqr(x2-x1)+sqr(y2-y1));
  if sq<-1e-6 then  {Dolzhno byt "sq<0", no iz za pogreshnostey...}
       rs:=-1
  else
       rs:=2*sqrt(abs(sq));
  write(rs);
end.

А что если x1=x2, y1=y2 ? Runtime error!!! (но с другой стороны прямая не задаёться точками с одинаковыми координатами, но кто их знает этих тест-мейкеров... )

что тут решать-то?

Я наверно позновато...,но... выкладываю...
Bear 153bytes(13 строки)
Blam 588bytes(29 строки)
Circ 689bytes(34 строки)
Newpatience 1,26KB(75 строки)
Piece 674bytes(32 строки)

А как там решения проверяют?С помощбю тестов или как?
Если кому интересно моя аська: 260564697

Кстати мои решения можна скачать по адресу
http://www.TheJack.narod.ru/olymp.rar

Люди,а кто нибудь письмо с результатами получал?
Говорят оно должно прийти сегодня утром

jack_spektor написав:

Люди,а кто нибудь письмо с результатами получал?
Говорят оно должно прийти сегодня утром

Однажды они больше недели проверяли так что жди мне тоже ниче не пришло

xXx написав:

jack_spektor написав:

...А как там решения проверяют?С помощбю тестов или как?...

А как иначе? (не, теоретически другие варианты могут быть... например жюри расмотрит сорсы всех учасников и... или может существовать такая прога, которая сама может проверить исходники...)

Но фигня эт все там автоматическая сис-ма тестинга заганяются автроские решения и их ответы на данные жюри тесты сравниваются с ответами твоей проги. Я понимаю че ты задал этот вопрос ты хочеш чтоб с файла читали и т.п. ног там используется перенаправление потоков

Andy написав:

6
1 4 6 2 2 4
3 3 5 6 1 5

Тут ответ сто пудов 3

у кого какой ответ для задачи Newpatience на такой тест:

100
98 39 69 13 2 40 84 85 16 78 98 22 34 4 99 86 94 36 11 33 90 86 75 10 35 55 63 96 26 30 28 49 17 41 50 15 99 37 12 33 65 34 24 60 25 54 50 79 65 31 53 8 36 1 84 7 22 91 61 100 69 42 59 71 38 12 23 58 42 53 83 21 46 40 52 89 74 5 77 76 44 6 20 58 73 17 18 44 52 81 88 54 14 55 37 64 56 9 97 78
51 14 35 71 83 57 88 31 11 29 38 15 16 70 97 43 47 20 62 70 26 66 93 48 47 39 45 94 48 80 77 95 82 30 1 85 10 62 25 3 79 67 7 13 64 29 72 72 82 18 19 59 92 24 56 43 60 32 27 66 23 81 92 95 9 74 63 87 61 75 96 89 100 90 28 4 68 21 6 19 91 68 3 41 67 27 87 93 49 45 76 2 46 8 32 51 73 80 5 57

piece:


var
r,o1,o2,x1,y1,x2,y2,d,ps,l:real;
begin
read(r,o1,o2,x1,y1,x2,y2);
x1:=x1-o1;
x2:=x2-o1;
y1:=y1-o2;
y2:=y2-o2;
l:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
ps:=abs(x1*y2-x2*y1);
if ps=0 then d:=0 else d:=ps/l;
if d>r+0.00001 then writeln(-1) else
if abs(d-r)<0.00001 then writeln(0) else
writeln(2*sqrt(r*r-d*d));
end.