Олимпиадное программирование

[VovanZ]

Вторую неделю бьюсь над задачей на Тимусе. Задача элементарнейшая, но почему-то мой код упорно не проходит третий тест.

program project1;
var
  n, i : byte;
  r, res, x, y, x1, y1, x0, y0 : extended;
begin
{$IFNDEF ONLINE_JUDGE}
   assign(input, 'input.txt');
   assign(output, 'output.txt');
   reset(input);
   rewrite(output);
{$ENDIF}
  readln(n, r);
  readln(x, y);
  x0:=x;
  y0:=y;
  res:=2*pi*r;
  i:=1;
  for i:=1 to (n-1) do begin
    readln(x1, y1);
    res:=res+sqrt(sqr(x1-x)+sqr(y1-y));
    y:=y1;
    x:=x1;
  end;
  res:=res+sqrt(sqr(x1-x0)+sqr(y1-y0));
  write(res:1:2);
{$IFNDEF ONLINE_JUDGE}
   close(input);
   close(output);
{$ENDIF}
end.

Хоть намекните где мой фейл?

[Indian]

i:=i+1; //удалить.
Результат выдает правильный: 14.28.

[VovanZ]

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

i:=i+1; //удалить.
Результат выдает правильный: 14.28.

Сорри, это осталось после того как я пытался использовать while вместо for. Когда я отправлял там этого не было.
Результат у меня тоже правильный, все тесты которые я смог придумать решает правильно, поэтому и не могу понять где ошибка.....

[Indian]

http://acm.timus.ru/forum/thread.asp...57890059555068
При n=1, цикл не обсчитывается.
Тогда при координатах не равных 0:0.
res:=res+sqrt(sqr(x1-x0)+sqr(y1-y0));
Прибавляется расстояние от начала координат, т.к. x1:y1=0:0.

[VovanZ]

Спасибо, исправил, всё заработало.....

program project1;
var
  n, i : byte;
  r, res, x, y, x1, y1, x0, y0 : extended;
begin
{$IFNDEF ONLINE_JUDGE}
   assign(input, 'input.txt');
   assign(output, 'output.txt');
   reset(input);
   rewrite(output);
{$ENDIF}
  readln(n, r);
  readln(x, y);
  x0:=x;
  y0:=y;
  res:=2*pi*r;
  i:=1;
  for i:=1 to (n-1) do begin
    readln(x1, y1);
    res:=res+sqrt(sqr(x1-x)+sqr(y1-y));
    y:=y1;
    x:=x1;
  end;
  res:=res+sqrt(sqr(x-x0)+sqr(y-y0));
  write(res:1:2);
{$IFNDEF ONLINE_JUDGE}
   close(input);
   close(output);
{$ENDIF}
end.