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

Обсуждение задачи 1020. Ниточка

What wrong?
Послано Cross 29 янв 2011 17:08
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type coord = record
  x:real;
  y:real;
end;

var
  count,i:integer;
  radius,p,y:real;
  coordinats:array of coord;
begin
  y:=0;
  read(count,radius);
  SetLength(coordinats,count+1);
  for i:= 1 to count do
    begin
      read(coordinats[i].X,coordinats[i].Y);
    end;
  p:=2*pi*radius;
  for i:= 1 to count do
    begin
      if(i = count)then
        y:=sqrt((coordinats[i].x-coordinats[0].x)*(coordinats[i].x-coordinats[0].x)+(coordinats[i].y-coordinats[0].y)*(coordinats[i].y-coordinats[0].y))
      else
        y:=sqrt((coordinats[i].x-coordinats[i+1].x)*(coordinats[i].x-coordinats[i+1].x)+(coordinats[i].y-coordinats[i+1].y)*(coordinats[i].y-coordinats[i+1].y));
      p:=p+y;
    end;
  writeln(p:0:2);
  readln;readln;
end.